TidUDPClient will nicht...

[Klaus01]

.. nun ich habe hier kein Delphi 2009 mit entsprechenden Indys zur Verfügung.

Bei Turbo Delphi 2006 schauen die uses für Indy 10 so aus:
idGlobal,idComponent,idUDPBase,idUDPClient; Ich verwende eine Ableitung von TidUDPClient.

Delphi-Quellcode:

TSysLog = class(TidUDPClient)
  private
    function formatSysLogMessage(event:TDxtEventRecord):AnsiString;

  public
    constructor Create(sysLogServerHost: AnsiString; sysLogServerPort: Integer); virtual;
    procedure send(event: TDxtEventRecord);
    function isServerAvailable:Boolean;
    procedure writeToBuffer(event:TDxtEventRecord;buffer:TStringList);
    procedure sendBuffer(buffer:TStringList);
end;

Der Constructor dazu sieht so aus:

Delphi-Quellcode:

constructor TSysLog.create(sysLogServerHost: String; sysLogServerPort: Integer);
begin
  inherited create(nil);
  host := sysLogServerHost;
  port := sysLogServerPort;
end;

Also alles in Allem ein nicht so großer Unterschied, bis auf die uses.

Grüße
Klaus