🚀 go-pugleaf

"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