🚀 go-pugleaf

"Jesper" <jesper@safholm.com> wrote in message
news:4399dee8@newsgroups.borland.com...

> IdTCPClient1->BoundIP = Edit1->Text; //The IP of the other computer

That is not correct.  The BoundIP property is used to specify the IP of the
*local* machine that the socket will bind to.  Use the Host property instead
to specify the IP of the *remote* machine that the server is running on.

> IdTCPClient1->WriteFile("test\\test.txt");

I would not suggest using WriteFile() in this situation.  It does not
provide any means of telling the other party how much data is actually being
sent.  I would suggest using WriteStream() instead, ie:

    TFileStream *FStream = new TFileStream("test\\test.txt", fmOpenRead |
fmShareDenyWrite);
    try
    {
        IdTCPClient.WriteStream(FStream, true, true, 0);
    }
    __finally {
        delete FStream;
    }

Then you can use ReadStream() on the TIdTCPServer to receive the data.
ReadStream() can read the stream size ahead of time in order to optimize the
reading:

    void __fastcall TForm1::IdTCPServer1Connect(TIdPeerThread *AThread)
    {
        AnsiString FileName = "some file name here";
        TFileStream *FStream = new TFileStream(FileName, fmCreate);
        try
        {
            try
            {
                AThread->Connection->ReadStream(FStream, -1, false);
            }
            __finally
            {
                delete FStream;
            }
        }
        catch(const Exception &)
        {
            DeleteFile(FileName);
        }
    }

> if(IdTCPClient1->Connected() == true)

Why are you checking that after calling WriteFile() instead of after calling
Connect()?

In any case, you don't need to check it at all anyway since Connect() will
throw an exception if it fails.

> My problem is IdTCPClient1->WriteFile.

What is your actual problem with it?  Please be more specific.


Gambit