🚀 go-pugleaf

Hmm, I can't make it work. I get the error: "Cannot assign requested 
address".
Here's my code:

void __fastcall TForm1::IdTCPClient1Connected(TObject *Sender)
{
IdTCPClient1->Host = Edit1->Text;
IdTCPClient1->Port = Edit2->Text.ToIntDef(0);
TFileStream *FStream = new TFileStream("test\\test.txt", fmOpenRead |
fmShareDenyWrite);
    try
    {
        IdTCPClient1->WriteStream(FStream, true, true);
    }
    __finally {
        delete FStream;
    }


}
//---------------------------------------------------------------------------

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)
{
IdTCPClient1->Connect();
}







"Remy Lebeau (TeamB)" <no.spam@no.spam.com> skrev i meddelandet 
news:439a03e0$1@newsgroups.borland.com...
>
> "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
>
>