DXSock Syslog Client
uses
dxsock6;
var
client:TBPDXSock;
begin
{$IFDEF FPC}
client.init;
{$ELSE}
client:=TBPDXSock.Create;
{$ENDIF}
client.isUDPMode:=True;
if client.connectto('127.0.0.1',514) then
client.write(paramstr(1));
{$IFDEF FPC}
client.done;
{$ELSE}
client.Free;
{$ENDIF}
end.
call as:
syslogsend "Testing 1, 2, 3"
See also Python Syslog Client