WinHttp.WinHttpRequest.5.1 如何如何保存结果???????

[bamfk10231023]

XMLHTTP:= CreateOLEObject('WinHttp.WinHttpRequest.5.1');
XMLHTTP.open('GET', 'https://m.baidu.com/' , true); // true 为异步
XMLHTTP.send(varEmpty);
if Not XMLHTTP.WaitForResponse(5000) then begin
XMLHTTP.Abort;
end else begin
if (XMLHTTP.Status='200') and (XMLHTTP.StatusText='OK') then begin
///////这个到底要如何保存结果？
ms:=TMemoryStream.Create;
ms.Seek(0,soBeginning);
ms.Write( xmlhttp.responseStream ,10000);
ms.SaveToFile(sFileName);
ms.Free;
///////这个到底要如何保存结果？
end ;
end;
XMLHTTP := unassigned;

[bamfk10231023]

用responseText 就是上图出错，
用stream就是乱码...

[pathletboy]

var
  XMLHTTP: OleVariant;
  sl: TStringList;
begin
  XMLHTTP := CreateOLEObject('WinHttp.WinHttpRequest.5.1');
  XMLHTTP.open('GET', 'https://m.baidu.com/', true); // true 为异步
  XMLHTTP.send(varEmpty);
  if not XMLHTTP.WaitForResponse(5000) then
  begin
    XMLHTTP.Abort;
  end
  else
  begin
    if (XMLHTTP.Status = '200') and (XMLHTTP.StatusText = 'OK') then
    begin
    ///////这个到底要如何保存结果？
      sl := TStringList.Create();
      sl.Add(XMLHTTP.ResponseText());
      sl.SaveToFile('1.txt');
      sl.Free;
    ///////这个到底要如何保存结果？
    end;
  end;
  XMLHTTP := unassigned;
end;

[bamfk10231023]

不对自己找到解决方案了。。。