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

Autoset TYPE I after authentication

This commit is contained in:
mysticbbs 2013-09-23 23:18:19 -04:00
parent 3e7c473b59
commit 483fcf25c5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mdl/m_tcp_client_ftp.pas
View File

@ -129,6 +129,10 @@ Begin
If SendCommand('USER ' + Login) <> 331 Then Exit; If SendCommand('USER ' + Login) <> 331 Then Exit;
If SendCommand('PASS ' + Password) <> 230 Then Exit; If SendCommand('PASS ' + Password) <> 230 Then Exit;
// tossing in BIN mode here for lack of a better place
If SendCommand('TYPE I') = 200 Then;
Result := True; Result := True;
End; End;
@ -278,7 +282,7 @@ Begin
Client.WriteLine ('NLST'); Client.WriteLine ('NLST');
If OpenDataSession and (GetResponse = 150) Then Begin If OpenDataSession and (GetResponse = 150) Then Begin
ResponseData.Clear; ResponseData.Clear;
Repeat Repeat