Hi,
irgendwie gelingt es mir nicht ein LIST zu machen. Das ganze teil bleibt mit Sanduhr stehen. Lasse ich die zuweisung des proxys weg, klappt es.
Was hab ich denn da vergessen?????
Wär super wenn mir einer helfen könnte. Sitze schon 2 Stunden dran *jammer*
Was auch komig ist, "klicke ich es mir zusammen" dann geht es. Also
FTP, OpenSSL, Socks auf die form ziehen und direkt die werte eintragen. Das klappt.
Vielen dank im voraus
Delphi-Quellcode:
procedure InitFTPObject(
var Ftp:TIdFTP;
var SSl:TIdSSLIOHandlerSocketOpenSSL);
begin
Ftp.IOHandler:=SSl;
Ftp.UseTLS:=utUseRequireTLS;
Ftp.TransferType:=ftBinary;
Ftp.DataPortProtection:=ftpdpsPrivate;
Ftp.AUTHCmd:=tAuthSSL;
Ftp.AutoLogin:=False;
Ftp.Passive:=True;
Ftp.PassiveUseControlHost:=True;
SSL.SSLOptions.Method:=sslvTLSv1;
SSL.SSLOptions.Mode:=sslmUnassigned;
Ftp.ReadTimeout:=15*60000;
Ftp.Tag:=0;
end;
{InitFTPObject(Source:TIdFTP;SSl:)}
procedure TForm1.Button1Click(Sender: TObject);
var
Source :TidFTP;
SourceSSl :TIdSSLIOHandlerSocketOpenSSL;
SourceProxy :TIdSocksInfo;
l :TStringList;
begin
Source:=TIdFTP.Create;
SourceSSl:=TIdSSLIOHandlerSocketOpenSSL.Create;
InitFTPObject(Source,SourceSSl);
Source.Username:='
test1';
Source.Password:='
123456';
Source.Port:=50902;
Source.Host:='
192.168.0.123';
SourceSSL.Host:='
192.168.0.123';
SourceSSL.Destination:='
192.168.0.123:50902';
SourceSSL.Port:=50902;
SourceProxy:=TIdSocksInfo.Create;
SourceProxy.Host:='
192.168.0.101';
SourceProxy.Port:=59123;
SourceProxy.UserName:='
proxyuser';
SourceProxy.Password:='
123456';
SourceProxy.Version:=svSocks5;
SourceProxy.Authentication:=saUsernamePassword;
SourceSSL.TransparentProxy:=SourceProxy;
Source.Connect;
Source.Login;
l:=TStringList.Create;
Source.List(l,'
',True);
WriteLn(l.text);
l.Free;
Source.Disconnect(True);
end;