現在在做讀取thumbs.db的程式
卡在讀取檔名,網路上的Sample內用到一段程式碼

[code cpp]
std::wstring filename;

wchar_t uChar;
while ((uChar = readInt16(pFileObj)) != 0)
filename.push_back(uChar);
[/code]

我的想法是宣告一個smallint,把widestring全部讀取出來後,再轉進PWideString,不過smallint的值好像都不定..

[code delphi]
var
uChar1 :SmallInt;
uChar2 :PWideChar;
uChar3 :PWideChar;
begin
uChar2 := '棍';
uChar1 := SmallInt(uChar2);
ShowMessage(Format('%s, %d, %d', [uChar2, SizeOf(uChar2), uChar1]));
[/code]

麻煩熟悉Widestring的板友解答了 :)

嗯..自己解決了

[code delphi]

var
uChar :WChar;
FileName :WideString;
ms :TMemoryStream;
begin
ms := TMemoryStream.Create;
{load thumbs.db to memorystream}

ms.Read(uChar, SizeOf(WChar));
while uChar <> #0 do
begin
FileName := FileName uChar;
ms.Read(uChar, SizeOf(WChar));
end

ms.Free
end;

[/code]