Hello,
I tried the rxlib SVN version but was not able to use this library under WinCE.
I'm getting errors with string conversion that doesn't exists on Wince :
function StrToOem(const AnsiStr: string): string;
begin
{$IFDEF WINDOWS}
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
{$ELSE}
Result:=AnsiStr;
{$ENDIF}
end;
function OemToAnsiStr(const OemStr: string): string;
begin
{$IFDEF WINDOWS}
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
{$ELSE}
Result:=OemStr;
{$ENDIF}
end;
Is it safe to declare them this way for the Wince platform ?
function StrToOem(const AnsiStr: string): string;
begin
{$IFDEF WINDOWS}
{$IFNDEF WINCE}
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
{$ELSE}
Move(PChar(AnsiStr)^, Pchar(Result)^, Length(Result));
{$ENDIF}
{$ELSE}
Result:=AnsiStr;
{$ENDIF}
end;
function OemToAnsiStr(const OemStr: string): string;
begin
{$IFDEF WINDOWS}
{$IFNDEF WINCE}
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
{$ELSE}
Move(PChar(OemStr)^, Pchar(Result)^, Length(Result));
{$ENDIF}
{$ELSE}
Result:=OemStr;
{$ENDIF}
end;
Thank you