Hi. Help please. This code
--server--
program serverdelphi;
{$APPTYPE CONSOLE}
uses
sysutils,
dateutils,
OverbyteIcsWSockBuf,
OverbyteIcsWSocket,
OverbyteIcsWSocketS;
type
{ TWorkClass }
TWorkClass = class
public
procedure StateChange(Sender: TObject; OldState, NewState :
Hello Alexey,
Your code has avery common flaw: there is no message pump allowing events to
be processed. Look at one of the console demo to see how to build a console
mode program with a message pump.
btw: Do not use OnStateChange event for anything else than displaying
informations. Use
Hello Francois,
Wednesday, November 11, 2009, 4:02:15 PM, you wrote:
Hello Alexey,
Your code has avery common flaw: there is no message pump allowing events to
be processed. Look at one of the console demo to see how to build a console
mode program with a message pump.
tnx. it`s working :)