Telnet!

[sonic2000]

Ich hab die lösung!

1.)

Delphi-Quellcode:

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;

2.)

Delphi-Quellcode:

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;

MfG: Sonic