🚀 go-pugleaf

Thanks by the tips.
But as I said, the code I posted is just a test app, not my real application
(but your tips about threads are very useful). The point is: creating the
TIdTCPServer object dinamically doesn't works. When I connect a client
application, the answer I have is: "No connection could be made because the
target machine refused it (10061), on API 'connect' (I'm translating it from
my native language, but I think you'll understand it :-). When the component
is on the form (with the same port, and the same OnExecute function
assigned), it works fine.
    Do you know what's happening?

Thanks,

=======================
J�nior B. Dymow
Desenvolvimento
Specto Pain�is Eletr�nicos
junior@specto.com.br
Fone / Fax: (48) 334-8064
=======================
"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> escreveu na
mensagem news:40f831be$4@newsgroups.borland.com...
>
> "J�nior B. Dymow" <junior@specto.com.br> wrote in message
> news:40f822f9@newsgroups.borland.com...
>
> > It works fine when I create it at designtime, but
> > in runtime it doesn't receive any connection.
>
> Please elaborate.
>
> > I really need to use it at runtime, since may app
> > runs as a service and doesn't have a form.
>
> TService derives from TDataModule, and as such you can place the
> TIdTCPServer on the service at design time just like you can with a form.
>
> > void __fastcall TForm1::vServerSocketConnectEvent(TIdPeerThread
*kpThread)
> > {
> >     ShowMessage("This host has been connected: " +
> > kpThread->Connection->LocalName);
> > }
>
> Do not use ShowMessage() here.  It displays a VCL form, and thus is not
> thread-safe.  The OnConnect event is triggered in the context of the
worker
> thread specified by the AThread parameter, not in the context of the main
> VCL thread.  If you need to use ShowMessage(), you have to use the
thread's
> Synchronize() method so that the VCL form displayed will work properly.
> Otherwise, use a thread-safe dialog, such as the Win32 API's MessageBox()
> function instead.
>
> Also, just an FYI, the LocalName property will display the server's name,
> not the client's.  You have to look up the client's name manually:
>
>     void __fastcall TForm1::vServerSocketConnectEvent(TIdPeerThread
> *AThread)
>     {
>         AnsiString IP = AThread->Connection->Socket->Binding->PeerIP;
>         AnsiString Host = GStack->WSGetHostByAddr(IP);
>         AnsiString Msg = "This host has been connected: " + IP + ", " +
> Host;
>         ::MessageBox(NULL, Msg.c_str(), "Connected", MB_OK);
>     }
>
>
> Gambit
>
>