Telnet mit Indy - Wie Sonderzeichen verhindern?

mjeheuer · Beiträge: 30

Hallo zusammen

Zur Vorgeschichte:
Ich versuche zunächst einen einfachen Telnet-Client auf Grundlage der Indy-Komponente und dem Beispielprogramm zu erstellen.
Später soll noch eine Verbindung zu einem MySQL-Server dazukommen in dem dann u.a. die IP-Adressen stehen sollen (es geht um mehrere tausend Switche die angesprochen werden sollen)

Das Problem:
Dabei bin ich hier auf ein Problem gestoßen das ich seit einigen Tagen versuche zu lösen, jedoch ohne nennenswerte Erfolge.
Im großen und ganzen macht bereits das Beispielprogramm was ich erwarte, jedoch dürfen es bei bestimmten Tastendrücken keine Sonderzeichen im Memofeld erscheinen!
Es geht hier besonders die Reaktion des Programms auf die Taste Backspace.
Hier werden immer Sonderzeichen (ein Quadrat, oder ein Balken je nach Schrifttyp) gezeigt, statt das der Cursor einfach ein Zeichen zurück geht.

Hat vielleicht jemand schon einmal im Telnet-Beispielprogramm von Indy dieses Problem lösen können und kann mich auf die richtige Spur bringen?
Ich habe auch schon mal die Komponente TnEmulIVT von Overbyte getestet. Dort kann man dieses "Echo" ausschalten.
Leider kommt die Komponente TnEmulIVT nicht in Betracht, da man dort markierten Inhalt scheinbar nicht in das Clipboard kopieren kann, was eine andere Voraussetzung für mich ist.

Gruß
Michael

IngoD7 · Beiträge: 629 D7

Es kommt ja immer so'n bisschen drauf an, welche Emulation hüben und drüben gefahren wird. Davon abhängig gehen manchmal durchaus Bytes über die Leitung, die man so nicht unbedingt erwartet und die dann händisch im Programm erst noch umgesetzt werden müssen.

Nenne doch erstmal die Version von den Indys, die du benutzt und poste das von dir schon geänderte Beispiel, damit man das vielleicht mal live und in Farbe nachvollziehen kann. Ohne Zugriff auf den von dir benutzten Server wird's schon schwierig genug, aber so gaaaanz ohne Code erst recht.

mjeheuer · Beiträge: 30

IngoD7 hat folgendes geschrieben:

Nenne doch erstmal die Version von den Indys, die du benutzt und poste das von dir schon geänderte Beispiel, damit man das vielleicht mal live und in Farbe nachvollziehen kann. Ohne Zugriff auf den von dir benutzten Server wird's schon schwierig genug, aber so gaaaanz ohne Code erst recht.

Hallo Ingo

Erst einmal Danke für Deine Antwort. Ich war mir nicht sicher ob bei meiner schwammingen Beschreibung überhaupt jemand Antwortet

Ich arbeite hier mit D7 und den Indy-Komponenten Version 9 vom 26Okt04 (laut Dateiname)

Meines Erachtens steht und fällt die Erkennung von nicht ASCII-Zeichen mit der folgenden Procedure im Beispielprogramm. Sie wird immer angesprochen wenn Daten vom Server/Switch gesendet werden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TfrmTelnetDemo.IdTelnetDemoDataAvailable(Sender: TIdTelnet;
  const Buffer: String);
{This routine comes directly from the ICS TNDEMO code. Thanks to Francois Piette
 It updates the memo control when we get data}
const
    CR = #13;
    LF = #10;
var
    Start, Stop : Integer;
begin
  if Memo1.Lines.Count = 0 then
      Memo1.Lines.Add('');

  Start := 1;
  Stop  := Pos(CR, Buffer);
  if Stop = 0 then
      Stop := Length(Buffer) + 1;
  while Start <= Length(Buffer) do begin
      Memo1.Lines.Strings[Memo1.Lines.Count - 1] :=
          Memo1.Lines.Strings[Memo1.Lines.Count - 1] +
          Copy(Buffer, Start, Stop - Start);
      if Buffer[Stop] = CR then begin
          Memo1.Lines.Add('');
          {$IFNDEF Linux}
          SendMessage(Memo1.Handle, WM_KEYDOWN, VK_UP, 1);
          {$ENDIF}
      end;
      Start := Stop + 1;
      if Start > Length(Buffer) then
          Break;
      if Buffer[Start] = LF then
         Start := Start + 1;
      Stop := Start;
      while (Buffer[Stop] <> CR) and (Stop <= Length(Buffer)) do
          Stop := Stop + 1;
  end;
  PostMessage(Memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);


end;

Ich habe hier mal das Original angegeben, da meine Versuche bisher dahin gingen das ASCII-Zeichen #08 (Backspace) irgendwie herauszufiltern.
Es handelt sich um ein Ereignis der Telnetkomponente die aufgerufen wird wenn Daten eingehen. Die Daten selbst sind in der Variablen "Buffer"
Der Server/Switch reagiert korrekt, d.h. ein Zeichen das ich zuvor mit Backspace wieder gelöscht habe wird nicht verarbeitet. Es wird aber durch diese Funktion als Sonderzeichen im Memofeld dargestellt.

