2

我编写了一个 Delphi 函数从另一个应用程序中检索网页。

当我使用文件通过以下方式存储信息时，这很好用

结果：= URLDownloadToFile（无，PChar（XmlUrl），PChar（XmlFileName_），0，无）；

当我使用 URLOpenBlocking-stream 时，我得到了正确的信息，但是当我第二次向网络服务器发出请求时，我得到了旧页面，尽管页面已经改变。

有人知道可能是什么原因吗？

function MyDownloadToBlockingSteam( URL : String; Var bsXmlStr : AnsiString): LongInt;
var
  ppStream  : ActiveX.IStream;
  statstg   : TStatStg;
  dwRead    : Integer;
begin
  Result := 1;

  bsXmlStr := '';

  If (URLOpenBlockingStream(nil, PChar(URL), ppStream, 0, nil) = S_OK) then
  Begin
    // Resource protection
    try
      if (ppStream.Stat(statstg, STATFLAG_NONAME) = S_OK) then // Get the stat from the IStream interface
      begin
        if (statstg.cbSize > 0) then // Make sure size is greater than zero
        begin
          SetLength ( bsXMLStr, statstg.cbSize+1 );
          Result := ppStream.Read( @bsXMLStr[1], statstg.cbSize, @dwRead); // Read from the stream
        end;
      end;
    finally
      ppStream:=nil; // Release the IStream interface
    end;
  end;//If ..
end;
4

3 回答 3

3

考虑使用InternetOpenUrl()andInternetReadFile()代替。手动完成与您在内部执行的相同操作将需要几行额外的编码URLOpenBlockingStream()，但InternetOpenUrl()确实有一个dwFlags参数接受一个INTERNET_FLAG_RELOAD标志以强制从 URL 下载最新数据。 URLOpenBlockingStream()没有那个选项。

于 2012-06-18T02:22:40.593 回答
1

您可以通过在 URL 末尾附加一个随机数来避免缓存。有关详细信息，请参阅此 SO 页面。

于 2012-06-17T21:17:45.903 回答
0

作为替代方案，您可以使用URLDownloadToFile()orURLOpenBlockingStream() 如果您DeleteUrlCacheEntry()先调用。

于 2018-10-15T15:45:23.620 回答