🚀 go-pugleaf

"Jesper" <jesper@safholm.com> wrote in message
news:439b1a46$1@newsgroups.borland.com...

> Hmm, I can't make it work. I get the error:
> "Cannot assign requested address".

That should only happen if you are still using the BoundIP property, and
specifying an invalid local IP address, or are specifying a
BoundIP/BoundPort combination that is already in use elsewhere.

> void __fastcall TForm1::IdTCPClient1Connected(TObject *Sender)
> {
> IdTCPClient1->Host = Edit1->Text;
> IdTCPClient1->Port = Edit2->Text.ToIntDef(0);

Why are you changing the Host and Port in the OnConnected event?  You should
not be doing that.  Do that in the button OnClick event that is calling
Connect().

Also, why are you sending the file in the OnConnected event as well?  Indy
is not an event-driven library.  You should send the file in the same code
that is calling Connect(), ie:

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

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        if( IdTCPClient1->Connected() )
            IdTCPClient1->Disconnect();

        IdTCPClient1->Host = Edit1->Text;
        IdTCPClient1->Port = Edit2->Text.ToIntDef(0);
        IdTCPClient1->Connect();
        TFileStream *FStream = new TFileStream("test\\test.txt", fmOpenRead
| fmShareDenyWrite);
        try
        {
            IdTCPClient1->WriteStream(FStream, true, true, 0);
        }
        __finally {
            delete FStream;
        }
        //...
    }


Gambit