Gruß
Michael

Moderiert von matze: Delphi-Tags hinzugefügt

IngoD7 · Beiträge: 629 D7

mjeheuer hat folgendes geschrieben:

Erst einmal Danke für Deine Antwort. Ich war mir nicht sicher ob bei meiner schwammingen Beschreibung überhaupt jemand Antwortet

Offen gestanden weiß ich aber erst jetzt richtig, was du meinst ... ;-)

mjeheuer hat folgendes geschrieben:

Meines Erachtens steht und fällt die Erkennung von nicht ASCII-Zeichen mit der folgenden Procedure im Beispielprogramm. Sie wird immer angesprochen wenn Daten vom Server/Switch gesendet werden:

Korrekt.
Das Beispiel ist niedliches Anschauungsmaterial und macht mit den empfangenen Daten tatsächlich nichts anderes, als in ihnen nach Zeilenumbrüchen zu suchen und die gefundenen Zeilen ans Memo zu hängen. Dabei werden alle enthaltenen Bytes 1:1 übertragen und somit dann eben auch die Steuerzeichen angezeigt.

Das eigentliche Steuern, was diese Bytes normalerweise ausführen sollten, musst du selber implementieren. Das kann z.B. das Memo nicht von alleine.

Du musst also tatsächlich im Buffer nach #8 suchen und wenn du eines gefunden hast, dieses #8 und das Byte davor löschen. Wenn du alles abfangen willst, was von einem Telnet-Server kommen könnte, so musst du - abhängig von der verwendeten Terminalemulation (oft z.B. VT220) - auch ganze Steuersequenzen auswerten (eingeleitet meist durch #27 = Escape). Ein #7 (engl. Bell, zu deutsch Klingel) sollte z.B. dein Programm zu einem Beep veranlassen. Usw. usf. etc. pp. ;-)

Bleiben wir beim Backspace #8:
Wo und wie man das genau abfängt, können wir besprechen (meine Billig-Lösung siehe im Code unten). Aber bist du denn sicher, dass für das, was du im Endausbau erreichen möchtest, die Verwendung dieses Beispiels nebst Ausgabe in ein Memo ausreichend ist? :gruebel:

Kann ich mir eigentlich nicht unbedingt vorstellen ...

mjeheuer hat folgendes geschrieben:

Hat vielleicht jemand schon einmal im Telnet-Beispielprogramm von Indy dieses Problem lösen können

Nein. Ich habe mal als Teil eines Projektes ein VT220-Terminal stricken müssen unter Bedingungen, denen das Indy-Beispiel niemals hätte gerecht werden können. Ich habe alles selbst gebastelt (jaaa, das war tlw. basteln und nicht programmieren :roll:

) und war eigentlich nie wirklich zufrieden. Zwischendurch habe ich wie so ein Irrer eine fertige VT220-Terminal-Komponenten gesucht .... und nicht gefunden. :crying:

Langer Rede kurzer Sinn:

mjeheuer hat folgendes geschrieben:

und kann mich auf die richtige Spur bringen?

Wenn's denn das Beispiel sein soll ... ja.

Folgendes ist "heiße Nadel". Es könnte zu unschönen Ergebnissen führen, wenn das #8 am Anfang einer Zeile auftaucht, und es wird abstürzen, wenn das #8 am Anfang des Puffers steht. Da gilt es, einiges zu verfeinern, doch zum "auf die Spur bringen" dürfte es ein Anfang sein.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TfrmTelnetDemo.IdTelnetDemoDataAvailable(Sender: TIdTelnet;
  const Buffer: String);
{This routine comes directly from the ICS TNDEMO code. Thanks to Francois Piette
 It updates the memo control when we get data}
const
    CR = #13;
    LF = #10;
var
    Start, Stop, PosSteuer : Integer;
begin

  PosSteuer := pos(#8, Buffer);
  while PosSteuer >0 do
    begin
     delete(Buffer, PosSteuer-1, 2);
     PosSteuer := pos(#8, Buffer);
    end;

  if Memo1.Lines.Count = 0 then
      Memo1.Lines.Add('');

...
end;

mjeheuer · Beiträge: 30

Zitat:

Wenn's denn das Beispiel sein soll ... ja.

Folgendes ist "heiße Nadel". Es könnte zu unschönen Ergebnissen führen, wenn das #8 am Anfang einer Zeile auftaucht, und es wird abstürzen, wenn das #8 am Anfang des Puffers steht. Da gilt es, einiges zu verfeinern, doch zum "auf die Spur bringen" dürfte es ein Anfang sein.

markieren

Delphi-Quelltext

1:
2:
3:

procedure TfrmTelnetDemo.IdTelnetDemoDataAvailable(Sender: TIdTelnet;
  const Buffer: String);
[...]

Danke für den Anstoß. Jetzt weiß ich wo ich anfassen muß. :-)

Gruß
Michael

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme