FIX: Ftp plugin

This commit is contained in:
Alexander Koblov 2009-11-10 15:01:47 +00:00
commit c22b57be31

View file

@ -250,9 +250,8 @@ begin
begin
LogProc(PluginNumber, MSGTYPE_CONNECT, PAnsiChar('CONNECT ' + ConnectionName));
sTemp:= Connection.InitCommands;
repeat
while sTemp <> EmptyStr do
FtpSend.FTPCommand(Copy2SymbDel(sTemp, ';'));
until sTemp = EmptyStr;
ActiveConnectionList.AddObject(ConnectionName, FtpSend);
Result:= True;
end