Witam. Piszę prostego klienta FTP. Zawsze gdzie tylko mogę to używam Synapse, między innymi dlatego że da sie z tego korzystać w TurboDelphi Explorer. Ściągnąłem sobie demka, najpierw próbuje z sFTP. Wrzuciłem do projektu niezbędne biblioteki cryptlib do obsługi SSL. Kompiluje, robie connect i wywala mi błąd z treścią "TCP/IP Socket error 10060". Zabieram się za kolejne demko TFTPClient, myślę sobie no trudno, nie będzie szyfrowania SSL. Robie wszystko tak jak w demie ale funkcja Login zwraca mi False. Co robie nie tak? Jakie property mam jeszcze uzupełnić? To przykładowy kod napisany na szybkiego:
procedure TForm1.Button1Click(Sender: TObject);
var
aFTP: TFTPSend;
Lista: TFTPListRec;
begin
aFTP := TFTPSend.Create;
try try
aFTP.UserName := 'jakismojlogin';
aFTP.Password := 'jakieshaslo';
aFTP.TargetHost := 'ftp.members.lycos.co.uk';
aFTP.TargetPort := '22';
if aFTP.Login then
begin
form1.Caption := 'Connected';
Lista := aFTP.FtpList.Items[1];
Memo1.Lines.Add(Lista.FileName);
end
else
Form1.Caption := 'Błąd!';
except
ShowMessage('Błąd!!');
end;
finally
//aFTP.Logout;
aFTP.Free;
end;
end;