delphi - WinInet 帖子的简单包装函数（在 Delphi 中）

Question

这是一种在一行中或多或少地使用 Indy 进行 HTTP 发布的方法：

Response := FIdHttp.Post(URL, StringStream);

是否有一个函数（函数，而不是库）允许使用 WinInet 完成等效操作？

最好是一个类似这样的函数：

function PostUsingWinInet(const URL, Data :string; SSL :boolean) :string;

如果已经存在，我不想重新发明轮子并编写自己的包装函数。

谢谢！

Answer 1

请参阅此 Stack Overflow 问题：How to send a HTTP POST Request in Delphi using WinInet api。

Answer 2

看看突触。是的，它是一个库，但不是组件库。它公开了类和简单的阻塞函数，可以消除 TCP/IP 通信的痛苦。

例如，一个执行帖子的小程序（顺便说一句，支持 ssl）：

uses
  httpsend;

var
  url : string;
  urldata : string;
  PostData : tMemoryStream;

begin
    :
  if HttpPostURL(URL, URLData, PostData) then
    Writeln('Sent');
end.