Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Сделать из компонента 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.134 c
15-1338965289
alexdn
2012-06-06 10:48
2013.03.22
Таблицу в пхп


2-1340016908
webpauk
2012-06-18 14:55
2013.03.22
Перехват нажатия клавиши мыши


2-1329850261
Аццкий
2012-02-21 22:51
2013.03.22
как узнать что чар это цифра, буква, то и другое?


2-1335429750
Daryma
2012-04-26 12:42
2013.03.22
Access &amp; Delphi 7


15-1333798232
ProgRAMmer Dimonych
2012-04-07 15:30
2013.03.22
Шаблон консольного приложения Delphi 7





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский