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

17
mdl/m_tcp_client_ftp.pas
View File

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