FiveTech Software tech support forums

... DEFAULT cVer TO "1.0" DEFAULT cEncode TO "ISO-8859-1" //BYNAME lFormated ::CRLF := If( lFormated, Chr(13)+Chr(10), "" ) ::aMark := {} ::hFile := FCreate( AllTrim( cOut ), 0 ) ::Procesar( '<?xml version="' + cVer + '" encoding="' + cEncode + '"?>' ) IF !Empty( cSheet ) ::Procesar( '<?xml-stylesheet ...

... posibilidad de "leer" esa parte de la memoria. Algo asi como poder hacer cGraficoBmp:=???????? y despues Memowrit(cGraficoBmp,"pepe.bmp") o h:=fcreate("pepe.bmp",0) fwrite(h,cGraficoBmp) fclose(h) Seria ideal... ¿ La clase TBitmap donde guarda el BMP ?

You can use MEMOWRIT() or FCREATE() to create files. I don't recommend to write in the registry.

EMG

I have code in VB for creating XLS file direct with FCREATE() and FWRITE()
If you interesting I can send this file for conversion to xHarbour

Antonio Tengo programa llamado init_var.prg en el cual utilizo funciones como curdir(), Fclose(), fCreate(), etc,etc. Pues bien, lo compile y genera una lib en base a dicho programa y me genero bien mi lib. Ahora realizo mis test con otro programa y mando llamar una funcion ...

Antonio Tengo programa llamado init_var.prg en el cual utilizo funciones como curdir(), Fclose(), fCreate(), etc,etc. Pues bien, lo compile y genera una lib en base a dicho programa y me genero bien mi lib. Ahora realizo mis test con otro programa y mando llamar una funcion ...

Gracias Antonio, He pensado hacerca del ftp, al igual para hacer zip o desempacar. Si desde el programa construyo un script con fcreate() y luego lo corro con un run(). Desde luego en el script debera conectarme al servidor en caso del ftp y en el caso del pkzip o pkunzip ( algo similar ...

... FILE_FLAG_OVERLAPPED 0x40000000 function Main() LOCAL HOUT1,CFILE cfile := CurDir() + "TEST.txt" IF FILE(CFILE) ferase(cfile) ENDIF HOUT1 := fCreate( cFile ) FWRITE( HOUT1, "THIS IS A NON ACCENTED LINE" + CRLF ) FWRITE( HOUT1, "àéè€ù° Accented LINE" + CRLF ) fClose( hOut1 ) Sendblue( MemoRead(cfile)) ...

... all cases. Would you please post a small sample of its use ? many thanks! Antonio Sure no problem this is a snapshot CFILE := "PRN.TXT" nHandle := fCreate( cFile ) Ntext := SPACE(45) Ntext := CHR(27) +'p'+ CHR(0)+CHR(100)+CHR(100) // this will open a cash tray FWRITE( nHandle, Ntext) fClose( nHandle ...

... printsend(CHR(27) +'p'+ CHR(0)+CHR(100)+CHR(100),ICAISSE) // icaisse is the correct name of the printer And also CFILE := "c:\test.TXT" nHandle := fCreate( cFile ) FWRITE( nHandle, NTEXT) fClose( nHandle ) PrintFileRaw(ICAISSE,CFILE) Again no success. I really do not know where to go from here.... ...

... := .T. Local nContador := 0 Local hFile := 0 Local cOpciones := "" If Len( ::aTo ) > 0 cOpciones := cOpciones + " -tf " + ::cTf IF ( hFile := FCREATE( ::cTf, FC_NORMAL)) == -1 lResultado := .F. Else FWRITE( hFile, ::aTo[1] ) For nContador := 2 To Len( ::aTo ) FWRITE( hFile, "," + ::aTo[nContador] ...

... case case oSocket:Cargo == ST_COMMAND cToken = StrToken( cData, 1 ) do case case cToken == "SENDFILE" oSocket:Cargo = ST_SENDFILE oSocket:hFile = fcreate( StrToken( cData, 2 ) ) case cToken == "MSG" MsgInfo( SubStr( cData, 5 ) ) endcase case oSocket:Cargo == ST_SENDFILE fwrite( oSocket:hFile, ...

... case case oSocket:Cargo == ST_COMMAND cToken = StrToken( cData, 1 ) do case case cToken == "SENDFILE" oSocket:Cargo = ST_SENDFILE oSocket:hFile = fcreate( StrToken( cData, 2 ) ) case cToken == "MSG" MsgInfo( SubStr( cData, 5 ) ) endcase case oSocket:Cargo == ST_SENDFILE fwrite( oSocket:hFile, ...

... " + cConsname + cEol cMsg += LEFT( "OBL TYPE" + SPACE(20), 20 ) + " : " + cObtype + cEol // Create file... cMsgfile = ALLTRIM(cHbl)+".TXT" hCts = FCREATE( cMsgfile, 0) FWRITE( hCts, cMsg ) FCLOSE( hCts ) // Send email... IF ! EMPTY( cTo ) cCmd := "mailer " + cFrom + ' ' + cTo + ' ' + cSubject ...

... cFile1 := StrTran( cfile1, ".dbf", ".xml" ) if !".xml"$cfile1 cfile1+=".xml" end cTable := Left( cDbf, At( ".", cfile1 ) - 1 ) nHandle := fCreate( cFile1 ) // Writes XML header fWrite( nHandle, [<?xml version="1.0" encoding="GB2312" ?>] + CRLF ) fWrite( nHandle, Space( 0 ) + "<" ...