pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Indy support defines hadling for FPC.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@729 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-03-06 20:39:37 +00:00
parent 73e6de8fde
commit 76b3f1fc67
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
wst/trunk/indy_tcp_server.pas
View File

@ -210,13 +210,15 @@ var
begin
inherited Create();
FTCPServerObject := TIdTCPServer.Create({$IFNDEF INDY_10}nil{$ENDIF});
{$IFDEF INDY_9}
{$IFDEF WST_DELPHI}
{$IFDEF INDY_9}
FTCPServerObject.ThreadClass := TwstIndy9Thread;
{$ENDIF INDY_9}
{$IFDEF INDY_10}
{$ENDIF INDY_9}
{$IFDEF INDY_10}
FTCPServerObject.Scheduler := TIdSchedulerOfThreadDefault.Create(FTCPServerObject);
TIdSchedulerOfThread(FTCPServerObject.Scheduler).ThreadClass := TwstIndy10Thread;
{$ENDIF INDY_10}
{$ENDIF INDY_10}
{$ENDIF WST_DELPHI}
b := FTCPServerObject.Bindings.Add();
b.IP := AServerIpAddress;
b.port := AListningPort;