如何檢索網站文本框中的文本

Question

我如何檢索文本從德爾福的網站文本框例如假設我在谷歌搜索框中鍵入 ''虎''如何從該搜索框中檢索文本將wm_gettext或getwindowtext工作？ 我正在使用delphi 7

Answer 1

試試這段代碼。

只適用於Internet Explorer。在Windows Vista中，IE8ÿ德爾福測試2007

Uses 
SHDocVw, 
mshtml; 

procedure GetTextFromEditIExplorer(ListStr: TStringList); 
var 
    ShellWindow   : IShellWindows; 
    Web_Browser   : IWebbrowser2; 
    reg_Shell_window  : IDispatch; 
    Dummy     : IHTMLDocument2; 
    ovElements    : OleVariant; 
    Document    : Variant; 
    WindowsCount   : Integer; 
    ElementsCount   : Integer; 
    FormsCount    : Integer; 
begin 
    ShellWindow := CoShellWindows.Create; //Provides access to the collection of open Shell windows 
    for WindowsCount := 0 to ShellWindow.Count do  //iterate through number of windows in the Shell windows collection 
    begin 
    reg_Shell_window := ShellWindow.Item(WindowsCount);  //Returns the registered Shell window for a specified index. 
    if reg_Shell_window = nil then Continue; //go to next reg window 
    reg_Shell_window.QueryInterface(iWebBrowser2, Web_Browser); // determines if an interface can be used with an object 
    if Web_Browser <> nil then 
    begin 
     Web_Browser.Document.QueryInterface(IHTMLDocument2, Dummy); 
     if Dummy <> nil then 
     begin 
     Web_Browser  := ShellWindow.Item(WindowsCount) as IWebbrowser2; 
     Document  := Web_Browser; 
      for FormsCount := 0 to Document.forms.Length - 1 do 
      begin 
      ovElements := Document.forms.Item(FormsCount).elements; 
      for ElementsCount := 0 to ovElements.Length - 1 do 
      begin 
       try 
       if (CompareText(ovElements.item(ElementsCount).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(ElementsCount).type, 'text') = 0) then 
       ListStr.Add('Control Name ['+ovElements.item(ElementsCount).Name+']'+' Type -> '+ovElements.item(ElementsCount).Type+' -> Value ['+ovElements.item(ElementsCount).Value+']'); 
       except 
       ListStr.Add('Error Reading element n° '+IntToStr(ElementsCount)); 
       end; 
      end; 
      end; 
     end; 
    end; 
    end; 
end; 

procedure TForm1.btn1Click(Sender: TObject); 
var 
List : TStringList; 
begin 
    List:=TStringList.Create; 
    GetTextFromEditIExplorer(List); 
    ShowMessage(List.Text); 
end; 

編輯：

奧馬爾遺憾的是沒有簡單的解決您的問題。這是因爲每個瀏覽器都使用不同的界面來與信息進行交互。

這裏有一些建議

• Firefox使用XPCOM，你可以研究一下。
• 嘗試使用DDE（動態數據交換）。
• 您可以使用WatiN，它是一個與firefox和iexplorer一起工作的.net庫。你可以看到this article以瞭解如何與delphi win32中的.net程序集進行交互。

再見。

Answer 2

最簡單的方法是使用頁面原始HTML代碼的正則表達式。