[DUG] help in socket service using delphi 5

[Vikas...]

Hi

Any one have any idea how to tranfer the image from one server to another
server usinng client socket. well i have doen the following things

frist i have makde sure it get connects to the server. It gave me message
saying connected too

then i used the following code
 ClientDataStructure.ClientStrmData := TMemoryStream.Create;
 FillChar(ServerDataStructure.ServerFileSource,SizeOf(ServerDataStructure.ServerFileSource),0);
-----
----
 StrPCopy(ServerDataStructure.ServerFileName,SourceFileName)

------
-----
  ClientDataStructure.ClientStrmData.Seek(0,soFromBeginning);


ClientDataStructure.ClientStrmData.Write(ServerDataStructure.ServerFileName,SizeOf(ServerDataStructure.ServerFileName));
-----
-----
this is the source code i have also added the sam destination code in it
where i have mentioend blank spaces

in the end it says

ClientDataStructure.ClientStrmData.CopyFrom(ClientDataStructure.ClientFileStream,0);
                 ClientDataStructure.ClientStrmData.Seek(0,soFromBeginning);

ClientSocket.Socket.SendStream(ClientDataStructure.ClientStrmData);

it says succes in the end

but i dint able to see any file in destination thing

any diea where i am missing or u suggest any better apporach.

Regards
Vikas




-- 
  vikas
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20080403/52206844/attachment-0002.html