форум программистов
https://www.developing.ru/
Интересное заявление, человеку дали работоспособный пример на основе TWebBrowser с открытыми текстами, а он говорит я ничего не нашел, типа сам смотри разбирайся, а мне потом кинешь как это в 2х строках выглядит. Ну что ж, я думаю будем ждать пока кто-то разберется. Может я разберусь если время и желание появится.Duncon писал(а):В нем конечно все замечательно сделанно, но Ответа на свой вопрос я там не нашел, только время потратил.
Так и все же
Как отключить загрузку картинок в TWebBrowser -е????
Duncon писал(а):Ты уверен что там есть эта функция??
Код: Выделить всё
TDownloadControlOption = (]
[b][color=red]DLCTL_DLIMAGES[/color][/b] - вкл./выкл. загрузку картинок
Далее смотри: [code]FDownloadOptionValueКод: Выделить всё
function TEmbeddedWB.Invoke(DispID: Integer;
const IID: TGUID;
LocaleID: Integer;
Flags: Word;
var Params;
VarResult, ExcepInfo,
ArgErr: Pointer): HResult;Код: Выделить всё
WebBrowser := TEmbeddedWB.Create(self);
with TControl(WebBrowser) do
Begin
Parent := self; //or whatever...
width:=800;
height:=600;
End;
with WebBrowser do begin
Loaded;
Visible := True;
DownloadOptions:=[
DLCTL_NO_SCRIPTS
,DLCTL_NO_JAVA
,DLCTL_NO_RUNACTIVEXCTLS
,DLCTL_NO_DLACTIVEXCTLS
];
End;