🚀 go-pugleaf

Aaahh. Very clever.

I eventually got a bit desperate and did the following in the worker thread:

//8<-------------------------------------------------
    TClientSocket *csToServer = new TClientSocket (NULL);
    TcsToServer_Data *csdToServer = new TcsToServer_Data;
    Application->ProcessMessages ();

    csToServer->Port     = xxx
    csToServer->Address  = xxx.xxx.xxx.xxx
    csToServer->Data     = cs
    // set up event procs
    csToServer->Active   = true;

    do
    {
        Sleep(10);
        Application->ProcessMessages();
    } while ((!csToServer->Active) && (!csd->Error));

    // continue processing......

    csToServer->Close();
    Application->ProcessMessages();

    delete csdToServer;
    delete csToServer;
//8<-------------------------------------------------

Is there anything wrong with this code - it doesn't seem to cause any
errors.

Thanks,
Tharun

"Remy Lebeau (TeamB)" <gambit47@yahoo.com> wrote in message
news:3ee39d3f$1@newsgroups.borland.com...
>
> "Tharun Pillay" <tharun@webmail.co.za> wrote in message
> news:3ee3378b@newsgroups.borland.com...
>
> > Does anyone know how to implement the VCL
> > TThread->Synchronize using APIs?
> > My problem is I need to call a function in the
> > VCL thread to create a TClientSocket and send it
> > back to my worker thread somehow.
>
> Up to and including BCB5, Synchronize() is implementated using
SendMessage()
> to send a custom message to the main VCL thread, where the lParam of the
> message is a pointer to the thread that is calling Synchronize().  You
could
> do something similar to let the main VCL thread return a pointer back to
> your thread, ie:
>
>     typedef struct
>     {
>         TMyThread *thread;
>         TClientSocket *socket;
>     } TMyStruct;
>
>     #define APPWM_MYMESSAGE    (WM_APP + 100)
>
>     ...
>
>     void __fastcall TMyThread::Execute()
>     {
>         ...
>         TMyStruct s;
>         s.thread = this;
>         s.socket = NULL;
>         if( SendMessage(Application->MainForm->Handle, APPWM_MYMESSAGE, 0,
> (LPARAM)&s) )
>         {
>             // use s.socket as needed
>             delete s.socket;
>         }
>         ...
>     }
>
>     ...
>
>     void __fastcall TMainForm::WndProc(TMessage &Message)
>     {
>         if( Message.Msg == APPWM_MYMESSAGE )
>         {
>             try
>             {
>                 ((TMyStruct*)Message.LParam)->socket = new
> TClientSocket(NULL);
>                 Message.Result = TRUE;
>             }
>             catch(Exception&) {
>                 Message.Result = TRUE;
>             }
>         }
>         else
>             TForm::WndProc(Message);
>     }
>
>
> Gambit
>
>