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

用delphi编一个类似于网页发送表单内容程序... 用delphi编一个类似于网页发送表单内容程序 展开
 我来答
匿名用户
2013-09-07
展开全部
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;
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式