🌗 🤘🏾 🛣️ Delphi7での数分でのGoogleパーサー 👨🏽‍⚖️ 🎼 🎷

このタスクには、Delphiのプログラミングに関する少しの知識、組み込みWebブラウザスイートの無料コンポーネントが必要です。

最初に、Delphi7をインストールし、プログラムをチェックするためのインターネット接続が必要です。

開始するには、ダウンロードしてインストールします。コンポーネント自体はbsalsa.com/DP/download.php?file=0にあります。

インストール手順：

1.ダウンロード後、フォルダ「..：\ Borland \ Delphi7 \ lib」に解凍します

3. Delphiで、[ファイル]-> [開く]を選択します

フォルダーに移動します（” ..：\ Borland \ Delphi5 \ lib \ EmbeddedWB_D2005 \ Source”）。

5.「EmbeddedWebBrowser_D7.dpk」ファイルを選択し、「開く」をクリックします。

6. [コンパイルしてインストール]をクリックします

7.すべて、コンポーネントがインストールされます。

すべてが順調に進んだ場合、準備フェーズが完了したため、プログラム自体の作成に進みます。

タスクのこれらのコンポーネントのうち、必要なものはTextIEParserのみです。

Delphiでフォームを作成します。その上にパネルを置き、その上で編集してスピードボタンを押します。ステータスバーとメモ-AlignプロパティをalClientに設定します。 IEParserを忘れないでください。

フォームのキャプションプロパティを変更します。

フォームの次のリストを取得しました。

unit main;

インターフェース

使用する

Windows、メッセージ、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、

ダイアログ、StdCtrls、ボタン、ExtCtrls、ComCtrls;

タイプ

TForm1 =クラス（TForm）

StatusBar1：TStatusBar;

パネル1：TPanel;

Edit1：TEdit;

SpeedButton1：TSpeedButton;

メモ1：TMemo;

IEParser1：TIEParser;

プライベート

{私的宣言}

公開

{公的宣言}

終わり;

var

Form1：TForm1;

実装

{$ R * .dfm}

終わり。

機能性を系統的に追加し始めます。 OnClickのイベントをSpeedButtonに追加します。これは、フォーム上のボタンをダブルクリックするだけで実行できます。

procedure TForm1.SpeedButton1Click(Sender: TObject); 
      

        
        
        
      

     begin 
      

        
        
        
      

     //         Edit 
      

        
        
        
      

     IEParser1.URL:='http://www.google.com/ie?q='+Edit1.Text+'&num=100&hl=en&lr=&newwindow=1&c2coff=1'; 
      

        
        
        
      

     //   
      

        
        
        
      

     IEParser1.Go; 
      

        
        
        
      

     end;

この問題のこのようなシンプルなコードは私たちに合っています。最初の100の結果しか得られません。 これが人々に役立つ場合、以下の例で大きな機会を検討します。

ここでのタスクは、受信したリンクのコードを削除してメモに入れることです。

このようなリクエストでお気に入りのブラウザを開きます www.google.com/ie?q=inurl:bbs.cgi&num=100&hl=en&lr=&newwindow=1&c2coff=1

そして、実行してページのソースを確認します。ページのhtmlコードを分析すると、必要なのはA

タグだけであると結論付けられます。そして、Googleにつながらないリンクが必要です。

IEParserのイベントが必要です-onAnchor

procedure TForm1.IEParser1Anchor(Sender: TObject; hRef, Target, Rel, Rev, 
      

        
        
        
      

     Urn, Methods, Name, Host, HostName, PathName, Port, Protocol, Search, 
      

        
        
        
      

     Hash, AccessKey, ProtocolLong, MimeType, NameProp: String; 
      

        
        
        
      

     Element: TElementInfo); 
      

        
        
        
      

     begin 
      

        
        
        
      

     if Pos('google', href) = 0 then Memo1.Lines.Add(href); 
      

        
        
        
      

     StatusBar1.SimpleText:='Find links: '+IntToStr(Memo1.Lines.Count+1); 
      

        
        
        
      

     end;

それだけです-パーサーの準備ができました！

Delphi7での数分でのGoogleパーサー

More articles: