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