小编Seb*_*ian的帖子

如何使用WinInet api在Delphi中发送HTTP POST请求

我正在尝试使用WinInet函数从Delphi发出HTTP请求.

到目前为止,我有:

function request:string;
var
  hNet,hURL,hRequest: HINTERNET;
begin
  hNet := InternetOpen(PChar('User Agent'),INTERNET_OPEN_TYPE_PRECONFIG or INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(hNet) then 
  begin
  try
    hURL := InternetConnect(hNet,PChar('http://example.com'),INTERNET_DEFAULT_HTTP_PORT,nil,nil,INTERNET_SERVICE_HTTP,0,DWORD(0));
    if(hURL<>nil) then
      hRequest := HttpOpenRequest(hURL, 'POST', PChar('param=value'),'HTTP/1.0',PChar(''), nil, INTERNET_FLAG_RELOAD or INTERNET_FLAG_PRAGMA_NOCACHE,0);
    if(hRequest<>nil) then
      HttpSendRequest(hRequest, nil, 0, nil, 0);
    InternetCloseHandle(hNet);
  except
    on E : Exception do
      ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
  end;
  end
end;
Run Code Online (Sandbox Code Playgroud)

但这没有做任何事情(我正在嗅探网络http流量,看它是否有效).我已成功使用InternetOpenURL但我还需要发送POST请求,该功能不会这样做.

有人能告诉我一个简单的例子吗?我想要的结果是将var响应页面作为字符串获取.

delphi post http wininet request

15
推荐指数
1
解决办法
3万
查看次数

如何在Delphi中异步调用函数/过程(没有组件)

我试图在Delphi中异步运行一个函数或过程,但是没有使用组件,有没有办法用delphi核心函数做到这一点?

delphi asynchronous callback

9
推荐指数
2
解决办法
1万
查看次数

如何在Delphi上生成唯一的计算机ID?

如何快速为delphi应用程序生成唯一的计算机ID?我以前用c#很容易做到这一点,但有时失败了.我确实希望ID是"静态的",但我不在乎是因为硬件更改或操作系统重新安装而导致id更改,我打算将其存储在注册表中并在应用启动时检查它,如果它已更改更新注册表.(我知道如何编写注册表部分,我只需要帮助唯一的ID).

谢谢.

delphi unique serial-number identification

6
推荐指数
2
解决办法
2万
查看次数

如何保护delphi应用程序的源代码?

我如何保护我的delphi应用程序不被反编译?我知道有一些类似于itida的软件,我认为会这样做但是受保护的exe会触发防病毒软件.

delphi decompiling source-code-protection

4
推荐指数
1
解决办法
4176
查看次数

如何逐步加载ajax(jquery)请求响应而无需等待其完成?

我想制作一个表单,它将使用jquery向php文件提交关键字列表,根据关键字列表的大小,此文件可能需要花费很多时间来加载。

我想做的是将php响应实时加载到div或容器中,而无需使用iframe。

我知道的所有ajax请求都必须等到请求完成后才能访问响应,即使它尚未完成,我也需要访问该响应,这样我才能实时更新进度。

php ajax jquery asynchronous

4
推荐指数
1
解决办法
3884
查看次数

空闲的delphi应用程序等待计时器最安全的方法?

我正在做一个delphi应用程序,它将在我的电脑24/7后台运行,并将检查是否必须执行某些操作,等待30分钟再次检查,依此类推.

如何确保应用程序不会因为一直运行而使CPU或内存过载.

delphi memory-management cpu-usage delphi-2010 idle-processing

4
推荐指数
2
解决办法
4988
查看次数