Probleme mit Server-Client-Programmierung (Indy10)

[albert1985]

Also bin jetzt schon selbst etwas weitergekommen ! Gibt aber immer noch Probleme ...

Hab jetzt folgenden Quelltext für den Client:

Delphi-Quellcode:

procedure TForm1.NachrichtButtonClick(Sender: TObject);
begin
  if IdTCPClient1.Connected = true then begin
    with IdTCPClient1 do try
      IOHandler.WriteLn('MSG');
    finally end;
  end;
end;

und entsprechend für den reagierenden Client:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.Active := True;
  with IdTCPServer1.Bindings.Add do
  begin
    IP:='127.0.0.1';  // zum Testen 127.0.0.1 ...  
    Port:=3666;  // Kann man hier einen beliebigen freien Port wählen?
  end;
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  Line : String;
begin
  Line := AContext.Connection.IOHandler.ReadLn;            
    if Line = 'MSG' then
    MessageDlg('Huhu - der Client hat sich verbunden',mtInformation,[mbOK],0);
end;

1. Ist dieser Code so in etwa richtig, wenn ich die besagte Meldung anzeigen lassen will??
2. Es erscheint wenn ich beide Programme ausführe ein Fehler der besagt : Connection Timeout / Connection refused
woran kann das liegen ?

MfG