Ersmtal tausend dank. Aber ich glaube ich peil das grad nicht. Hier mal ein beispiel...
Delphi-Quellcode:
unit FTP;
interface
uses
clTcpClient, clFtp,clCertificateStore, clCertificate,
ComCtrls,Classes;
implementation
uses
SysUtils,IniFiles;
procedure CheckCert;
begin
`statement`
end;
{CheckCert}
procedure DoFTP(FName:
String);
var
Source :TclFtp;
begin
Source:=TclFtp.Create(
nil);
Source.OnVerifyServer:=CheckCert; <-- dort schimpft er rum, das die sachen nicht passen
[snip]
Source.Free;
end;
EDIT: Ups, da hab ich nicht ausgepasst. Post überschnitten. Ich war die ganze zeit am antworten
Nochmal vielen dank. Ich versuch das mal umzusetzten.