VPF::Проблемма с аналогом TWebBrowser - Форум программистов

sanomaster

Дата 23.5.2008, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.11.2007

Репутация: нет
Всего: нет

доброе время суток!
я написал авто кликер на дэлфи, с помощью TWebBrowser
сайты состоят тупо из картинок, и я решил их убрать!
в нэте нашёл тему - аналог TWebBrowser без загрузки картинок.
я тут видел тему на счёт этого без ответов - вот как раз вам пригодится!
вот код

Код


unit MyBrowser;

interface

uses
  SysUtils, Classes, ActnList, ShDocVw, ActiveX;

type
TMyBrowser = class(TWebBrowser, IDispatch)
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
  end;

procedure Register;

implementation

uses Variants;

procedure Register;
begin
  RegisterComponents('Samples', [TMyBrowser]);
end;

{ TMyBrowser }

function TMyBrowser.Invoke(DispID: Integer; const IID: TGUID;
  LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
  ArgErr: Pointer): HResult;
begin
  if DispID = DISPID_AMBIENT_DLCONTROL
  then begin
    TVarData(VarResult^).VType := VT_I4;
    TVarData(VarResult^).VInteger := 0;
    Result:= S_OK;
  end
  else Result:= inherited Invoke(DispID, IID, LocaleID, Flags, Params, VarResult, ExcepInfo, ArgErr)
end;

end.

проблема в том что появляется ошибка сценария...
эту проблему можно убрать поставив WebBrowser1.Silent:=True;
в TMyBrowser все свойства такие же! но Silent не помогло! иногда появляется ошибка сценария!
я даже незнаю почему! smile

она то каждые 5 минут вылазит, то каждый час!
может кто подскажет?

December

Дата 23.5.2008, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

Если проблема только в том, чтобы подавлять окно - то ищи по форуму, обсуждалось уже.

--------------------

Для друзей с винграда - скидки на разработку сайтов

sanomaster

Дата 23.5.2008, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.11.2007

Репутация: нет
Всего: нет

ну вот эта тема.. http://forum.vingrad.ru/topic-113577/unrea...tml#st_0_view_0
я скопировал код

Код


procedure TMainForm.TrapWM_Activate(var Msg: TWMActivate);
var
  L:Integer;
  wnd:Integer;
  WinClass,WinCaption:string;
  ShouldShow:boolean;
  ShouldClose:boolean;
begin
if Msg.Active = 0 then
  begin
  wnd := Msg.ActiveWindow;
  SetLength(WinClass,80);
  SetLength(WinClass,GetClassName(wnd, PChar(WinClass), Length(WinClass)));
  L:=GetWindowTextLength(wnd);
  SetLength(WinCaption,L+1);
  GetWindowText(Wnd,PChar(WinCaption),L+1);
  SetLength(WinCaption,L);
  ShouldShow:=(WinCaption<>'');
  if ShouldShow then
    begin
    ShouldClose:=(WinCaption='Îøèáêà ñöåíàðèÿ Internet Explorer') and (WinClass='Internet Explorer_TridentDlgFrame');
    ShouldClose:=ShouldClose or ((WinCaption='Internet Explorer Script Error') and (WinClass='Internet Explorer_TridentDlgFrame'));
    ShouldClose:=ShouldClose or ((WinCaption='Internet Explorer') and (WinClass='#32770'));
    if ShouldClose then SendMessage(wnd, WM_CLOSE, 0, 0);
    end;//if should show
  end;//if loose focus
end;//TrapWM_Activate


procedure TMainForm.WMActivate(var Msg: TWMActivate);
begin
TrapWM_Activate(Msg);
inherited;
end;

в protected я так понял!
не помогает( ошибка всё равно вылетает! smile

December

Дата 23.5.2008, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

Вот это
Îøèáêà ñöåíàðèÿ
на
Ошибка сценария
поменял?

Код вообще вызывается?

--------------------

Для друзей с винграда - скидки на разработку сайтов

sanomaster

Дата 23.5.2008, 23:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.11.2007

Репутация: нет
Всего: нет

да, поменял! ошибка всё равно вылетает! мне её блин гдето пол часа ждать приходится(
а как посмотреть вызывается ли код?

December

Дата 24.5.2008, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

Не поверишь - breakpoint поставить... Или хотя бы ShowMessage впихнуть

--------------------

Для друзей с винграда - скидки на разработку сайтов

sanomaster

Дата 25.5.2008, 02:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.11.2007

Репутация: нет
Всего: нет

я уже сказал что ошибку мне ждать пол часа надо!
и сколько мне это раз нада переходить по действиям с помощью breakpoint?
а ShowMessage не вылетает(
я просто скопировал те 2 процедуры и поставил там caption "Ошибка сценария Internet Explorer" правильно?

December

Дата 25.5.2008, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

Вот так метод объявил?
procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;

--------------------

Для друзей с винграда - скидки на разработку сайтов

sanomaster

Дата 25.5.2008, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.11.2007

Репутация: нет
Всего: нет

о, вроде работает! спасибо!
но сайт палит что я не гружу картинки smile

и не переходит по ссылкам дальше
тогда буду пользаваться кликером с картинками smile

ну в любом случае спасибо!)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »