Forum: Netzwerke
Delphi
by H.Bothur,
28. Apr 2023
Moin,
nur noch einmal zu der function TForm1.TGPuttySFTPClient1SFTPListing(Sender: TObject; const Items: TSFTPItems): Boolean;
wenn ich da den Code rausnehme und nur noch
function TForm1.TGPuttySFTPClient1SFTPListing(Sender: TObject; const Items: TSFTPItems): Boolean;
var StartRow,
i:Integer;
begin
Forum: Netzwerke
Delphi
by H.Bothur,
27. Apr 2023
Moin,
sorry das ich jetzt erst weitermache - aber die letzten Tage habe ich es nicht geschafft.
Nur damit ich das richtig sehe ... im Source der Demo finde ich folgende Stelle:
procedure TVCLSFTPClientDemoForm.FormCreate(Sender: TObject);
begin
PSFTP:=TTGPuttySFTP.Create(true);
PSFTP.OnListing:=ListingCallback;
Forum: Netzwerke
Delphi
by H.Bothur,
21. Apr 2023
Moin Sebastian,
vielen Dnak für die Infos und deine Mühe !!! ... ich versuche das morgen mal in Source umzusetzen und zu kucken ob ich das hinbekomme.
Gruss
Hans
Forum: Netzwerke
Delphi
by H.Bothur,
20. Apr 2023
Das hatte ich gesehen - und in der Items sind auch die entsprechenden Dateinamen. Die ganze Procedure sieht so aus:
function TVCLSFTPClientComponentDemoForm.TGPuttySFTPClient1SFTPListing(Sender: TObject; const Items: TSFTPItems): Boolean;
var StartRow,i:Integer;
begin
StartRow:=sgRemoteFiles.RowCount;
sgRemoteFiles.RowCount:=StartRow+Length(Items);
for i:=0 to Length(Items)-1 do...
Forum: Netzwerke
Delphi
by H.Bothur,
20. Apr 2023
Moin,
hat lange gedauert - aber jetzt habe ich es ausprobiert - und ich bekomme ein Connect hin. Allerdings stoße ich gleich auf das nächster Problem das ich nicht verstehe (was allerdings auch an meinen beschränkten Fähigkeiten liegt):
In der Demo gibt es ein StringGrid. Sobald es zum Connect kommt wird dieses Grid mit Dateinamen auf dem Server gefüllt. An der entsprechende Stelle in Souce...
Forum: Netzwerke
Delphi
by H.Bothur,
22. Jan 2023
Danke - teste ich morgen aus!
Gruß
Hans
Forum: Netzwerke
Delphi
by H.Bothur,
20. Jan 2023
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:...