pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

New TBlockSocket.Owner property. You know what protocol class own this socket now.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@108 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2010-01-04 09:47:36 +00:00
parent fb25700260
commit 556b38702a
16 changed files with 70 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
blcksock.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 009.006.000 | | Project : Ararat Synapse | 009.007.000 |
|==============================================================================| |==============================================================================|
| Content: Library base | | Content: Library base |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2008, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)1999-2008. | | Portions created by Lukas Gebauer are Copyright (c)1999-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -309,6 +309,7 @@ type
FSocket: TSocket; FSocket: TSocket;
FLastError: Integer; FLastError: Integer;
FLastErrorDesc: string; FLastErrorDesc: string;
FOwner: TObject;
procedure SetDelayedOption(const Value: TSynaOption); procedure SetDelayedOption(const Value: TSynaOption);
procedure DelayedOption(const Value: TSynaOption); procedure DelayedOption(const Value: TSynaOption);
procedure ProcessDelayedOptions; procedure ProcessDelayedOptions;
@ -821,6 +822,8 @@ type
on real socket operations too! on real socket operations too!
Note: Each heartbeat slowing socket processing.} Note: Each heartbeat slowing socket processing.}
property HeartbeatRate: integer read FHeartbeatRate Write FHeartbeatRate; property HeartbeatRate: integer read FHeartbeatRate Write FHeartbeatRate;
{:What class own this socket? Used by protocol implementation classes.}
property Owner: TObject read FOwner Write FOwner;
end; end;
{:@abstract(Support for SOCKS4 and SOCKS5 proxy) {:@abstract(Support for SOCKS4 and SOCKS5 proxy)
@ -1457,6 +1460,7 @@ begin
FStopFlag := False; FStopFlag := False;
FNonblockSendTimeout := 15000; FNonblockSendTimeout := 15000;
FHeartbeatRate := 0; FHeartbeatRate := 0;
FOwner := nil;
{$IFNDEF ONCEWINSOCK} {$IFNDEF ONCEWINSOCK}
if Stub = '' then if Stub = '' then
Stub := DLLStackName; Stub := DLLStackName;

8
clamsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.001.000 | | Project : Ararat Synapse | 001.001.001 |
|==============================================================================| |==============================================================================|
| Content: ClamAV-daemon client | | Content: ClamAV-daemon client |
|==============================================================================| |==============================================================================|
| Copyright (c)2005-2009, Lukas Gebauer | | Copyright (c)2005-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2005-2009. | | Portions created by Lukas Gebauer are Copyright (c)2005-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -121,7 +121,9 @@ constructor TClamSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FDSock := TTCPBlockSocket.Create; FDSock := TTCPBlockSocket.Create;
FDSock.Owner := self;
FTimeout := 60000; FTimeout := 60000;
FTargetPort := cClamProtocol; FTargetPort := cClamProtocol;
FSession := false; FSession := false;

8
dnssend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 002.007.004 | | Project : Ararat Synapse | 002.007.005 |
|==============================================================================| |==============================================================================|
| Content: DNS client | | Content: DNS client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2007, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2000-2007. | | Portions created by Lukas Gebauer are Copyright (c)2000-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -212,7 +212,9 @@ constructor TDNSSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TUDPBlockSocket.Create; FSock := TUDPBlockSocket.Create;
FSock.Owner := self;
FTCPSock := TTCPBlockSocket.Create; FTCPSock := TTCPBlockSocket.Create;
FTCPSock.Owner := self;
FUseTCP := False; FUseTCP := False;
FTimeout := 10000; FTimeout := 10000;
FTargetPort := cDnsProtocol; FTargetPort := cDnsProtocol;

8
ftpsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 003.005.001 | | Project : Ararat Synapse | 003.005.002 |
|==============================================================================| |==============================================================================|
| Content: FTP client | | Content: FTP client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2008, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c) 1999-2008. | | Portions created by Lukas Gebauer are Copyright (c) 1999-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -465,8 +465,10 @@ begin
FFullResult := TStringList.Create; FFullResult := TStringList.Create;
FDataStream := TMemoryStream.Create; FDataStream := TMemoryStream.Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FSock.ConvertLineEnd := True; FSock.ConvertLineEnd := True;
FDSock := TTCPBlockSocket.Create; FDSock := TTCPBlockSocket.Create;
FDSock.Owner := self;
FFtpList := TFTPList.Create; FFtpList := TFTPList.Create;
FTimeout := 300000; FTimeout := 300000;
FTargetPort := cFtpProtocol; FTargetPort := cFtpProtocol;

7
ftptsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.001.000 | | Project : Ararat Synapse | 001.001.001 |
|==============================================================================| |==============================================================================|
| Content: Trivial FTP (TFTP) client and server | | Content: Trivial FTP (TFTP) client and server |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2004, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2003-2004. | | Portions created by Lukas Gebauer are Copyright (c)2003-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -134,6 +134,7 @@ constructor TTFTPSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TUDPBlockSocket.Create; FSock := TUDPBlockSocket.Create;
FSock.Owner := self;
FTargetPort := cTFTPProtocol; FTargetPort := cTFTPProtocol;
FData := TMemoryStream.Create; FData := TMemoryStream.Create;
FErrorCode := 0; FErrorCode := 0;

7
httpsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 003.012.002 | | Project : Ararat Synapse | 003.012.003 |
|==============================================================================| |==============================================================================|
| Content: HTTP client | | Content: HTTP client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2008, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c) 1999-2008. | | Portions created by Lukas Gebauer are Copyright (c) 1999-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -264,6 +264,7 @@ begin
FCookies := TStringList.Create; FCookies := TStringList.Create;
FDocument := TMemoryStream.Create; FDocument := TMemoryStream.Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FSock.ConvertLineEnd := True; FSock.ConvertLineEnd := True;
FSock.SizeRecvBuffer := c64k; FSock.SizeRecvBuffer := c64k;
FSock.SizeSendBuffer := c64k; FSock.SizeSendBuffer := c64k;

