HiAsm

Форумы Помощь по пакету WebBrowser ← Ctrl12Ctrl →

Ответов: 12

Рейтинг: 0

#1: 2009-05-27 19:15:52 ЛС | профиль | цитата

Ну, вот скажем, есть у меня вот такой код:


#pas
procedure TForm1.Button1Click(Sender: TObject); 
var 
  li: Word; 
begin 
  for li := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do 
    WebBrowser1.OleObject.Document.Images.Item(0).Src := 'c:\MyImage.gif'; 
end;

Заменяю имя процедуры на:


#pas
THIWebBrowser._work_doImageReplace;

добавляю в процедуру проверку существования документа:


#pas
if PKOLWebBrowser(Control).Document <> nil then

вместо "WebBrowser1.OleObject" пишу "PKOLWebBrowser(Control)"
прописываю все точки входа и процедуру в public в нескольких местах, как это сделано в самом THIWebBrowser'е
и в итоге она не только не работает, но и не компилется. Выводит сообщение:

KOLComObj.pas(1614) Hint: Value assigned to 'Status' never used

KOLComObj.pas(2337) Hint: Value assigned to 'SaveInitProc' never used

В общем ничего не получается.

С остановкой загрузки страницы, как уже писал раньше, все прошло на ура.
Вот код:


#pas
procedure THIWebBrowser._work_doStop;
begin
    PKOLWebBrowser(Control).Stop;
end;

Все компилится и работает.

Что я делаю не так?
Может сам код не рабочий?

карма: 0

файлы: 1 code_13486.txt [243B] [107]

Форумы Помощь по пакету WebBrowser ← Ctrl12Ctrl →