Einzelnen Beitrag anzeigen

oakley

Registriert seit: 15. Aug 2005
287 Beiträge
 
#3

AW: Mailversand mit SSL ind Android und IOs

  Alt 18. Jan 2023, 12:06
Hey,

ich habe das per FTP unter Android gemacht und das funktioniert bei mir.

procedure TMFORM.FtpUpload(filename);
var ftp : TidFtp;
fIdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
try
IdOpenSSLSetLibPath(TPath.GetDocumentsPath);
fIdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
with fIdSSLIOHandlerSocketOpenSSL.SSLOptions do begin
Method := sslvSSLv23;
Mode := sslmClient;
SSLVersions := [sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2];
end;
Ftp :=TidFtp.Create;
Ftp.IOHandler := fIdSSLIOHandlerSocketOpenSSL;
Ftp.Host:='xxxxxxxxxx';
Ftp.Username:='yyyyyyyyyyyyy';
Ftp.Password:='zzzzzzzzzz';
Ftp.Passive:=True;
Ftp.TransferType := ftBinary;
Ftp.Port := 48122;
Ftp.DataPortMin := 35000;
Ftp.DataPortMax := 36000;
Ftp.UseTLS := utUseExplicitTLS;
Ftp.DataPortProtection := ftpdpsPrivate;

if not FTP.Connected then FTP.Connect;

Ftp.Put(filename, ExtractFileName(filename), false);

Ftp.Disconnect;
Ftp.Free;
except
end;
end;

Ich habe die Dateien aus der ZIP Datei in der Bereitstellung .\assets\internal\ gepackt.

LG

Mirko
Angehängte Dateien
Dateityp: zip ssl.zip (929,2 KB, 6x aufgerufen)
  Mit Zitat antworten Zitat