Thank you, this code sends and receives data.
However, it corrupts data! I always got back some other characters than
zeroes: an Error text is produces by this program.
If I change CHR(0) to some other character, for example

cBuffer = REPLICATE( CHR(1), 100 )

Is it possible to send 00 characters without data corruption ?


>I think there are some glitches in your code. First, you should remember that your connection is never 8 MBPS and up, so always give some time between your send and your receive command. I guess the code that you showed me runs undefinetly because cStr is probably always empty.
>The following is the way i would implement what you want to do, tell me if it works ok:
>

>** form.init method
>ACTIVATE SCREEN
>CLEAR
>ON SHUTDOWN QUIT
>SET TALK OFF
>SET ECHO OFF
>
>with ThisForm
>   .OleControl1.LocalAddress = "194.106.108.233" &&& your ip
>   .OleControl1.LocalPort = 0
>   .OleControl1.Create()
>   .OleControl1.RemoteNameAddrXlate = .T.
>   .OleControl1.RemoteName = "pepe.online.ee"
>   .OleControl1.RemotePort = 7
>   .OleControl1.Blocking = .F.
>   .OleControl1.ConnectTimeout = 5
>   .OleControl1.object.Connect()
>endwith
>
>DO WHILE THIS.olecontrol1.state!=4
>  IF INKEY(0.5)=27
>    RETURN .F.
>    ENDIF
>  ? 'Connecting', THIS.olecontrol1.lasterrorstring
>ENDDO
>
>m.cBuffer = REPLICATE( CHR(0), 100 )
>local dummyWait
>
>DO WHILE INKEY(.5)!=27 and THIS.olecontrol1.state=4
>  This.OleControl1.SendBuffer = m.CBuffer &&& you don't need CREATEBINARY
>  THIS.OleControl1.object.Send()
>  dummyWait = inkey(3) &&& waits 3 seconds to give some time to the send
>  CStr = ''
>  DO WHILE INKEY(.5)!=27 and THIS.olecontrol1.state=4 AND EMPTY(cStr)
>    THIS.OleControl1.object.receive()
>    cStr = this.olecontrol1.receivebuffer
>    ? THIS.olecontrol1.lasterrorstring
>  ENDDO
>
>  ?'Received', len(cStr), cStr
>  IF cStr!=m.cBuffer
>     ?? 'Error'
>   ELSE
>    ?? 'OK'
>    ENDIF
>  ENDDO
>RETURN .F.
>

>
>
>
>
>
>>Jaime, thank yor for help. I tried to use your code and produces the following program. This program doesn't receive any data (receive buffer is empty):
>>an infinite loops occurs if calling receive command
>>and no error occurs. If I implement the same thing using MSWINSOCK, it works. Can you point me what is wrong with this code ?
>>
>>

>>** form.init method
>>ACTIVATE SCREEN
>>CLEAR
>>ON SHUTDOWN QUIT
>>SET TALK OFF
>>SET ECHO OFF
>>
>>with ThisForm
>>   .OleControl1.LocalAddress = "194.106.108.233" &&& your ip
>>   .OleControl1.LocalPort = 0
>>   .OleControl1.Create()
>>    .OleControl1.RemoteNameAddrXlate = .T.
>>    .OleControl1.RemoteName = "pepe.online.ee"
>>   .OleControl1.RemotePort = 7
>>   .OleControl1.Blocking = .F.
>>   .OleControl1.ConnectTimeout = 5
>>   .OleControl1.object.Connect()
>>endwith
>>
>>DO WHILE THIS.olecontrol1.state!=4
>>  IF INKEY(0.5)=27
>>    RETURN .F.
>>    ENDIF
>>  ? 'Connecting', THIS.olecontrol1.lasterrorstring
>>  ENDDO
>>
>>cBuffer = REPLICATE( CHR(0), 100 )
>>
>>DO WHILE INKEY(.5)!=27 and THIS.olecontrol1.state=4
>>  THIS.olecontrol1.send( CREATEBINARY(m.cBuffer) )
>>  CStr = ''
>>  * ??????????????????????????????????????????????????
>>  * The following loop will run infinitely. Why ?
>>  DO WHILE INKEY(.5)!=27 and THIS.olecontrol1.state=4 AND EMPTY(cStr)
>>    THIS.olecontrol1.receive(1)
>>    cStr = this.olecontrol1.receivebuffer
>>    ? THIS.olecontrol1.lasterrorstring
>>    ENDDO
>>
>>  ?'Received', len(cStr), cStr
>>  IF cStr!=m.cBuffer
>>     ?? 'Error'
>>   ELSE
>>    ?? 'OK'
>>    ENDIF
>>  ENDDO
>>RETURN .F.
>>

