Suche für Client die richtige Remote.Host-Angabe der Servers

[marabu]

Hallo Jumbo,

klappt prima bei mir:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  s: TStrings;
begin
  s := TStringList.Create;
  with TCPClient do
  begin
    RemoteHost := 'decius';
    RemotePort := '80';
    Connect;
    SendLn('GET /');
    SendLn('');
    while Connected and WaitForData(1000) do
      s.Add(ReceiveLn());
    Disconnect;
  end;
  ShowMessage(s.Text);
  s.Free;
end;

Was machst du anders?

marabu