.. 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