Einzelnen Beitrag anzeigen

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.018 Beiträge
 
Delphi 2009 Professional
 
#4

AW: telnetclient mit synapse und separaten befehlen

  Alt 19. Jul 2018, 19:26
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.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat