telnetclient mit synapse und separaten befehlen

[TiGü]

Zitat von Reiter0303:

das wie es jetzt ist funktioniert es ja, aber viel zu langsam , das dauert über eine minute bis er den befehl ausgibt
vielleicht jannst mir an den beispiel mal helfen mit den variablen...wäre sehr nett... Habe nix gefunden in einem Beispiel wie ich das bei Telnet mit variablen vereinfache oder beschleunige

Code:

procedure TForm1.Button15Click(Sender: TObject);

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('>');
    telnet.Send(Edit14.Text+#$0d+#$0a);
    telnet.WaitFor('>');
    Memo6.Lines.Text:=telnet.sessionlog;
  finally
  end;
end;

hab das telnetconect komplett rausgeschmissen

danke

Delphi-Quellcode:

TForm1 = class(TForm)
...
private
  FTelnet: TTelnetsend;
public
...
end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTelnet := TTelnetsend.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FTelnet.Free;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
  memo6.Lines.Clear;

  FTelnet.TargetHost:=ComboBox1.Text;
  FTelnet.Login;
  FTelnet.WaitFor('login:');
  FTelnet.Send(Edit3.Text+#$0d+#$0a);
  FTelnet.WaitFor('word:');
  FTelnet.Send(Edit4.Text+#$0d+#$0a);
  FTelnet.WaitFor('>');
  FTelnet.Send(Edit14.Text+#$0d+#$0a);
  FTelnet.WaitFor('>');
  Memo6.Lines.Text:=telnet.sessionlog;
end;