WebBrowser使用POST方法提交数据

最新推荐文章于 2025-10-02 15:45:31 发布

转载最新推荐文章于 2025-10-02 15:45:31 发布 · 4.8k 阅读

delphi开发同时被 2 个专栏收录

62 篇文章

订阅专栏

Web编程

20 篇文章

订阅专栏

本文介绍如何使用Delphi中的WebBrowser组件通过POST方法提交数据。具体实现包括设置URL、构建POST数据字符串、创建并填充Variant数组以及设置HTTP头等步骤。最终实现了向指定网页发送POST请求并获取响应。

WebBrowser使用POST方法提交数据.

unit Unit1; 

interface 

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

type 
TForm1 = class(TForm) 
    WebBrowser1: TWebBrowser; 
    Memo1: TMemo; 
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject); 
    { 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:=edit1.text;
  target:=NULL;
  flag:=0;
  PostStr:='ID1=111&ID2=222';
  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;



end.