IOW, there are more messages pumped after OnRequestDone which SHOULD BE PROHIBITED OTHERWISE USE IN MT ENVIRONMENTS WOULD NOT BE POSSIBLE. Francois can you fix this bug per our consultancy agreement?
Best Regards, SZ On 10/11/07, Fastream Technologies <[EMAIL PROTECTED]> wrote: > > Hello, > > Please find my code at http://www.fastream.com/ics/WebStressTesterSRC.zip. > Basically it is like this: > > > void __fastcall TesterThread::startClients(void) > { > clientList = new TList(); > TSslHttpCli *bufferClient; > > for(int i = 0; i < clientsPerThread; ++i) > { > bufferClient = new TSslHttpCli(NULL); > bufferClient->FollowRelocation = false; > bufferClient->OnHeaderData = HTTPClientHeaderData; > bufferClient->OnDocData = HTTPClientDocData; > bufferClient->OnRequestDone = HTTPClientRequestDone; > bufferClient->URL = URL; > bufferClient->Connection = (keepAlive ? "keep-alive" : "close"); > bufferClient->SslContext = SslContext; > > clientList->Add(bufferClient); > > if(method == "GET") > bufferClient->GetASync(); > else if(method == "HEAD") > bufferClient->HeadASync(); > } > } > //--------------------------------------------------------------------------- > > > ... > > void __fastcall TesterThread::HTTPClientRequestDone(TObject *Sender, > THttpRequest RqType, WORD ErrCode) > { > TSslHttpCli *bufferClient = (TSslHttpCli*)Sender; > > if(method == "GET") > bufferClient->GetASync(); // here gives "Busy" error, WHY? ISN'T THIS > THE PROPER WAY TO USE THE COMPONENT?? > else if(method == "HEAD") > bufferClient->HeadASync(); > } > > //--------------------------------------------------------------------------- > Best Regards, > > SZ > -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
