доброе время суток!
я написал авто кликер на дэлфи, с помощью 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 не помогло! иногда появляется ошибка сценария!
я даже незнаю почему! 
она то каждые 5 минут вылазит, то каждый час!
может кто подскажет? |
