Question

如何使用Delphi7在网页“https://v-tri.tri.co.id:8434/insms/dealer/en/loginin.do”上使用TWebBrowser按下登录按钮？

procedure TForm1.Open_webClick(Sender: TObject); 
begin 
  webbrowser1.Navigate('v-tri.tri.co.id:8434/insms/dealer/en/loginin.do'); 
end; 

procedure TForm1.InputClick(Sender: TObject); 
begin 
  WebBrowser1.OleObject.Document.GetElementByID('UserName').setAttribute('value', edit1.Text );
  WebBrowser1.OleObject.Document.GetElementByID('PassWord').setAttribute('value', edit2.Text ); 
end; 

procedure TForm1.LoginClick(Sender: TObject); 
begin 
  //WebBrowser1.OleObject.Document ... ?? 
end;

Answer 1

您已经有代码可以找到并填写网络表单编辑字段。使用类似的代码来定位登录按钮的元素并调用其click()方法，或者找到webform本身的元素并调用其submit()方法。

Answer 2

procedure TForm1.LoginClick(Sender: TObject); 
begin 
 WebBrowser1.oleobject.document.forms.item(0).submit(); 
end;

正如@TLama已经指出的那样，你可以跳过所有这些并导航到已经附加了postdata的登录URL。可以找到一个示例here。

Answer 3

我在使用TWebBrowser登录网站时遇到了问题。当我用鼠标按下登录按钮时，我甚至无法记录。我通过用Tchromium替换TWebBrowser解决了这个问题。

使用TWebBrowser登录Web

3 个答案: