Hi Ed

Thanks for the help. I have tried the following code, but just receive an Declare DLL call caused an excption error.

DECLARE INTEGER  Logger_FileUpload IN c:\windows\system\taglogger.dll STRING @ Tagloggerfile, STRING @DataBlock

cUploadFileName = "TEST.TXT"
cDataBlock = "This is a test text for the dll file"

SET LIBRARY TO "d:\vfp projects2\vfp base\clsheap.prg" ADDITIVE 

cTaggerLogFileStruc = PADR(ALLTRIM(cUploadFileName),13,chr(0)) + NumToLong(LEN(cDataBlock))
nResult = Logger_FileUpload(@cTaggerLogFileStruc,@cDataBlock)
MESSAGEBOX(nResult)

John

>>Hi Jose
>>
>>Thanks for the code.
>>
>>I am also having trouble using the Logger_File_Upload and was wondering if you have any ideas why it won't work.
>>
>>
>>Here's the VB code
>>
>>

>>
>>Public Type TagloggerFile
>>  filename(1 To 13) As Byte
>>  filelength As Long
>>End Type
>>
>>Declare Function Logger_FileUpload Lib "Taglogger.dll" (ByRef filename As TagloggerFile, ByVal data As String) As Long
>>

>
>The API declaration should read:
>
>

DECLARE INTEGER  Logger_FileUpload IN TagLogger.DLL STRING @ Tagloggerfile, STRING @ DataBlock

>
>The Tagloggerfile structure should consist of a null padded 8.3 format name, followed by a 4 byte file length, representing the length of the data to be written. Using the NumToLong() function from my ClsHeap library (available for download in the download section as Heap Allocation Class), I'd construct it as:
>
>

cTaggerLogFileStruc = PADR(ALLTRIM(cUploadFileName),13,chr(0)) + NumToLong(LEN(cDataBlock))
>nResult = Logger_FileUpload(@cTaggerLogFileStruc,cDataBlock)

>
>

>>
>>Dim file As TagloggerFile
>>  Dim data As String * 50000
>>  Dim filename As String
>>  Dim k As Integer
>>  Dim filedata As String
>>  Dim status As Long
>>
>>
>>  'Name and contents of the file to be uploaded to the Taglogger
>>  filename = "dlltest.txt"
>>  filedata = "This is a test of the Logger_FileUpload function."
>>
>>
>>  'Convert string to array of bytes padded with nullbytes
>>  For k = 1 To 13
>>    If k <= Len(filename) Then
>>      file.filename(k) = Asc(Mid(filename, k, 1))
>>     MsgBox (Asc(Mid(filename, k, 1)))
>>    Else
>>      file.filename(k) = 0
>>    End If
>>  Next
>>
>>  file.filelength = Len(filedata)
>>
>>  data = filedata
>>
>>  status = Logger_FileUpload(file, data)