- 240
- 57
По сути говоря вылетает вот такая ошибка
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
idFTP1.Host:='aiochat.eu5.org';
idFTP1.Port:=21;
idFTP1.Username:='aiochat.eu5.org';
idFTP1.Password:='пароль; \\ заменил тут
idFTP1.Connect;
IdFTP1.Put('c:\chatlog.txt','chatlog.txt' ,false);
idFTP1.Disconnect;
end;
procedure TForm1.IdFTP1Connected(Sender: TObject);
begin
ShowMessage('Готово!');
end;
procedure TForm1.IdFTP1Disconnected(Sender: TObject);
begin
ShowMessage('чет не то');
end;