paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Fix implicit codepage ceversion issue for FindFirstUtf8/FindNextUtf8 (Windows). Patch by Michl. Issue #0028406.

Browse Source 
git-svn-id: trunk@50567 -
This commit is contained in:
bart 2015-12-02 12:43:29 +00:00
parent 6328571bef
commit a121cb2acc
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazutils/winlazfileutils.inc
View File

@ -544,10 +544,6 @@ end;
{$IFEND}
function FindMatch(var f: TSearchRec) : Longint;
{$IFDEF ACP_RTL}
var
Dummy: String;
{$ENDIF}
begin
{ Find file with correct attribute }
While (F.FindData.dwFileAttributes and cardinal(F.ExcludeAttr))<>0 do
@ -566,12 +562,10 @@ begin
in win32 it is the ansi structure with a utf-8 string
in wince it is a wide structure }
{$ifdef FindData_W}
{$IFnDEF ACP_RTL}
f.Name:=UTF8Encode(UnicodeString(F.FindData.cFileName));
{$IFDEF ACP_RTL}
f.Name:=String(UnicodeString(F.FindData.cFileName));
{$ELSE}
Dummy := '';
Insert(UTF8Encode(UnicodeString(F.FindData.cFileName)), Dummy, 1);
f.Name := Dummy;
f.Name:=UTF8Encode(UnicodeString(F.FindData.cFileName));
{$ENDIF}
{$else}
f.Name:=F.FindData.cFileName;
@ -624,7 +618,11 @@ begin
Rslt.ExcludeAttr:=(not Attr) and ($1e);
{ $1e = faHidden or faSysFile or faVolumeID or faDirectory }
{ FindFirstFile is a Win32 Call }
Rslt.FindHandle:=Windows.FindFirstFileW( PWideChar(UTF8Decode(Path)),find{%H-});
{$IFDEF ACP_RTL}
Rslt.FindHandle:=Windows.FindFirstFileW(PWideChar(WideString(Path)),find{%H-});
{$ELSE}
Rslt.FindHandle:=Windows.FindFirstFileW(PWideChar(UTF8Decode(Path)),find{%H-});
{$ENDIF}
If Rslt.FindHandle=Windows.Invalid_Handle_value then
begin
Result:=GetLastError;