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.