7
imapsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 002.005.001 | | Project : Ararat Synapse | 002.005.002 |
|==============================================================================| |==============================================================================|
| Content: IMAP4rev1 client | | Content: IMAP4rev1 client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2004, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2001-2004. | | Portions created by Lukas Gebauer are Copyright (c)2001-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -269,6 +269,7 @@ begin
FFullResult := TStringList.Create; FFullResult := TStringList.Create;
FIMAPcap := TStringList.Create; FIMAPcap := TStringList.Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FSock.ConvertLineEnd := True; FSock.ConvertLineEnd := True;
FSock.SizeRecvBuffer := 32768; FSock.SizeRecvBuffer := 32768;
FSock.SizeSendBuffer := 32768; FSock.SizeSendBuffer := 32768;

7
ldapsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.006.001 | | Project : Ararat Synapse | 001.006.002 |
|==============================================================================| |==============================================================================|
| Content: LDAP client | | Content: LDAP client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2009, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2003-2009. | | Portions created by Lukas Gebauer are Copyright (c)2003-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -499,6 +499,7 @@ begin
FReferals := TStringList.Create; FReferals := TStringList.Create;
FFullResult := ''; FFullResult := '';
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FTimeout := 60000; FTimeout := 60000;
FTargetPort := cLDAPProtocol; FTargetPort := cLDAPProtocol;
FAutoTLS := False; FAutoTLS := False;

7
nntpsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.005.001 | | Project : Ararat Synapse | 001.005.002 |
|==============================================================================| |==============================================================================|
| Content: NNTP client | | Content: NNTP client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2007, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c) 1999-2007. | | Portions created by Lukas Gebauer are Copyright (c) 1999-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -195,6 +195,7 @@ constructor TNNTPSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FData := TStringList.Create; FData := TStringList.Create;
FDataToSend := TStringList.Create; FDataToSend := TStringList.Create;
FNNTPcap := TStringList.Create; FNNTPcap := TStringList.Create;

7
pingsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 004.000.000 | | Project : Ararat Synapse | 004.000.001 |
|==============================================================================| |==============================================================================|
| Content: PING sender | | Content: PING sender |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2007, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2000-2007. | | Portions created by Lukas Gebauer are Copyright (c)2000-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -264,6 +264,7 @@ constructor TPINGSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TICMPBlockSocket.Create; FSock := TICMPBlockSocket.Create;
FSock.Owner := self;
FTimeout := 5000; FTimeout := 5000;
FPacketSize := 32; FPacketSize := 32;
FSeq := 0; FSeq := 0;

