Thanks for you reply. This is the result which is shown: cTxt_dri : &é"'(§è!çà)-âêîûôäëïöü OemToAnsi ( cTxt_dri ) : &Ú"'(ºÞ!þÓ)-ÔÛ¯¹¶õÙ´÷³ AnsiToOem ( cTxt_dri ) : &‚"'(õŠ!‡…)-ƒˆŒ–“„‰‹” It is strange that the problem does NOT occur in FWH 13.07. It does occur in FWH 13.10...
Estimado Elmo, tu código, tal cual, sin cambiar nada. De hecho si no apareciese, no se te crearia TEXTO.PDF pdfend:=At("%EOF",CTXT) sin eso, no obtendrias un valor que te permite salvar el fichero TEXTO.PDF ok,Entiendo, pero a mi me lo crea de igual forma pero en Blanco con 0KB,,, ...
... SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL ACTIVATE DIALOG oDlg CENTERED Return nil FUNCTION WebPageSource(cUrl) local oIE,cTXT,cHTML,cMemo:="" local cString LOCAL cString1,cString2 LOCAL oUrl, oCli,lOk DEFAULT cUrl := "https://www.bcv.org.ve" BEGIN SEQUENCE ...
... in function which calls __mvSetBase() will not be released when the function exit but will be inherited by its caller. Function sa_1() sa_2() ? cTXT Return .T. Function sa_2() Private cTXT:="CIAO" __mvSetBase() // importante Return .T.
I use: cPdf = HB_BASE64DECODE( cTxt ) MEMOWRIT( "Test.Pdf", cPdf, .F. ) [/code] I don't get the correct pdf? if the same cTxt I decode in https://base64.guru/converter/decode/pdf I get the correct PDF. Best regards, Miloš look ...
This is my code: Function test() LOCAL cFileName := cGetFile("*.txt", "Izaberi TXT" ) LOCAL cPdf cTxt=MemoRead(cFileName) // I check this cTxt on https://base64.guru/converter/decode/pdf cPdf = HB_BASE64DECODE( cTxt ) return ...
... this is a small test #include "FiveWin.ch"REQUEST DBFCDX Function test()local odbf,cField,ctxt oDbf:=TDatabase():Open( , "Customer", "DBFCDX", .T. ) oDbf:setorder(1) cField ="first" ...
... il .PDF e lo converto in Base64 sempre con estensione .PDF ) esempio il mio .pdf è fat_1234.pdf lo converto in Base64 con nome 64_fat_1234.pdf ctxt := MEMOREAD( cFile ) cRiga := "<Allegati>" + CRLF cRiga += "<NomeAttachment>" + cNome + "</NomeAttachment>" ...
... il .PDF e lo converto in Base64 sempre con estensione .PDF ) esempio il mio .pdf è fat_1234.pdf lo converto in Base64 con nome 64_fat_1234.pdf ctxt := MEMOREAD( cFile ) cRiga := "<Allegati>" + CRLF cRiga += "<NomeAttachment>" + cNome + "</NomeAttachment>" ...
... por molestar tanto. Lo que no he podido hacer funcionar que desde el Boton "#8034", vaya a imprimir el contenido cd la variable cTxt a la Function Printbox(). Muhos Saludos Antonio Codigo de Prueba Origen Texto Enriquecido: #include "FiveWin.ch"function Main() ...