You are not logged in.
In SyslogMessage():
if trimmsgfromlog and (len>27) then
if (P[0]='2') and (P[8]=' ') then begin
inc(P,27); // trim e.g. '20160607 06442255 ! trace '
dec(len,27);
end else
if HexToBin(P,nil,8) then begin <------------------------------ line with error message
inc(P,25); // trim e.g. '00000000089E5A13 " info '
dec(len,25);
end;
Delphi Berlin
Last edited by jaclas (2017-02-15 08:03:29)
Offline
Probably conflict in function name with unit System.Classes:
function HexToBin(Text: PWideChar; Buffer: PAnsiChar; BufSize: Integer): Integer; overload;
Offline
Yes, you are right.
Offline