Indy 10 idTCPClient idTCPServer in einer Anwendung friert

[Ralf Meyer]

Hi,

ich beschäftige mich mit den TCP Komponenten von Indy 10 und möchte innerhalb einer Anwendung die über das Netzwerk gestartet wird Daten versenden und Empfangen.

Das zweite einfache Programm war nachdem meine Server und Client Anwendung funktionierte, diese Komponenten in eine Anwendung zu packen. Der Code sieht wie folgt aus:

Delphi-Quellcode:

unit foServerClient;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCustomTCPServer, IdTCPServer, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, idContext, StdCtrls;

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    IdTCPServer1: TIdTCPServer;
    Memo1: TMemo;
    Button1: TButton;
    procedure IdTCPServer1Execute(AContext: TIdContext);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s : String ;
begin
  IdTCPClient1.Connect;
  if IdTCPClient1.Connected then begin
    IdTCPClient1.IOHandler.WriteLn('Dies ist eine Nachricht vom Client.');
    s := IdTCPClient1.IOHandler.ReadLnWait(1000) ;
    IdTCPClient1.disconnect ;
  end;
  Memo1.lines.Add ( S ) ;
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
    if not aContext.Connection.IOHandler.Readable then
      exit ;
    Memo1.Lines.Add('Nachricht: ' + AContext.Connection.IOHandler.ReadLn);
    AContext.Connection.IOHandler.WriteLn('OK und hier ist die Antwort.');
end;

Mein Formular enthält neben Memo und Button auch die TidTCPClient Komponente mit dem Host 127.0.0.1 Port 20000 und der tIdTCPServer Komponente mit dem DefaultPort 20000.

Der Server ist zur Designzeit schon aktiv geschaltet.
Klicke ich nun auf Button1 friert nach der Windows Sicherheitsmeldung die Anwendung ein.

Mir ist scheinbar etwas elementares entgangen. Warum klappt die Kommunikation wenn die Komponenten in separaten Anwendungen liegen?

Gruss
Ralf