Nachricht vom Server an alle Clienten schicken

[hibbert]

Hi,
das heißt dass ich

Delphi-Quellcode:

type  TIdSocketHandle = THandle;

einfach weglassen kann und einfach folgendes verwenden sollte:

Delphi-Quellcode:

implementation
uses IdSocketHandle;
{$R *.dfm}

:?: :?: :?:

[Bowler]

Stellenweise richtig. :-D
Du kannst

Delphi-Quellcode:

type  TIdSocketHandle = THandle;

weglassen. Aber die IdSocketHandle-Unit musst Du im Interface-Teil schon einbinden, da der Typ bereits in der Klassendefinition verwendet wird. Bei mir sieht das ganze so aus:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase,
  IdUDPClient, StdCtrls,IdSocketHandle;



type
  TForm1 = class(TForm)
    client: TIdUDPClient;
    server: TIdUDPServer;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure serverUDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//usw.

Dann sollte es funtzen.

Gruß
Christian

[hibbert]

jo so kann man es auch machen, bei mir funzt es so auch :-D