Delphi中POST方法获得网页源代码

最新推荐文章于 2023-08-23 09:58:49 发布

最新推荐文章于 2023-08-23 09:58:49 发布 · 161 阅读

本文介绍了一个使用Delphi编写的示例程序，展示了如何利用WebBrowser控件的Navigate2方法发送POST请求。通过实例代码，详细解释了如何设置URL、POST数据、目标窗口等参数，并演示了如何将字符串转化为适合Navigate2方法使用的Variant数组。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

注意：Navigate2里的参数必须定义成OleVariant类型，并且必须使用变量进行传递参数，不能直接在里面赋常量值！

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
URL:OleVariant;
POST:OleVariant;
Target:OleVariant;
Flag:OleVariant;
Header:OleVariant;
PostStr:String;
PostLen,Index:Integer;
begin
URL:='http://subin.org.cn/index.asp';
PostStr:='测试POST字符串数据!';
Target:=NULL;
Flag:=0;
PostLen := Length(PostStr);
//用构建 varByte 类型的 Variant array
Post := VarArrayCreate([0, (PostLen - 1)], varByte);
//填充数据
for Index := 0 to PostLen - 1 do
Post[Index] := Ord(PostStr[Index + 1]);
//填补头部数据注意：application
Header := 'Content-Type: application/x-www-form-urlencoded';
WebBrowser1.Navigate2(URL,Flag,Target,POST,Header);
while WebBrowser1.Busy=True do
Application.ProcessMessages ;
if WebBrowser1.ReadyState =READYSTATE_COMPLETE then
Memo1.Text :=WebBrowser1.OleObject.Document.all.tags('HTML').Item(0).outerHTML;
else
Memo1.Text:='页面加载失败';
end;

initialization
OleInitialize(nil);
finalization
OleUninitialize;

end.