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

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

例如，执行帖子的小程序（顺便提一下ssl）：

uses
  httpsend;

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

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

WinInet post的简单包装函数（在Delphi中）

2 个答案: