TelnetSERVER Indy 10

[DelTurbo]

Hi,

ich suche eine demo ( im grunde so ein 3zeiler ) wo ich sehen kann wie der server was an den client übermitteln kann. Für Indy 9 habe ich das gefunden. Aber das rennt leider nichtmehr auf 10.

Der server braucht garkeine commandos "verstehen". Der soll nur wenn eine verbindung besteht einmal in der sekunde ein "test" schicken.

Leider bin ich wieder bissl raus da ich andere projekte hatte. Wär toll wenn jemand mir auf die sprünge helfen könnte.

Vielen dank im voraus

[chaosben]

Delphi-Quellcode:

procedure TForm17.IdTelnetServer1Execute(AContext: TIdContext);
begin
  AContext.Connection.IOHandler.Write('test');
  Sleep(1000);
end;

[DelTurbo]

Vielen vielen dank.

Ich hatte nach AContext.IOHandler.??? gesucht.....

[DelTurbo]

Ähm, du hast mir zwar schon nen 5zeiler gemacht, aber eine frage hätte ich da noch. Wie bekomme ich umlaute (öäüÖÄÜß) gesendet?

Zum testen habe ich mal folgendes gemacht. Aber bei umlauten kommt was anderes zurück.

AContext.Connection.IOHandler.WriteLn(AContext.Con nection.IOHandler.ReadLn());

Gruss und danke im voraus

[chaosben]

In meinem D2009 gehts so:

Delphi-Quellcode:

var
  e : TEncoding;
begin
  e := TMBCSEncoding.Create(28591); //ISO8859_1
  try
    AContext.Connection.IOHandler.WriteLn('töst', e);
    sleep(1000)
  finally
    e.Free;
  end;
end;

Inwieweit das bei D7 klappt ... musst du ausprobieren

[DelTurbo]

Rückmeldung:

Nochmal vielen dank für die hilfe stellung. So wie dein beispiel ist geht es bei D7 Indy SVN#4017 nicht. Aber es klappt wie folgt.

AContext.Connection.IOHandler.WriteLn('töst', TIdTextEncoding.Unicode); Gruss und danke nochmal für den schubs in die richtige richtung.......

Telnet Server Indy 10 umlaute

[chaosben]

Kein Problem.

Es kommt ja auch auf den Client an bzw. was der haben will UTF8 ....