Question

怎样用delphi编一个发送表单内容程序

用delphi编一个类似于网页发送表单内容程序

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
Doc : IHTMLDocument2;
Document: Variant;
ove:IHTMLElement;
ovElements: olevariant;
i:integer;
begin
Doc := IHTMLDocument2(WebBrowser1.Document); Document:= webbrowser1.oleobject.document;
ovElements := Document.forms.Item(0).elements; for i := 0 to ovElements.Length - 1 do
begin
try
if (CompareText(ovElements.item(i).tagName,'INPUT') = 0) and
(CompareText(ovElements.item(i).name,'username') = 0) then
begin
ovElements.item(i).Value := '用户名';
end; if (CompareText(ovElements.item(i).tagName,'INPUT') = 0) and
(CompareText(ovElements.item(i).name,'password') = 0) then
begin
ovElements.item(i).Value := '密码';
end;
except
end;
end;end;