telnetclient mit synapse und separaten befehlen

[Reiter0303]

hallo, ich bin am versuchen mir einen telnetclient zu basteln..
der login geht
habe aber mehrere probleme

hier mal der code für den login

Code:

 procedure TForm1.TelnetConnect;

var
  telnet: TTelnetsend;
begin
  memo6.Lines.Clear;
  telnet:= TTelnetsend.Create;
  try
    telnet.TargetHost:=ComboBox1.Text;
    telnet.Login;
    telnet.WaitFor('login:');
    telnet.Send(Edit3.Text+#$0d+#$0a);
    telnet.WaitFor('word:');
    telnet.Send(Edit4.Text+#$0d+#$0a);
    telnet.WaitFor('>');
    memo1.lines.Add('Telnet-Verbindung zu '+ComboBox1.Text+' hergestellt...');
    Memo6.Lines.Text:=telnet.sessionlog;

  finally
  end;
end;

das funktioniert auch soweit...
nun möchte ich aber über ein editfeld die comannds eintragen und mit einem button senden
da komm ich nicht weiter

wie muss sowas aussehen?
der code bringt mir eine leere ausgabe
das programm wird aber durch kompiliert und keine zugriffsverletzung

Code:

procedure TForm1.Button15Click(Sender: TObject);

var
  telnet: TTelnetsend;
begin
  TelnetConnect;
  memo6.Lines.Clear;
  telnet:= TTelnetsend.Create;
  try
    telnet.WaitFor('>');
    telnet.Send(Edit14.Text+#10);
    Memo6.Lines.Text:=telnet.sessionlog;
  finally
  end;
end;

vielleicht hat ja jemand sowas schon mal gemacht und könnte mir dabei helfen

danke

[Redeemer]

WaitFor vergessen?

Ich benutze allgemein lieber TCP statt Telnet für soetwas (ich habe einen spezialisieren Telnet-Client geschrieben, den etwa 100.000 Leute nutzen), da hat man mehr Konstrolle drüber. Ist wohl Geschmackssache.

[Reiter0303]

waitfor hatte ich auch schon dabei...
keine änderung

wie funktioniert das mit dem tcp client von dir?
wie gesagt will mit dem telnet client auf meine box zugreifen können , wie die standard befehle und box spezifische
wie
opkg list_installed
usw

ich hab schon soviel gelesen und komm einfach nicht weiter

[Redeemer]

Hab mal markiert, was ich meine, dass es fehlt:

Delphi-Quellcode:

procedure TForm1.Button15Click(Sender: TObject);
var
  telnet: TTelnetsend;
begin
  TelnetConnect;
  memo6.Lines.Clear;
  telnet:= TTelnetsend.Create;
  try
    telnet.WaitFor('>');
    telnet.Send(Edit14.Text+#10);
    telnet.WaitFor('>'); // DAS HIER MEINE ICH
    Memo6.Lines.Text:=telnet.sessionlog;
  finally
  end;
end;

Du musst halt immer auf eine Antwort warten.

[Reiter0303]

ja ich weiss was du meinst..
hatte ich auch schon drin stehen...
übergibt aber eine leere seite...nix drin

wenn ich einen befehl mit in die procedure TelnetConnect schreibe gehts
bringt mir aber auch sonderzeichen...

root@dm7080:~# [6n

so wie hier
aber wenn ich das auslagere so wie du es gerade in den code geschrieben hast ...gehts nicht... leere seite

da hänge ich nun schon seit tagen
wenn ich den befehl mit oben in die procedure schreibe gehts... aber die sonderzeichen halt siehe bild
ausserdem will ich ja separat befehle über die edit schreiben können

[Redeemer]

Warum erstellst du überhaupt dein Telnet-Teil jedes Mal neu? So eine Wegwerfmentalität ist nicht OK! Beim Button15Click hat es überhaupt keine Informationen zur Anmeldung und wohin es sich verbinden soll.

[Reiter0303]

Beim Button 15 (ausführen) wird doch die Procedure für das Telnet mit geladen
Wo ja die Anmeldedaten drin sind
Siehe oben procedure telnetconnect

Wie kann ich das besser machen?

[Redeemer]

Zitat:

Zitat von Reiter0303 (Beitrag 1407995)

Beim Button 15 (ausführen) wird doch die Procedure für das Telnet mit geladen
Wo ja die Anmeldedaten drin sind

Nö, die wird nicht für das Telnet sondern für ein Telnet durchgeführt, das wie jede lokale Variable nur für seine eigene Prozedur vorhanden ist und am Ende seiner Prozedur weggeworfen wird (Wegwerfmentalität) bzw. da es die Instanz einer Klasse ist, wird diese dereferenziert, ist also für dich nie wieder zugreifbar und belegt lediglich Speicher. Dazu sagt man fachsprachlich Memory Leak. Wenn du mal ReportMemoryLeaksOnShutdown anmachst, fliegt dir alles um die Ohren. Die beiden Telnets in deinen Methoden haben nicht im Geringsten irgendwas miteinander zu tun.
Hier muss man mit Instanzfeldern oder globalen Variablen arbeiten.

[Reiter0303]

ok,würde das ja gern anders lösen
hab da aber momentan keinen ansatz für, hast du vielleicht mal ein beispiel?
mir gehts eigentlich darum das telnet offen bleibt und ich über das editfeld die commands senden kann
mann könnte ja ein timeout einfügen das sagen wir nach 60 sec unaktivität die verbindung abgebaut wird

so,hab jetzt mal die procedure telnetconnect gelöscht
und die benutzerdaten unter button 15 mit eingetragen...
es geht dauert aber ne gefühlte minute bis er den befehl umsetzt und ich habe im promt noch die sonderzeichen drin root@dm7080:~# 
frage
1) wie bekomm ich die sonderzeichen weg oder unterdrückt?
2) wie kann ich das beschleunigen das er die befehle sofort umsetzt?

[mjustin]

Delphi enthält bei den Indy-Komponenten auch einen Telnet-Client (TIdTelnet) :wink: