|
I have based my app on the echo example, but I have
another question. I can send the received starings to the main thread using
'postmessage' using the following, but I have no idea how I would send data back
to the client from the main thread. Any Ideas?
========================================
procedure TTCPRecvThrd4.Execute;
var // s: string; LCmd: string; MyDataParse4 : pMyDataParse4; begin sock:=TTCPBlockSocket.create; try Sock.socket:=CSock; sock.GetSins; with sock do begin repeat if terminated then break; LCMD := RecvString(500); if lastError<>0 then break; SendString(LCmd+#13#10); New(MyDataParse4); MyDataParse4.IPDataString := LCmd; PostMessage(Application.MainForm.Handle, WM_MyDataParse4, 0, integer(MyDataParse4)); if lastError<>0 then break; until false; end; finally Sock.Free; end; end; ==========================================
|
------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________ synalist-public mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/synalist-public
