[Electronic_Arts]

Надо зайти по определенной ссылке и читать с исходника сайта значение которые я выделил жирным цветом и добавить их в Memo1...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

<tr> <td> <span id="_ctl0_lblNumber" class="Label"><b>№:</b></span>&nbsp;</td> <td> <span id="_ctl0_txtNumber" class="Label"><b>1</b></span>&nbsp;</td> </tr> <tr> <td> <span id="_ctl0_lblSubName" class="Label"><b>Имя Фамилия:</b></span></td> <td> <span id="_ctl0_txtSubName" class="Label"><b>нет данных.</b></span>&nbsp;</td> </tr> <tr> <td> <span id="_ctl0_lblAddress" class="Label"><b>Адресс:</b></span></td> <td> <span id="_ctl0_txtAddress" class="Label"><b>нет данных.</b></span>&nbsp;</td> </tr> <tr>

lmikle: пользуемся тегами!!!
Такое возможно???

[lmikle]

Да, возможно.
Тебе надо загрузить страничку в MSHTML и дальше по DOM по id получить значения соответсвуюших тегов.

[Electronic_Arts]

Спасибо за ответ - но можно поподробнее - можешь пример покозать как это делаеться??

[lmikle]

Ну, под рукой готового примера нет.
я тут как-то выкладывал архив, где страничка грузилась в TWebBrowser и там внутри что-то искалось. фактически, там получалась ссылка на документ и далее можно лазить по дереву тегов, так же, как и в TXMLDocument.

Вот как получалась ссылка:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TMainForm.MainWndDownloadComplete(Sender: TObject); var   Document : IHTMLDocument2;   DocText : String; begin   If Not FEnableRobot Then Exit;   Document := MainWnd.Document as IHtmlDocument2;   If Document <>  Nil Then     Begin       DocText := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;     End; end;

Здесь просто получается документ в виде текста, но от документа растет коллекция элементов - можно лазить по ней.

[PashaXP]

Я пользуюсь такой структурой - автозаполнялка, можно и наоборот считывать значения...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

uses   MSHTML_TLB;   // first navigate to tipspage   procedure TForm1.Button1Click(Sender: TObject); begin   Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php'); end;   // Try to access IE instance and fill out the search field with // a text and click the search button   procedure TForm1.Button3Click(Sender: TObject); var   hIE: HWND;   ShellWindow: IShellWindows;   WB: IWebbrowser2;   spDisp: IDispatch;   IDoc1: IHTMLDocument2;   Document: Variant;   k, m: Integer;   ovElements: OleVariant;   i: Integer; begin   ShellWindow := CoShellWindows.Create;   // get the running instance of Internet Explorer   for k := 0 to ShellWindow.Count do   begin     spDisp := ShellWindow.Item(k);     if spDisp = nil then       Continue;     // QueryInterface determines if an interface can be used with an object     spDisp.QueryInterface(iWebBrowser2, WB);       if WB <> nil then     begin       WB.Document.QueryInterface(IHTMLDocument2, iDoc1);       if iDoc1 <> nil then       begin         WB := ShellWindow.Item(k) as IWebbrowser2;         begin           Document := WB.Document;             // count forms on document and iterate through its forms           for m := 0 to Document.forms.Length - 1 do           begin             ovElements := Document.forms.Item(m).elements;             // iterate through elements             for i := 0 to ovElements.Length - 1 do             begin               // when input fieldname is found, try to fill out               try                 if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and                   (CompareText(ovElements.item(i).type, 'text') = 0) then                 begin                   ovElements.item(i).Value := 'FindWindow';                 end;               except               end;               // when Submit button is found, try to click               try                 if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and                   (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and                   (ovElements.item(i).Value = 'Search') then                     // Suchen fьr German                 begin                   ovElements.item(i).Click;                 end;               except               end;             end;           end;         end;       end;     end;   end; end;