Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Convert Code
Message
 
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00720610
Message ID:
00720812
Views:
6
Hi Sergey

The converted code won't work I have been trying for the last few days to get to get the dll to create a file on the tag logger and upload some data. The code in the last post is from a VB working example.

John


>It's converted already in the Re: Convert from VB Thread #719715.
>
>>Can anyone help me convert this VB code to VFP7
>>
>>
>>
>>'Define the datatype TagloggerFile, used by some of the DLL-functions
>>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
>>
>>
>> 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 = "dlltest1.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))
>>     Else
>>      file.filename(k) = 0
>>    End If
>>  Next
>>
>>  file.filelength = Len(filedata)
>>  data = filedata
>>
>>  status = Logger_FileUpload(file, data)
>>
>>
>>
>>Thanks
>>
>>John
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform