Forum: Netzwerke
Delphi
by jaenicke,
2. Mai 2023
Ich habe deine Antworten erst jetzt gesehen. Fällt dir wirklich nichts auf an deiner Einrückung (siehe Kommentar)?function TForm1.TGPuttySFTPClient1SFTPListing(Sender: TObject; const Items: TSFTPItems): Boolean;
var StartRow,i:Integer;
begin
StartRow:=RemoteFilesSG.RowCount;
RemoteFilesSG.RowCount:=StartRow+Length(Items);
for i:=0 to Length(Items)-1 do begin // <-- hier ist ein begin,...
Forum: Netzwerke
Delphi
by jaenicke,
20. Apr 2023
Da ich sehe, dass du online bist, mache ich mal eine neue Antwort:
Stell dir das einfach so vor...
Du gehst zur Hotelrezeption (die SFTP-Komponente) und lässt dir ein Taxi rufen. Dort hinterlegst du deine Telefonnummer (deine Ereignisfunktion TGPuttySFTPClient1SFTPListing), damit die Rezeption (die SFTP-Komponente) dir Bescheid sagen kann, wenn das Taxi da ist (das Listing abgerufen ist)....
Forum: Netzwerke
Delphi
by jaenicke,
20. Apr 2023
Der Ablauf:
procedure ListDir;
begin
...
if Assigned(FOnSFTPListing) then
FOnSFTPListing(Self, Items);
end;
Sprich du gibst der Komponente in der Eigenschaft OnSFTPListing eine Referenz auf deine Prozedur TGPuttySFTPClient1SFTPListing. Die Komponente ruft dann deine Prozedur auf, wenn sie das Listing erhalten hat. Hintergrund ist vermutlich, dass das asynchron funktioniert, sprich...