Instead of cyrillic characters there some garbage in Windows event
viewer. Have tried AnsiString with Windows-1251 code page (type
StringCP1251 = type AnsiString(1251)) but this does not work. What works
is RawByteString variable with the following conversion to Windows-1251.
Here is code:
{$MODE objfpc} {$ifdef mswindows}{$apptype console}{$endif}
{$R C:\lazarus\fpc\3.2.0\source\packages\fcl-base\src\win\fclel.res}
program Project1;
uses
EventLog,
sysutils;
type
StringCP1251 = type AnsiString(1251);
var
logger:teventlog;
//msg:StringCP1251;
msg:rawbytestring;
begin
msg:='Іівівйц й вфівфъ2цву йцуцйівів';
SetCodePage(msg, 1251, True);
Write('DefaultSystemCodePage is ');
Writeln(system.DefaultSystemCodePage);
logger:=teventlog.create(nil);
logger.Identification:='My gressdqwwe';
logger.RegisterMessageFile('');
logger.logtype:=ltsystem;
logger.active:=true;
Write('Code page is ');
WriteLn(StringCodePage(msg));
logger.Info(msg);
logger.Destroy;
WriteLn('End');
end.
OS: English Windows XP.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
