Re: Telnet!
Ich hab die lösung!
1.)
Delphi-Quellcode:
2.)
procedure TMainform.Button1Click(Sender: TObject);
begin with IdTelnet1 do begin Host := Edit1.Text; Port := StrToInt(Edit2.Text); Connect(); IdTelnet1.Socket.WriteLn('SEL ' + Edit3.Text); IdTelnet1.Socket.WriteLn('SLOGIN ' + Edit4.Text + ' ' + Edit5.Text); end; end;
Delphi-Quellcode:
MfG: Sonic
procedure TForm1.Button2Click(Sender: TObject);
begin Memo1.Lines.Add(Edit6.Text); with IdTelnet1 do begin IdTelnet1.Socket.WriteLn(Edit6.Text); Memo1.Lines.Add(IdTelnet1.ReadLn()); end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz