Hello, Why don't you simply set bMsgOK:=true when OnDataSent event occure and change your loop into an application.processmessages loop instead a CliSocket.MessagePump ?
regards. AD> However, in my webapplication things go wrong while the code is straight AD> forward like the clientdemo. There are only a few things differently: I need AD> a synchronous call. So I have to wait until the ondatasent has finished. On AD> this event I set a status bit to allow the application to go on. The first AD> time it works, the second time, it doesn't, the third time it works, etc. AD> I'm using the messagepump of the clientsocket to wait: AD> function TWebModule5.BuildUDDI : string; AD> begin AD> bMsgOk := false; AD> while not bMsgOk do begin AD> CliSocket.MessagePump; AD> sleep(100); AD> end; AD> result := Buffer; AD> end; AD> I'm sure I'm doing things wrong. Hints? AD> albert AD> -- AD> To unsubscribe or change your settings for TWSocket mailing list AD> please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket AD> Visit our website at http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
