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

[DelTurbo]

WAU,
genau das habe ich gesucht und nirgends gefunden. Vielen Dank!!!

[himitsu]

Zitat:

Delphi-Quellcode:

memo1.Lines.Add(String(buffer))

Du weißt Ihr wisst, dass vor allem bei Servern die Events meistens in Threads ablaufen (nicht synchronisiert)
und dass die VCL nicht thread-safe ist?

Außerdem ist es nicht intelligent ein dynamisches Byte-Array in einen String casten zu wollen. (vor allem da seit D2009 ein Char nicht mehr 1 Byte groß ist)

und (falls es mal dazu kommt) unter 64 Bit die DynArrays und LongStrings keine kompatible Struktur mehr besitzen.

[DelTurbo]

Das empfangen und auswerten klappt Super. Nur habe ich nun das nächste Problem. Daten (nix Binäres oder so) zum Client senden.
Mit SendToClient(ChannelInfo,Buffer,Count); kommt nichts an. Ich habe da mal reingetraced, der Buffer ist dann leer obwohl vorher was drin war, und zwar habe ich das in der OnClientData eingebaut, quasi als echo.

Edit: Hat sich erledigt. Hatte einen KLEINEN fehler drin.

Nochmals Danke