Hi, erstmal danke für die Antwort. Wenn ich ehrlich bin habe ich diesen Text nicht verstanden.
Ich möchte mal meinen Quelltext zeigen. Vielleicht kann dann jemand sagen (oder du) wo das rein muss.
Erzeugen des FTPClient:
Delphi-Quellcode:
function CreateFTPClient(Host,Port,User,Pass:String):Boolean;
begin
Result:=True;
try
FTPClient:=TSslFtpClient.Create(nil);
FtpClient.HostName :=Host;
FTPClient.Port:=Port;
FtpClient.UserName:=User;
FtpClient.PassWord:=Pass;
FtpClient.SslType:=sslTypeAuthTls;
FtpClient.SslContext:=TSslContext.Create(nil);
FtpClient.SslContext.SslVerifyPeer := False; // Kein Zertifikatscheck
FTPClient.Passive:=True;
FTPClient.Connect;
except
Result:=False;
end;
end;
Upload:
Delphi-Quellcode:
function FTPUpload(FName:String):Boolean;
begin
Result:=True;
FTPClient.Binary:=True;
FTPClient.LocalFileName:=FName;
FTPClient.HostFileName:=FTPFName;
if ( not FTPClient.Put ) then begin
WriteLn(FTPClient.LastResponse);
end;
end;