Securebridge SSH-Server frage

[Klaus01]

.. 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