7
pop3send.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 002.006.000 | | Project : Ararat Synapse | 002.006.001 |
|==============================================================================| |==============================================================================|
| Content: POP3 client | | Content: POP3 client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2007, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2001-2007. | | Portions created by Lukas Gebauer are Copyright (c)2001-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -203,6 +203,7 @@ begin
FFullResult := TStringList.Create; FFullResult := TStringList.Create;
FPOP3cap := TStringList.Create; FPOP3cap := TStringList.Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FSock.ConvertLineEnd := true; FSock.ConvertLineEnd := true;
FTimeout := 60000; FTimeout := 60000;
FTargetPort := cPop3Protocol; FTargetPort := cPop3Protocol;

7
slogsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.002.002 | | Project : Ararat Synapse | 001.002.003 |
|==============================================================================| |==============================================================================|
| Content: SysLog client | | Content: SysLog client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2003, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2001-2003. | | Portions created by Lukas Gebauer are Copyright (c)2001-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -264,6 +264,7 @@ constructor TSyslogSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TUDPBlockSocket.Create; FSock := TUDPBlockSocket.Create;
FSock.Owner := self;
FSysLogMessage := TSysLogMessage.Create; FSysLogMessage := TSysLogMessage.Create;
FTargetPort := cSysLogProtocol; FTargetPort := cSysLogProtocol;
end; end;

7
smtpsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 003.005.000 | | Project : Ararat Synapse | 003.005.001 |
|==============================================================================| |==============================================================================|
| Content: SMTP client | | Content: SMTP client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2009, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c) 1999-2009. | | Portions created by Lukas Gebauer are Copyright (c) 1999-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -261,6 +261,7 @@ begin
FFullResult := TStringList.Create; FFullResult := TStringList.Create;
FESMTPcap := TStringList.Create; FESMTPcap := TStringList.Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FSock.ConvertLineEnd := true; FSock.ConvertLineEnd := true;
FTimeout := 60000; FTimeout := 60000;
FTargetPort := cSmtpProtocol; FTargetPort := cSmtpProtocol;

7
snmpsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 003.000.009 | | Project : Ararat Synapse | 003.000.010 |
|==============================================================================| |==============================================================================|
| Content: SNMP client | | Content: SNMP client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2007, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2000-2007. | | Portions created by Lukas Gebauer are Copyright (c)2000-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -771,6 +771,7 @@ begin
FQuery.Clear; FQuery.Clear;
FReply.Clear; FReply.Clear;
FSock := TUDPBlockSocket.Create; FSock := TUDPBlockSocket.Create;
FSock.Owner := self;
FTimeout := 5000; FTimeout := 5000;
FTargetPort := cSnmpProtocol; FTargetPort := cSnmpProtocol;
FHostIP := ''; FHostIP := '';

7
sntpsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 003.000.002 | | Project : Ararat Synapse | 003.000.003 |
|==============================================================================| |==============================================================================|
| Content: SNTP client | | Content: SNTP client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2007, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2000-2007. | | Portions created by Lukas Gebauer are Copyright (c)2000-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -162,6 +162,7 @@ constructor TSNTPSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TUDPBlockSocket.Create; FSock := TUDPBlockSocket.Create;
FSock.Owner := self;
FTimeout := 5000; FTimeout := 5000;
FTargetPort := cNtpProtocol; FTargetPort := cNtpProtocol;
FMaxSyncDiff := 3600; FMaxSyncDiff := 3600;

7
tlntsend.pas
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.003.000 | | Project : Ararat Synapse | 001.003.001 |
|==============================================================================| |==============================================================================|
| Content: TELNET and SSH2 client | | Content: TELNET and SSH2 client |
|==============================================================================| |==============================================================================|
| Copyright (c)1999-2008, Lukas Gebauer | | Copyright (c)1999-2010, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2002-2008. | | Portions created by Lukas Gebauer are Copyright (c)2002-2010. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -148,6 +148,7 @@ constructor TTelnetSend.Create;
begin begin
inherited Create; inherited Create;
FSock := TTCPBlockSocket.Create; FSock := TTCPBlockSocket.Create;
FSock.Owner := self;
FSock.OnReadFilter := FilterHook; FSock.OnReadFilter := FilterHook;
FTimeout := 60000; FTimeout := 60000;
FTargetPort := cTelnetProtocol; FTargetPort := cTelnetProtocol;