请教一下各位高手,我想写一个关于浏览器的程序,但不知道怎么下手,请高手指点一下,具体功能如下:1.打开一个网页,风页上面有一页或多页的一个数据表格,可否把这个表格在显示这个网页的同时,把这个表格里的数据提取出来存放到数据库中2.自动填表,同样也是一个表格,表格中有很多行,每一行都有二三个空值需要填写,可否在数据库中的某一个表的数据自动填写到这个网页表格中,然后自动提交给服务器,在返回服务器的消息,提交成功下一步,如果提交不成功重新提交一次请高手指点一下,不胜感谢.
解决方案 »
- 为什么提示没有name字段啊,在线等待!!!!!!!!
- 如何在TStringGrid里面插入换行啊?
- 今天第一天上班,没什么事我想跳
- IP地址分配问题,比较复杂!高手进来讨论!(有图)
- 考考你们
- 请问哪里有支持数据感知控件的XPMENU下载
- MDI窗体调用fsnormal窗体报出内存错误
- XE4 File not found DBSumLst.dcu
- 这个语句怎么会报adoquery1.sql.add('select * from nit成绩查询库 where 学员编号<>"df"'); df列无效
- TTable的计算字段问题
- 如何判断重覆的值不要insert,不重覆在insert
- 求目前能下的delphi2007下载地址,1.2G的那个版本。
用TWebBrowser,代码是erhan发过的,如果有用,一起向erhan致敬吧。
下面是从表格取数据的部分。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHtml;type
TForm1 = class(TForm)
wb1: TWebBrowser;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
wb1.Navigate('http://localhost:12880/mtm/abc.htm');
end;procedure TForm1.Button1Click(Sender: TObject);
var
doc: IHTMLDocument2;
mTable: IHTMLTable;
mRow: IHTMLTableRow;
mCell: IHTMLElement;
mElement: IHTMLElementCollection;
i,j: integer;
begin
doc := wb1.Document as IHTMLDocument2; mTable := doc.all.item('xxxx',0) as IHTMLTable;
for i:=0 to mTable.rows.length-1 do
begin
mRow := mTable.rows.item(i,0) as IHTMLTableRow; for j:=0 to mRow.cells.length-1 do
begin
mCell := mRow.cells.item(j,0) as IHTMLElement;
showmessage(mCell.innerHTML);
end;
end;
end;end.