|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите с TWebBrowser
Доброго всем времени суток!
Задача элементарная, прошу ногами не бить, в кодинге не силен, рабочая необходимость заставила . Пытаюсь написать бразуер, который открывал бы мне опеределнную страницу сам. Гугл выдал решение такое: Есть procedure Navigate(const URL: WideString); использовать так: WebBrowser1.Navigate(' http://delphi.vitpc.com/'); Тока вот не могу заставить все это работать |
#2
|
||||
|
||||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://www.delphisources.ru/forum/showpost.php?p=87654&postcount=1'); while WebBrowser1.ReadyState<READYSTATE_INTERACTIVE do Application.ProcessMessages; end; end. Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Спасибо за помощь. Тока что-то не фурычит
Запускаю, открывает белое окно формы TWB и усе, нету переходов на страницу. |
#4
|
||||
|
||||
это работает?
http://data.cod.ru/123126 Пишу программы за еду. __________________ |
#5
|
|||
|
|||
Да, работает.
|
#6
|
||||
|
||||
Цитата:
Цитата:
это тот же код, только уже скомпилированый. Пишу программы за еду. __________________ |
#7
|
|||
|
|||
Толи я туплю, толи лыжи не едут. Действия по порядку:
1)На форму кидаем объект TWebBrowser Переношу представленный тут код, компилю. Получаю дулю |
#8
|
||||
|
||||
нужно ещё создать событие TForm.Create
двойной клик по форме |
#9
|
|||
|
|||
Спасибо!!! Мил человек
|