Delphi 10.4 - Indy und SFTP

[H.Bothur]

Moin,

ich bin etwas verunsichert ... geht mit Indy denn auch SFTP oder nicht ?

Und wenn ja - hat jemand ein Beispiel wie das funktioniert ? Ich muss mich anmelden und dann eine Datei runterladen können.

Gruss
Hans

[Papaschlumpf73]

Nein, geht leider nicht.

[Klaus01]

.. wie schon geschrieben geht das mit Indy nicht.

DevArt - secure Bridge und nsoft - IpWorks haben SFTP Bibliotheken - kostenpflichtig.
Auf Basis von putty kann man sich auch einen SFTP Client bauen - Beispiele sind im Netz zu finden.
Seit Wiendows 10 kann man auch einen SFTP Client von der Console aufrufen.

Grüße
Klaus

[TurboMagic]

Zitat von Klaus01:

.. wie schon geschrieben geht das mit Indy nicht.

DevArt - secure Bridge und nsoft - IpWorks haben SFTP Bibliotheken - kostenpflichtig.
Auf Basis von putty kann man sich auch einen SFTP Client bauen - Beispiele sind im Netz zu finden.
Seit Wiendows 10 kann man auch einen SFTP Client von der Console aufrufen.

Grüße
Klaus

Kommerziell gibt's auch noch: Clever Internet Suite. Lt. GetIt Trial Eintrag kann es SFTP (SSH).

Grüße
TurboMagic

[Klaus01]

.. ich bekomme da keinerlei Fehlermeldung beim Create.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 gsftp :TTGPuttySFTP;
begin
  gsftp := TTGPuttySFTP.Create(true);
  gpsftp.HostName := '192.168.178.43';
  gpsftp.UserName := 'pi';
  gpsftp.Password := '********';
  gpsftp.Port := 22;
  gpsftp.Connect;
end;

Build 19 - 06 Mar 2022

Grüße
Klaus

[H.Bothur]

Zitat von Klaus01:

.. ich bekomme da keinerlei Fehlermeldung beim Create.

Build 19 - 06 Mar 2022

Grüße
Klaus

Und deswegen nehme ich an das ich bei den Einstellungen / Directorys usw. einen Fehler mache. Nur welchen ?
Ich habe den kompletten Pfad zu den Sources in der Bibliothek, setze das USE richtig ... und trotzdem PENG beim Connect.

Ich habe auch mal die entsprechende Libaray mit debugged, beim Create wird dann geprüft ob die TGPuttyLibAvailable ist und darin dann wieder irgendwelche StructSizes:

Delphi-Quellcode:

unction TGPuttyLibAvailable:Boolean;
var libpath:string;
    ulongsize,namesize,attrsize,namessize:Integer;

procedure CheckStructSizes;
begin
  tggetstructsizes(@ulongsize,@namesize,@attrsize,@namessize);
  if (ulongsize<>sizeof(TUnsignedLong)) or
     (namesize<>sizeof(fxp_name)) or
     (attrsize<>sizeof(fxp_attrs)) or
     (namessize<>sizeof(fxp_names)) then begin
     raise Exception.Create('Invalid '+tgputtydll+
                 ': uses different struct sizes: '+
                 'ulongsize='+IntToStr(ulongsize)+'/'+IntToStr(sizeof(TUnsignedLong))+
                 ',namesize='+IntToStr(namesize)+'/'+IntToStr(sizeof(fxp_name))+
                 ',attrsize='+IntToStr(attrsize)+'/'+IntToStr(sizeof(fxp_attrs))+
                 ',namessize='+IntToStr(namessize)+'/'+IntToStr(sizeof(fxp_names)));
     end
  end;
begin
  {$ifdef MSWINDOWS}
  Result:=true;
  CheckStructSizes;
  {$else}
  if TGPLH>0 then begin
     Result:=Assigned(tgputty_initcontext);
     Exit;
     end;

In meinem Testprogramm knallt es gleich bei dem ersten Test in folgender Zerile:

procedure tggetstructsizes(const Pulongsize,Pnamesize,Pattrsize,Pnamessize:PInteger); cdecl; external tgputtydll {$ifdef HASDELAYED}delayed{$endif}; Nur leider sind das für mich endgültig bömische Dörfer ... sagt das jemandem was ??

Gruss
Hans

[albertMichel]

ICS - Internet Component Suite
http://www.overbyte.be/
http://wiki.overbyte.eu/wiki/index.php/Main_Page
Das besondere, es wird stetig weiterentwickelt.
Und es funktioniert.
Gruß
Albert

[Klaus01]

.. hat meines Wissen keine SFTP Bibliothek.
Grüße
Klaus

[mjustin]

Zitat von H.Bothur:

ich bin etwas verunsichert ... geht mit Indy denn auch SFTP oder nicht ?

Nur zur Sicherheit: SFTP oder FTPS? Das sind zwei unterschiedliche Protokolle, FTPS ist FTP über TLS/SSL, SFTP basiert auf SSH (Secure Shell) und ein ganz anderes Protokoll als FTP.

[TurboMagic]

Bezüglich ICS könnte man das ja mal hier anfragen:

https://en.delphipraxis.net/forum/37...mponent-suite/