FiveTech Software tech support forums

... - HB_DYN_CTYPE_BOOL_PTR - HB_DYN_CTYPE_VOID - HB_DYN_CTYPE_VOID_PTR - HB_DYN_CTYPE_STRUCTURE - HB_DYN_CTYPE_STRUCTURE_PTR Source example: cBuffer := SPACE (1024) nCopyCharacters := HMG_CallDLL ("USER32.DLL", HB_DYN_CTYPE_INT, "GetWindowText", Win_1.HANDLE, @cBuffer, ...

... nMode AS _INT ) AS _INT PASCAL FROM "OpenComFiscal" LIB "winfis32.dll" DLL32 FUNCTION MandaPaqueteFiscal( nHandler AS _INT, cBuffer AS LPSTR ) AS _INT PASCAL FROM "MandaPaqueteFiscal" LIB "winfis32.dll" DLL32 FUNCTION UltimaRespuesta( nHandler AS _INT, ...

... static function SendFiles( cSource, cTarget, nBufSize, oFTP ) local hSource local cBuffer := Space( nBufSize ) local nBytes local oFile if ! File( cSource ) MsgStop( "File not found: " + cSource ) Return .f. endif hSource ...

... LOCAL I Local nBaudeRate:=9600 Local ndatabits :=8 Local nparity :=0 //0NONE, 1 Odd, 2Even Local nstopbit :=1 Local cRead :="" Local cBuffer :=SPACE(512) Local cRes :="" DEFAULT cPortName:="COM3" IF !Init_Port( cPortName, nBaudeRate , nDatabits , nParity , nStopbit ...

ArgConsulting

Quizás el FW_SaveImage( cBuffer, cFile ) te ayude.

Buenos dias

El comando FOpen() abre el archivo. Nada mas.

Fseek() posiciona el puntero de lectura.

Dentro de tu bucle no cambias el puntero con otro FSeek()
Como FRead() te devuelve el numero de bytes ledidos, yo comprobaría antes de escribir si cBuffer tiene contenido.

Saludos

... in your table ... this is my code .. note this line is the key to the code oRsCh:Fields("notes"):AppendChunk( VTArrayWrapper():New( 17, cBUFFER ) ) //------------------------------Static Func _Doit( oRsTrav, oRsCh, cPROJECTEID, cPath,oDLg )LOCAL cFILENAME, nSTRING, nLEN, nSTART, ...

... "Capturando el peso de la báscula...    [ Salir: tecla ESC ]" OF oDlg   ACTIVATE DIALOG oDlg NOWAIT CENTER   Inkey(1) endif cBuffer:=Space(100) nBytes := ReadComm (nComm,@cBuffer) If FlushComm( nComm, 0 ) != 0   nError = GetCommError( nComm )  ...

... retrieve the filename up to the null character only. method Directory( cMask ) CLASS TFtp    local hFTPDir, aFiles := {}    local oWin32FindData, cBuffer    DEFAULT cMask := "*.*"    STRUCT oWin32FindData       MEMBER nFileAttributes  AS DWORD       MEMBER nCreationTime    AS STRING ...

... JSON. ----8<---- REQUEST HB_GT_STD_DEFAULT PROCEDURE Main() LOCAL hProcess LOCAL hStdIn LOCAL hStdOut LOCAL hStdErr LOCAL nSize := 1024 LOCAL cBuffer LOCAL nReadedErr LOCAL nReadedOut LOCAL hInput := { => } LOCAL n LOCAL hPerson LOCAL hDecode LOCAL cInput LOCAL cError := "" LOCAL ...

... the VarBinaryMax field .. Note the key here is the AppendChunk method .. oRsCh:Fields("notes"):AppendChunk( VTArrayWrapper():New( 17, cBUFFER ) ) //------------------------------Static Func _Doit( oRsProj, oRsCh, cPROJECTEID, cPath )LOCAL cFILENAME, nSTRING, nLEN, nSTART, SAYING, ...

quindi #include "FiveWin.ch" #include "FileIo.ch" FUNCTION FatturazioneElettronica() LOCAL cBuffer LOCAL nHandle nHandle := fCreate( cXmlFile, FC_NORMAL ) fWrite( nHandle, [<?xml version="1.0" encoding="UTF-8" ?>] + CRLF ) fWrite( ...

... TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ReadComm( nComm, @cBuffer ) select RAWPOIDS append blank replace data with cBuffer return nil

... TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ReadComm( nComm, @cBuffer ) select RAWPOIDS append blank replace data with cBuffer return nil

Hi Jack, I don't use the library you're using, so let's go for trial... The Readcomm function expects Cbuffer as: A string variable supplied by reference where ReadComm() will place the read bytes. The length of the initial supplied value specifies the wished number of bytes ...