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

Document UpdateObject

Browse Source 
Type Library Editor : type alias definition added.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@222 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-07-22 17:09:02 +00:00
parent 0900785a6e
commit d27d04532d
18 changed files with 946 additions and 475 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
wst/trunk/synapse_tcp_protocol.pas
View File

@ -45,6 +45,8 @@ Type
FAddress : string;
FPort : string;
FDefaultTimeOut: Integer;
private
procedure Connect();
public
constructor Create();override;
destructor Destroy();override;
@ -67,6 +69,26 @@ uses binary_streamer, Math;
{ TTCPTransport }
procedure TTCPTransport.Connect();
var
locReconnect : Boolean;
begin
if ( FConnection.Socket = NOT(0) ) then begin
FConnection.Connect(Address,Port);
end else begin
locReconnect := False;
try
locReconnect := not FConnection.CanRead(0);
except
locReconnect := True;
end;
if locReconnect then begin
FConnection.CloseSocket();
FConnection.Connect(Address,Port);
end;
end;
end;
constructor TTCPTransport.Create();
begin
FPropMngr := TPublishedPropertyManager.Create(Self);
@ -109,8 +131,9 @@ begin
buffStream.Position := 0;
wrtr.WriteInt32S(buffStream.Size-4);
if ( FConnection.Socket = NOT(0) ) then
FConnection.Connect(Address,Port);
//if ( FConnection.Socket = NOT(0) ) then
//FConnection.Connect(Address,Port);
Connect();
FConnection.SendBuffer(buffStream.Memory,buffStream.Size);
bufferLen := 0;