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

fpc compatibility fix

Browse Source 
doc update

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@236 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-08-12 15:18:57 +00:00
parent 84af5e672b
commit ab89744bda
27 changed files with 425 additions and 519 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/indy_tcp_server.pas
View File

@@ -31,6 +31,9 @@ uses
{$INCLUDE wst.inc}
{$INCLUDE wst_delphi.inc}
const
sSERVER_PORT = 1234;
type
{$IFDEF INDY_9}
@@ -55,7 +58,7 @@ type
public
constructor Create(
const AServerIpAddress : string = '127.0.0.1';
const AListningPort : Integer = 1234;
const AListningPort : Integer = sSERVER_PORT;
const ADefaultClientPort : Integer = 25000
);
destructor Destroy(); override;