Delphi-PRAXiS - Delphi Chat Problem

Sorry das ich schonwieder ein Thema aufmache, aber ich finde einfach keine Lösung zu meinem Problem:

Ich habe nach dieser Anleitung (

http://www.delphipraxis.net/21622-ei...rammieren.html) einen Chat erstellt. Leider habe ich ein paar Probleme: Ich lasse Client und Server auf meinem Rechner laufen. Wenn ich im Client den Nick eingebe u. bestätige kein Problem. Wenn ich dann zur IP des Servers komme und diese bestätige, bekomme ich die Fehlermeldung: "Asynchroner Socket-Fehler 10061". Wenn ich das ganze mit einem 2. Client mache (anderer Rechner, trotzdem im Heimnetzwerk). Funktioniert das, bis ich eine Nachricht senden will, dann bekomme ich den selben Fehler nur mi "10060". Ich poste mal meinen Code. Habe trotzdem das Gefühl, das ich was vergessen habe (ClientConnect, stand aber auhc nicht in der Anleitung).

Client

Delphi-Quellcode:

			unit MainUnit;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ScktComp, ExtCtrls, IdBaseComponent, IdComponent,

  IdIPWatch, AppEvnts;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    ApplicationEvents1: TApplicationEvents;

    IdIPWatch1: TIdIPWatch;

    Timer1: TTimer;

    ClientSocket1: TClientSocket;

    GroupBox1: TGroupBox;

    Label4: TLabel;

    Edit1: TEdit;

    Label5: TLabel;

    Edit2: TEdit;

    Label6: TLabel;

    Edit3: TEdit;

    Button3: TButton;

    Button2: TButton;

    Button1: TButton;

    Label7: TLabel;

    procedure Delay (time: word);

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

    procedure Timer1Timer(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

  Name: String;

  Nachricht: String; //Stand nicht im Toturial, wenn nicht angegeben, dann Fehlermeldung in Z. 78 (da 'Nachricht' nicht deklariert ist)

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 if (ClientSocket1.Active=true) and (Edit1.Text<>'') then

 ClientSocket1.Socket.SendText(Name+': ' + Edit1.Text);

 Edit1.Text := '';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 Name := Edit2.Text;

 Button2.Enabled := false;

 Edit2.Enabled := false;

 Button3.Enabled := true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 ClientSocket1.Host := Edit3.Text;

 ClientSocket1.Active := true;

 Button3.Enabled := true;

 Edit3.Enabled := true;

 Button1.Enabled := true;

 Nachricht := Edit2.Text + ' hat den Raum betreten.';

 delay(500);

 ClientSocket1.Socket.SendText(Nachricht);

end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

begin

 Form1.Show;

 Memo1.Lines.Add(Socket.ReceiveText);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 ClientSocket1.Socket.SendText(Edit2.Text +' hat den Chat verlassen.');

 delay(500);

 ClientSocket1.Close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 Label3.Caption := IdIpWatch1.LocalIP;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 Label3.Caption := IdIpWatch1.LocalIP;

end;

procedure TForm1.delay(time:word);

var Start: Integer;

begin

  Start:=GetTickCount;

 while (GetTickCount)-(Start) <= time do

  Application.ProcessMessages;

end;

end.

PS: Edit1 & Button1 --> Nachrichtenfeld & "Senden"-Button; Edit2 & Button2 --> Namensfeld & "Namen setzen"-Button; Edit3 & Button3 --> IP-Adresse Feld & "Bestätigen"-Button;

Server

Delphi-Quellcode:

			unit MainUnit;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdIPWatch, ScktComp;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    ServerSocket1: TServerSocket;

    IdIPWatch1: TIdIPWatch;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure ServerSocket1ClientRead(Sender: TObject;

      Socket: TCustomWinSocket);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 ServerSocket1.Close;

 Memo1.Lines.SaveToFile('Chatlog.txt');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 Label3.Caption:=IdIPWatch1.LocalIP;

end;

// Fehlt hier nicht 'OnClientConnection'?!

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

var

 Text:string;

 i: Integer;

begin

 Text := Socket.ReceiveText;

 Memo1.Lines.add(Timetostr(now)+': '+Text);

 For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do

  begin

   with ServerSocket1.Socket.Connections [I] do

   if (Connected) then SendText(Text);

  end;

end;

end.

Danke für eure Unterstützung

Lukas