delphi - 我可以从服务器上的文本文件加载备忘录或丰富的编辑吗？

Question

我设计了一个网站并将其上传到服务器并且运行良好。在其中一个页面中，我从用户那里获取一些信息，例如他们的地址……并将它们保存到文本文件中。我可以创建一个应用程序并从该文件加载丰富的编辑或备忘录吗？该文件有自己的地址，例如 www.mysite.com/my_text_File.txt感谢您的帮助。

Answer 1

是的，可以。

function WebGetData(const UserAgent: string; const Server: string; const Resource: string): AnsiString;
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);
  try
    hURL := InternetOpenUrl(hInet, PChar('http://' + Server + Resource), nil, 0, 0, 0);
    try
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        result := result + AnsiString(Buffer);
        if BufferLen < SizeOf(Buffer) then
          SetLength(result, length(result) + BufferLen - SizeOf(Buffer));
      until BufferLen = 0;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hInet);
  end;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
  Memo1.Text := WebGetData('My Application', 'www.rejbrand.se', '');
end;

请注意，上述代码仅适用于 ASCII 文本。要获得 UTF-8 解决方案，请将签名中的 AnsiString 替换为 string，并将 repeat block 中的第二行替换为

    result := result + UTF8ToString(AnsiString(Buffer));

并调整SetLength。