🚀 go-pugleaf

billaras wrote:
> i want when i click the button to send the file from a serversocket to a
> client socket

Do you mean from a TServerSocket to a TClientSocket ?

>  please help me

Please do not put such words in a Subject.

> what is wrong with the code?is it better to use indy components?

TServerSocket/TClientSocket can transfer files or large amounts
of data very well.

> THANK YOU ALL IN ADVANCE FOR YOUR HELP

???

> ServerSocket1->Socket->Connections[0]->SendStream(file);

Check the returnvalue of SendStream(). It is a bool. Only
if true all went well on the sending side.

> void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
>       TCustomWinSocket *Socket)
> {
> int iLen;
> Pointer BFR;

What is -the type of- Pointer ?
> iLen=ClientSocket1->Socket->ReceiveLength();
> Memo2->Lines->Add(iLen);
> //GetMem(BFR,iLen);

What does GetMem() ? You need to declare a buffer first that can
be used by ReceiveBuf(). Not only an uninitialized pointer.

> ClientSocket1->Socket->ReceiveBuf(BFR,iLen);

Check the return value of ReceiveBuf with iLen. iLen will most certainly
be less than file->Size on the sending side. So wait for other
events of ClientSocket1Read() to add all bytes up until you got the
complete file. You could let the sender send the size first.

> SaveDialog1->Execute();
> TFileStream *file2 = new TFileStream(SaveDialog1->FileName,fmOpenWrite);
> file2->ReadBuffer(BFR,iLen);
> file2->Write(BFR,iLen);

Are you never checking return values of functions ?

How to implement ClientSocket1Read() has been told often in this
group. You can google for it first.

Hans.