>>
>>>Your code doesn't seem to connect the right way. If your Socket/X control's name is olecontrol1, your should start by doing something like this to connec:
>>>

>>>with ThisForm
>>>   .OleControl1.LocalAddress = "192.168.1.1" &&& your ip
>>>   .OleControl1.LocalPort = 0
>>>   .OleControl1.Create()
>>>   *** if you connect by ip address, you should do then
>>>    .OleControl1.RemoteNameAddrXlate = .F.
>>>    .OleControl1.RemoteAddress = "212.155.99.148"  &&& other side's ip
>>>   *** otherwise if you connect by name
>>>    .OleControl1.RemoteNameAddrXlate = .T.
>>>    .OleControl1.RemoteName = "www.eetasoft.ee"
>>>
>>>   .OleControl1.RemotePort = 7
>>>   .OleControl1.Blocking = .F.
>>>   *** now set a connection timeout, let's say 5 seconds
>>>   .OleControl1.ConnectTimeout = 5
>>>
>>>   *** finally connect...
>>>   .OleControl1.object.Connect()
>>>endwith
>>>

>>>Now, if you check ThisForm.OleControl1.State, it should really be 4 and then you can go on with the data transmissions.
>>>
>>>Cheers,
>>>Jaime
>>>
>>>>I need to send and receive 00 bytes from tcp port.
>>>>I have found that ms winsock control corrupts tcp packets containing 00
>>>>bytes.
>>>>
>>>>So I desided to use Mabry Socket/X control.
>>>>
>>>>I made a simple test program. This program sends TCP packets to port 7
>>>>and receives data from this port.
>>>>
>>>>I dropped Socket/X control to vfp 5 form and added the following code
>>>>to form init :
>>>>
>>>>ACTIVATE SCREEN
>>>>CLEAR
>>>>ON SHUTDOWN QUIT
>>>>THIS.olecontrol1.CREATE()
>>>>DO WHILE THIS.olecontrol1.state!=3
>>>> IF INKEY()=27
>>>> RETURN .F.
>>>> ENDIF
>>>> ? THIS.olecontrol1.lasterrorstring, THIS.olecontrol1.state
>>>> ENDDO
>>>>
>>>>THIS.olecontrol1.CONNECT( 'www.eetasoft.ee', 7 )
>>>>
>>>>DO WHILE THIS.olecontrol1.state!=4
>>>> IF INKEY()=27
>>>> RETURN .F.
>>>> ENDIF
>>>> ? THIS.olecontrol1.lasterrorstring, THIS.olecontrol1.state
>>>> ENDDO
>>>>
>>>>cBuffer = REPLICATE( CHR(0), 100 )
>>>>
>>>>DO WHILE INKEY()!=27
>>>> THIS.olecontrol1.sendto('www.eetasoft.ee', 7, m.cBuffer )
>>>> THIS.olecontrol1.receivefrom('www.eetasoft.ee', 7 )
>>>> ? THIS.olecontrol1.lasterrorstring, THIS.olecontrol1.state
>>>> IF LEN(THIS.olecontrol1.receivebuffer)!=100 or ;
>>>> THIS.olecontrol1.receivebuffer!=m.cBuffer
>>>> ?? 'Error'
>>>> ELSE
>>>> ?? 'OK'
>>>> ENDIF
>>>> ENDDO
>>>>
>>>>RETURN .F.
>>>>
>>>>
>>>>However, this code does not cause any internet access at all.
>>>>.State after .create() remains 3
>>>>
>>>>Is it possible to use Mabry Socket/X with VFP ?