From c12aa847be1b9ab334a440a98e24fb2a1431b761 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sat, 7 Sep 2013 17:56:12 -0400 Subject: [PATCH] test --- mdl/m_tcp_client.pas | 6 +++--- mdl/m_tcp_client_ftp.pas | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mdl/m_tcp_client.pas b/mdl/m_tcp_client.pas index 78d2d0b..a780a45 100644 --- a/mdl/m_tcp_client.pas +++ b/mdl/m_tcp_client.pas @@ -17,9 +17,9 @@ Type ResponseData : TStringList; NetInterface : String; - Constructor Create (NetI: String); Virtual; - Destructor Destroy; Override; - Function Connect (Address: String; Port: Word) : Boolean; Virtual; + Constructor Create (NetI: String); Virtual; + Destructor Destroy; Override; + Function Connect (Address: String; Port: Word) : Boolean; Virtual; Function SendCommand (Str: String) : Integer; Function GetResponse : Integer; End; diff --git a/mdl/m_tcp_client_ftp.pas b/mdl/m_tcp_client_ftp.pas index bb84798..e5ce433 100644 --- a/mdl/m_tcp_client_ftp.pas +++ b/mdl/m_tcp_client_ftp.pas @@ -5,7 +5,7 @@ Unit m_Tcp_Client_FTP; Interface Uses - SysUtils, // wordrec get rid of it + SysUtils, // replace wordrec and remove m_io_Sockets, m_Tcp_Client;