How transfer binary files from winsock 1

[kctoo]

HELP Me

Configuration:
OS Chinese windowsXP
English Visual Foxpro v6.0

I try to use fread(),ASC(),CHR() function. I still didn't work it.

Below code from Microsoft:
* Transmitter Code.

* INIT event of Comm OLE control
* 28800 baud, no parity, 8 data, and 1 stop bit.
* In RS-232, maximum speed of 28800 baud can be used

This.Settings = "28800,N,8,1"
This.InputLen = 1
This.CommPort = 1
This.PortOpen = .T.

* ONCOMM event of Comm OLE Control
* The following code is needed to make sure that next set of characters
* can be transmitted (CommEvent = 2 is triggered from the receiver side)

IF This.CommEvent = 2
This.input
IF gnTop <= gnEnd
gcString = FREAD(gnFileHandle, 1) && Store to memory
q=asc(gcstring)
* change ASCII to character (size of 3) to preserve the lead char
thisform.olecontrol1.output = str(q,3)
gnTop = gnTop + 1
ENDIF
ENDIF

* INIT event of form

PUBLIC gnFileHandle
PUBLIC gnEnd
PUBLIC gnTop
PUBLIC q

* You should replace 'c:\sample.hlp' with your own binary file
STORE FOPEN('c:\sample.hlp') TO gnFileHandle && Open the file
STORE FSEEK(gnFileHandle, 0, 2) TO gnEnd && Move pointer to EOF
STORE FSEEK(gnFileHandle, 0) TO gnTop && Move pointer to BOF
gntop=1
q=&quot;&quot;

-----------------------

Property of OleControl1

RThreshold = 1 * triggers when at least one char is on the buffer
SThreshold = 3

-----------------------

* Receiver Code.

* INIT event of OleControl1
* 28800 baud, no parity, 8 data, and 1 stop bit.

This.Settings = &quot;28800,N,8,1&quot;
This.InputLen = 3
This.CommPort = 1
This.PortOpen = .T.

* OnComm event

IF This.CommEvent = 2 AND This.InBufferCount > 0
qq=CHR(VAL(This.Input))
=FWRITE(gnFileHandle,qq)
this.output = CHR(26)
ENDIF

* INIT event of form

PUBLIC gnFileHandle

* You should replace 'c:\sample.hlp' with your own file name
IF FILE('c:\sample.hlp') && Does file exist?
gnErrFile = FOPEN('c:\sample.hlp',12) && If so, open read-write
ELSE
gnErrFile = FCREATE('c:\sample.hlp') && If not, create it
ENDIF

= FCLOSE(gnErrFile) && Close the file

STORE FOPEN('c:\sample.hlp',1) TO gnFileHandle && Open the file

* CLICK event of button

*This tells the transmitting side to start sending the file
Thisform.Olecontrol1.output = CHR(26)

-----------------------

Property of OleControl1

RThreshold = 3

 

[Mike Gagnon]

What activex are you using? If I look at my Winsock activex, most if the setting you are using I don't see:

This.Settings = &quot;28800,N,8,1&quot;
This.InputLen = 3
This.CommPort = 1
This.PortOpen = .T.



Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[kctoo]

Mike Gagnon

Have you any sample code for using winsock about binary files transfer ?

kctoo

 

[Mike Gagnon]

kctoo

http://www.experts-exchange.com/Databases/FoxPro/Q_20158742.html

#DEFINE crlf CHR(13)+CHR(10)

oWinsock = CREATEOBJECT("MSWinsock.Winsock.1")
oWinsock.Protocol = 0     && 0=TCP Protocol, 1=UDP
oWinsock.RemoteHost = "mail.hyperlinx.net"
oWinsock.RemotePort = 25 && smtp port.
oWinsock.Connect
=Inkey(.25)
OWinsock.senddata("Helo myself.com" + crlf) && You can change this string to anything else..
line1 = "mail from:" + Chr(32) + "mike.gagnon@slpcanada.com" + CrLf
line2 = "rcpt to:" + Chr(32) + "mike.gagnon@slpcanada.com"+ CrLf
line3 = "Date:" + Chr(32) + DTOC(DATE()) + CrLf
line4 = "From:" + Chr(32) + "m.gagnon@nowhere.com" + CrLf
line5 = "To:" + Chr(32) + "m.gagnon@nowhere.com" + CrLf
line6 = "Subject:" + Chr(32) + "Test winsock mail" + CrLf
line7 = "This is a test body of the message" + CrLf
line9 = "X-Mailer: Kannan's Test mail" + CrLf
line8 = line4 + line3 + line9 + line5 + line6 + line7
oWinSock.senddata(line1)
=Inkey(.25)
oWinsock.senddata(line2)
=Inkey(.25)
oWinsock.senddata(line8 + "." + crlf)
=Inkey(.25)
oWinsock.senddata("quit")
=Inkey(.25)
oWinsock.close()

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[DSummZZZ]

If you're intersted in using API calls, take a look at my FAQ:

How do I transfer files using FTP?
faq184-3234

Also be sure and download the ftp client form I wrote and take a look at it:

http://www.davesummers.net/foxprolinks.htm

Dave S.

 

[kctoo]

hi mgagnon ,

it send the text is ok. Now i don't know
how to send attachment files or binary files in winsock ?
Finally, It occur incorrect files size after the files transimission.

** Server side ***
Dataarrival event
LPARAMETERS bytestotal
thisform.tcpserver.Object.GetData(@strData)
mstring=mstring+strdata

** Save Attachmetn Command Buttion
gnErrFile = FCREATE('C:\HANDBOOK\ARCHB01.GIF')
=FWRITE(gnErrFile,mString)
=FCLOSE(gnErrFile)

kctoo

 

[Mike Gagnon]

kctoo

I think from what I read, Winsock is more a low-level transporter, you may consider a higher level one that permits file attachements, like FTP as Dave S. suggested, or HTTP, Rick Strahl has a good article on file transfers (

http://www.west-wind.com/presentations/wchttp.htm)

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[DSummZZZ]

If you're going to use the Winsock control for a binary file, you may need to use the option type parameter in the GetData() call:

object.GetData data, [type,] [maxLen]

Since the documentation is so lacking, I don't know what the different values are for type, but if you can figure out what vbByte or vbInteger translates to, you may want to try them.


Dave S.