eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A37

This commit is contained in:
mysticbbs 2013-09-10 00:48:20 -04:00
parent b1e85d5244
commit e6f5478ded
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mdl/m_tcp_client.pas
View File

@ -68,7 +68,7 @@ Begin
If Client.FSocketHandle = -1 Then Exit;
WriteLn ('DEBUG SEND ' + Str);
// WriteLn ('DEBUG SEND ' + Str);
Client.PurgeInputData(1);
@ -91,6 +91,8 @@ Begin
ResponseType := strS2I(Copy(ResponseStr, 1, 3));
Result := ResponseType;
// WriteLn ('DEBUG RECV ' + ResponseStr);
If ResponseStr[4] = '-' Then Begin
{$IFDEF USESTRINGLIST}
ResponseData.Clear;
@ -109,8 +111,6 @@ Begin
Until Copy(Str, 1, 4) = strI2S(ResponseType) + ' ';
End;
End;
writeln('DEBUG RECV ' + ResponseStr);
End;
End.

17
mdl/m_tcp_client_ftp.pas
View File

@ -5,6 +5,7 @@ Unit m_Tcp_Client_FTP;
Interface
Uses
// SysUtils, //wordrec
m_io_Sockets,
m_Tcp_Client;
@ -194,10 +195,10 @@ Begin
Result := GetResponse = 226;
End Else Begin
If IsPassive Then
WriteLn ('DEBUG unable to connect to FTP server for data session')
Else
WriteLn ('DEBUG unable to establish data session on port ', DataPort);
// If IsPassive Then
// WriteLn ('DEBUG unable to connect to FTP server for data session')
// Else
// WriteLn ('DEBUG unable to establish data session on port ', DataPort);
CloseDataSession;
End;
@ -240,10 +241,10 @@ Begin
Result := GetResponse = 226;
End Else Begin
If IsPassive Then
WriteLn ('DEBUG unable to connect to FTP server for data session')
Else
WriteLn ('DEBUG unable to establish data session on port ', DataPort);
// If IsPassive Then
// WriteLn ('DEBUG unable to connect to FTP server for data session')
// Else
// WriteLn ('DEBUG unable to establish data session on port ', DataPort);
CloseDataSession;
End;