> cDataBlock = REPLICATE(CHR(0),5000) >>
DECLARE Long Logger_Init IN c:\windows\system\taglogger.dll Long ComPort i = Logger_Init(2) DECLARE INTEGER Logger_FileUpload IN c:\windows\system\taglogger.dll STRING @ Tagloggerfile, INTEGER lpDatablock SET PROC TO "d:\vfp projects2\vfp base\clsheap.prg" ADDI oHeap = CREATEOBJ('Heap') cUploadFileName = "Test.txt" cDataBlock = "Hello" nBuffPointer = oHeap.AllocString(cDataBlock) cTaggerLogFileStruc = PADR(ALLTRIM(cUploadFileName),13,chr(0)) + NumToLong(LEN(cDataBlock)) nResult = Logger_FileUpload(@cTaggerLogFileStruc,nBuffPointer) oHeap.Dealloc(nBuffPointer)>John
> >DECLARE Long Logger_Init IN c:\windows\system\taglogger.dll Long ComPort >i = Logger_Init(2) > > >DECLARE INTEGER Logger_FileUpload IN c:\windows\system\taglogger.dll STRING @ Tagloggerfile, STRING @ DataBlock > > >SET PROC TO "d:\vfp projects2\vfp base\clsheap.prg" ADDI > > >cDataBlock = REPLICATE(CHR(0),5000) > > >cUploadFileName = "Test.txt" >cDataBlock = "Hello" > >cTaggerLogFileStruc = PADR(ALLTRIM(cUploadFileName),13,chr(0)) + NumToLong(LEN(cDataBlock)) > >nResult = Logger_FileUpload(@cTaggerLogFileStruc,cDataBlock) > > >>