Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Сделать из компонента TWebBrowser и формы .DLL   Найти похожие ветки 

 
Pcrepair ©   (2012-03-10 18:07) [0]

Добрый день!
есть код модуля на базе компонента TWebBrowser. модулю передается параметр в виде URL, модуль выдает строковый массив данных (ХТМЛ-код страницы) и флаг об окончании загрузки

var
 Form1: TForm1;
 UrlSearch : String; //входные параметры
 DataOut : String;  //выходные параметры
 Flag1 : boolean;   //окончание загрузки страницы

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Flag1 := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
if UrlSearch <> "" then
begin
  Timer1.Enabled := False;
  Flag1 := False;
  URL1 := UrlSearch;
 Flags := 0;
 TargetFrameName := 0;
 Postdata := 0;
 Headers := 0;
 WebBrowser1.Navigate(UrlSearch, Flags, TargetFrameName, PostData, Headers);
    repeat
      Application.ProcessMessages;
      until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
       if WebBrowser1.Document <> nil then
        DataOut := (WebBrowser1.Document as IHTMLDocument2).body.innerhtml;
        Application.ProcessMessages;
        begin
          T := TStringList.Create;//это в другом модуле
          T.Text := DataOut;
          //вызов процедур обработки кода. в отдельном модуле
        end;
       Flag1 := True;
      UrlSearch := "";
     URL1 := "";
   Timer1.Enabled := True;
 end;
end;

initialization
Set8087CW($133F);
end.

Вопрос программистам, хорошо знающим компонент TWebBrowser:
1. можно ли сделать все выше перечисленное в виде DLL, учитывая наличие формы и то что сам TWebBrowser вызывает DLL из ОС
2. будет ли все это работать стабильно, или есть косяки


 
Сергей М. ©   (2012-03-10 18:17) [1]


> модуль выдает строковый массив данных


А браузер-то тогда зачем ?)
Не жирно ли задействовать его только лишь для получения кода html-страницы ?


> будет ли все это работать стабильно


Это как звезды расположатся.


> или есть косяки


Да практически за каждым углом грабли ждут)


 
Германн ©   (2012-03-10 22:20) [2]


> Вопрос программистам, хорошо знающим компонент TWebBrowser

Опять? И опять на четырех форумах параллельно.


 
KilkennyCat ©   (2012-03-11 01:18) [3]


>  Германн ©   (10.03.12 22:20) [2]

> Опять?

а ты хотел, чтоб на весь интернет был один ответ? а гугл тогда как жить будет?


 
Германн ©   (2012-03-11 01:59) [4]


> KilkennyCat ©   (11.03.12 01:18) [3]

"Забанненому" мне ответить нечего. :)


 
brother ©   (2012-03-11 03:41) [5]

> Вопрос программистам, хорошо знающим компонент TWebBrowser:

а остальные? гуляют лесом?)



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.053 c
2-1328775163
Scott Storch
2012-02-09 12:12
2013.03.22
xml, utf8


2-1330700037
German
2012-03-02 18:53
2013.03.22
МойДатаСет


2-1331960369
теркин
2012-03-17 08:59
2013.03.22
Взаимодействие модулей программы


6-1259553474
maxistent
2009-11-30 06:57
2013.03.22
Проблема с компонентами TidTCPServer и TidTCPClient


15-1340483402
Юрий
2012-06-24 00:30
2013.03.22
С днем рождения ! 24 июня 2012 воскресенье