我正在尝试使用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响应页面作为字符串获取.
在我的程序中,我有一个函数来检查程序的当前版本,它来自url:www.tablemaster.webs.com/versioninfo.txt
如您所见,URL只是纯文本.我需要将URL中的这个文本加载到我的程序中的字符串中,我将如何进行此操作?我四处搜寻但一无所获......
PS:我需要最简单的代码..
提前致谢 :)
我需要构建一个应用程序来获取Web上的证券交易所数据.为此,我需要获取页面代码,有时发送请求(发布和获取).我正在尝试制作类似机器人的东西.有人可以帮帮我吗?
我想直接将一个url加载到一个没有任何数据流的字符串中,最好的方法是什么,internet open url但它似乎不太清楚.
我不想使用任何组件来阅读一些短消息