怎么用delphi制作填写网页表单的程序?

Question

只要填写,不要自动提交在CSDN上找到一个
var
    Url, s: string;
    Response: TStringStream;
    Request: TStrings;begin    //memo1.Lines.LoadFromFile('e:\kkkkkkkkk.txt');
    Url := edit3.Text + 'Project1.dll';
    Response := TStringStream.Create('');
    try
        Request := TStringList.Create;
        try            Request.Add('tablename=' + edit2.Text);
            Request.Add('pass=' + edit1.Text);
            Request.Add('Sbdata=' + memo1.Lines.Text);            IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
            IdHTTP1.Request.ContentLength := length(Request.text);
            IdHTTP1.Post(Url, Request, Response);
            showmessage(Trim(Response.DataString));
        finally
            Request.Free;
        end;
    finally
        Response.Free;
    end;
end;有些地方看不懂,比如Url := edit3.Text + 'Project1.dll';  这个project1.dll是什么? IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';  这里的'application/x-www-form-urlencoded'又是什么意思?  请帮助!

Answer 1

project1.dll是网站的程序，application/x-www-form-urlencoded指明用来把表单提交给服务器时(当method值为"post")的媒体类型.

Answer 2

automatically fill in web forms of a running IE instance?  
     uses
  MSHTML_TLB;// first navigate to tipspageprocedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php');
end;// Try to access IE instance and fill out the search field with
// a text and click the search buttonprocedure TForm1.Button3Click(Sender: TObject);
var
  hIE: HWND;
  ShellWindow: IShellWindows;
  WB: IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2;
  Document: Variant;
  k, m: Integer;
  ovElements: OleVariant;
  i: Integer;
begin
  ShellWindow := CoShellWindows.Create;
  // get the running instance of Internet Explorer
  for k := 0 to ShellWindow.Count do
  begin
    spDisp := ShellWindow.Item(k);
    if spDisp = nil then Continue;
    // QueryInterface determines if an interface can be used with an object
    spDisp.QueryInterface(iWebBrowser2, WB);    if WB <> nil then
    begin
      WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      if iDoc1 <> nil then
      begin
        WB := ShellWindow.Item(k) as IWebbrowser2;
        begin
          Document := WB.Document;          // count forms on document and iterate through its forms
          for m := 0 to Document.forms.Length - 1 do
          begin
            ovElements := Document.forms.Item(m).elements;
            // iterate through elements
            for i := 0 to ovElements.Length - 1 do
            begin
              // when input fieldname is found, try to fill out
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'text') = 0) then
                begin
                  ovElements.item(i).Value := 'FindWindow';
                end;
              except
              end;
              // when Submit button is found, try to click
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and
                  (ovElements.item(i).Value = 'Search') then  // Suchen für German
                begin
                  ovElements.item(i).Click;
                end;
              except
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

Answer 3

上面那段程序没有效果
另外，我需要的是：自动填写当前浏览器显示的页面的标单（就像maxthon中的功能）