Don't bother. the file control does not do what i want.
the createfile and writefile however do.
sample of my code:
the functions for winsocket connect are missing but this is just to
give a basic idea. For me it functions perfectly, ik can receive a zip
file and save an exact copy of it.
ShowOKButton True
Const CREATE_ALWAYS = 2
Const GENERIC_WRITE = &H40000000
Const GENERIC_READ = &H80000000
Const INVALID_HANDLE_VALUE= -1
Declare "Function ReadFile Lib ""Coredll.dll"" ( ByVal hFile As Long,
ByVal lpBuffer As String, ByVal nNumberOfBytesToRead As Long, byval
lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long"
Declare "Function WriteFile Lib ""Coredll.dll"" Alias ""WriteFile"" (
ByVal hFile As Long, Byval lpBuffer As String, ByVal
nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal
lpOverlapped As Long) As Long"
Declare "Function CloseHandle Lib ""Coredll.dll"" Alias
""CloseHandle""( ByVal hObject As Long) As Long"
Declare "Function CreateFile Lib ""Coredll.dll"" Alias ""CreateFileW""
(ByVal lpFileName As string, ByVal dwDesiredAccess As Long, ByVal
dwShareMode As Long,lpSecurityAttributes As Long, ByVal
dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long,
ByVal hTemplateFile As Long) As Long"
Dim recdata
Sub winsock_DataArrival(ByVal bytesTotal)
winsock.getData recdata, (vbBYTE+vbARRAY)
For ict = 0 To bytesTotal-1
recdata=d&ChrB(data(ict))
Next
savefile(recdata)
End Sub
Sub savefile(mystring)
Fname="/my documents/test.zip"
fHandle = CreateFile(Fname, GENERIC_WRITE, 0, 0, CREATE_ALWAYS, 0, 0)
If fhandle <> INVALID_HANDLE_VALUE Then
f=WriteFile (fhandle, MyString, LenB(MyString), lWritten, 0)
Else
MsgBox("no file created:"&fhandle)
End If
CloseHandle(fHandle)
End Sub
--- In [email protected], "paullussie13" <paullussi...@...>
wrote:
>
> hello,
>
> i am having trouble saving a binary file i receive with winsock.(using
> nsbasic 7.0)
>
> Somehow the received file is not thesame as the file transmitted.
>
> I tried saving data with file.put but this somehow adds a couple of
> bytes at the beginning of the file.
>
> I also tried file.lineprint but this adds a crlf to the end of the file.
>
> data is received with winsock with the (vbBYTE+vbARRAY)
> Also the data is comming to the pda correct, but i need a way to save
> it as a file.
> I cannot use an ftp server.
>
> Any help??
>
>
> Regards Paul
> i tried searching this group but to no avail.
>
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"nsb-ce" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/nsb-ce?hl=en
-~----------~----~----~----~------~----~------~--~---
