如何获取html表单中的数据？？

qlp1983 2004-06-25 10:58:57

如何获取html表单中的数据？

...全文

368 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

qiluping 2004-06-28

打赏
举报

你若想直接取到数据集中,
可先把html转换成xml,然后用TClientDataSet控件直接连接xml...

qlp1983 2004-06-28

打赏
举报

我是想直接取值到数据集中,有什么办法吗？

qiluping 2004-06-28

打赏
举报

改成
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('about:blank');
while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
WebBrowser1.OleObject.Document.body.innerHTML := Memo1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i, j: integer;
ovTable: OleVariant;
begin
//HTML中的第一個Table
ovTable := WebBrowser1.OleObject.Document.all.tags('TABLE').item(0);
StringGrid1.RowCount := ovTable.Rows.Length ;
StringGrid1.ColCount := ovTable.Rows.Item(i).Cells.Length;

for i := 0 to (ovTable.Rows.Length - 1) do
begin
for j := 0 to (ovTable.Rows.Item(i).Cells.Length - 1) do
begin
StringGrid1.Cells[j,i] := ovTable.Rows.Item(i).Cells.Item(j).InnerText;
end;
end;
end;
试试

qlp1983 2004-06-28

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('about:blank');
while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
WebBrowser1.OleObject.Document.body.innerHTML := Memo1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i, j: integer;
ovTable: OleVariant;
begin
//HTML中的第一個Table
ovTable := WebBrowser1.OleObject.Document.all.tags('TABLE').item(0);
StringGrid1.RowCount := ovTable.Rows.Length ;
StringGrid1.ColCount := ovTable.Rows.Item(i).Cells.Length;

for i := 0 to (ovTable.Rows.Length - 1) do
begin
for j := 0 to (ovTable.Rows.Item(i).Cells.Length - 1) do
begin
StringGrid1.Cells[j,i] := ovTable.Rows.Item(i).Cells.Item(j).InnerText;
end;
end;
end;

qlp1983 2004-06-25