Moin,
ich habe mir die einmal runtergeladen und kann DelphiVCLDemo auch (mit Delphi 10.4 CE) kompilieren und mit mit Strato verbinden.
Daraufhin habe ich den Pfad zum Verzeichnis tputty.release unter tools/optionen/sprache/delphi/bibliothek/bibliothekspfad hinzugefügt
jetzt habe ich testweise ein ganz einfaches Programm geschrieben:
Delphi-Quellcode:
unit SFTPUnit;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
tgputtylib, tgputtysftp;
const
Username = '
benutzername';
Passwort = '
passwort';
Host = '
ssh.strato.de';
Port = 22;
var
TGPSFTP :TTGPuttySFTP;
procedure Verbinden;
begin
TGPSFTP := TTGPuttySFTP.Create(true);
TGPSFTP.HostName := Host;
TGPSFTP.UserName := UserName;
TGPSFTP.Password := Passwort;
TGPSFTP.Port := Port;
try
TGPSFTP.Connect;
except
on E:
Exception do WriteLn('
EXCEPTION: ',E.
Message);
end;
if TGPSFTP.Connected
then ShowMessage('
verbunden :-)');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Verbinden;
Button1.Caption := '
Ende';
end;
end.
Allerdings bekomme ich bereits beim create eine Exceprion der Klasse EEXternalException mit der Medlung "Externe
Exception C06D007E"
Wenn ich dann auf "anhalten" klicke bekomme ich die Meldung "Quelldatei nicht gefunden" delayhlp.cpp ??
Wieso geht denn die Demo und so ein einfaches Programm knallt gleich ?
Gruss
Hans