>
>  Still having problems with this socket app. I am now using ICS for the
>  socket components after giving up on Indy.
>   
>  I am writing a TMemorystream to the socket at the client end, and reading
>  into a TMemorystream at the server end.
>   
>  procedure TClientThread.ServerWSocketDataAvailable(Sender: TObject; Error:
>  Word);
>  var
>    Command: Byte ;
>    ms: TMemoryStream ;
>  begin
>    ms := TMemoryStream.Create ;
>    try
>      Size := ClientWSocket.Receive(@ms, SizeOf(Packet)+1) ;
>      if Size > 0 then
>      begin
>        ms.Seek(1, soFromBeginning) ;
>        ms.Read(Command, SizeOf(command)) ;
>  SizeOf(Packet) is the max size I expect in. Size shows the correct size for
>  the structure I have sent.
>  The ms.Seek line fails with "Access violation at 0x77f60b77: write of
>  address 0x00ae0ffc"
>   
>  Any ideas?
>   

>From the receive method on the client socket inside the server Data Available event, 
>it is hard to guess your intentions.
It is probably worth you taking apart the TCPSVR sample app that ships with ICS. It is 
very well commented.


---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to