BorlandTalk.com

JS · Guest

Hi, how can I access the global gOkay? can I do this insise the
Server1Execute method:if global then exit;Thanks.procedure
TformMain.IdTCPServer1Execute(AThread: TIdPeerThread);var i: integer;begin
if global then exit; with AThread.Connection do begin WriteLn('Hello. DB
Server ready.'); i := StrToIntDef(ReadLn, 0); // Sleep is substituted
for a long DB or other call Sleep(5000); WriteLn(IntToStr(i * 7));
Disconnect; end;end;