delphi - xe API获取网页代码求解

Question

function GetWebPage(const Url: string):string;
var
 Session,
 Httpfile:HINTERNET;
 szSizeBuffer:Pointer;
 dwLengthSizeBuffer:DWord;
 dwReserved:DWord;
 dwFileSize:DWord;
 dwBytesRead:DWord;
 Contents:PChar;
begin
 Session:=InternetOpen('',0,niL,niL,0);
 Httpfile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
 dwLengthSizeBuffer:=50000;
 HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
 GetMem(Contents,dwFileSize);
 InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
 InternetCloseHandle(HttpFile);
 InternetCloseHandle(Session);
 Result:=StrPas(Contents);
 FreeMem(Contents);
end;
在D7里面貌似没有问题，但D XE里面居然乱码了--求老大解决

Answer 1

新的问题又出来了，某些网站的HTML代码 不能取完，就一小部分啊！真失望这个API