delphi - 从网页中获取值(value)

Question

我想从网站中提取一个值，所讨论的页面只是一个没有扩展名的文件，该扩展名包含数字，没有HTML代码-什么都没有。

我要做的就是让我的程序提取该数字并将其与自己的版本号进行比较。获取此内容的最佳方法是什么？我写了一个小片段来下载文件并将其保存在temp目录中，然后在下载的文件中处理图形，但是如果我没有记错的话，必须有更好的方法吗？

我已经读过有关使用SOAP请求的人的信息，但是我不确定这是否是我想要的。

任何帮助，将不胜感激。

Answer 1

这是从HTTP GET请求获取字符串的方法：

function WebGetData(const UserAgent: string; const Server: string;
  const Resource: string): string; overload;
var
  hInet: HINTERNET;
  hURL: HINTERNET;
  Buffer: array[0..1023] of AnsiChar;
  i, BufferLen: cardinal;
begin
  result := '';
  hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG,
    nil, nil, 0);
  if hInet = nil then RaiseLastOSError;
  try
    hURL := InternetOpenUrl(hInet, PChar('http://' + Server + Resource),
      nil, 0, 0, 0);
    if hURL = nil then RaiseLastOSError;
    try
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        if BufferLen = SizeOf(Buffer) then
          result := result + AnsiString(Buffer)
        else if BufferLen > 0 then
          for i := 0 to BufferLen - 1 do
            result := result + Buffer[i];
      until BufferLen = 0;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hInet);
  end;
end;

这就是我自己的软件AlgoSim检查更新的方式。尝试例如

ShowMessage(WebGetData('My User Agent', 'services.rejbrand.se',
  '/algosim/update/ver.asp'));