.. setze mal in dem Event BeforeChannelConnect Direct := true
Delphi-Quellcode:
procedure TForm1.ScSSHServer1BeforeChannelConnect(Sender: TObject;
ChannelInfo: TScSSHChannelInfo; var Direct: Boolean);
begin
direct := true;
end;
dann kannst Du im Event onDataFromClient die Eingaben abfangen:
Delphi-Quellcode:
procedure TForm1.ScSSHServer1DataFromClient(Sender: TObject;
ChannelInfo: TScSSHChannelInfo; const Buffer: TArray<System.Byte>;
const Offset, Count: Integer);
begin
if count > 0 then
begin
memo1.Lines.Add(String(buffer))
end;
end;
Grüße
Klaus