изменить Webbrowser или как выводить баннеры ?!?

← →
MOtoroller (2006-11-17 12:40) [0]

Помогите начальство дало наказ сделать систему вывода баннеров в программе, которую мы продаём.
Что сделано на сей момент
1) на php сделана функция показа случайных баннеров
2) в программ добавлен Webbrowser, который показывает эти баннеры.

Всё бы хорошо, но директор говорит, что ему не нравится что видно скроллинг у Webbrowser, скажите как от него избавиться ? (как я понимаю это невозможно).
Либо скажите как можно вывести баннеры в программе.
Спасибо !!!

← →
untermensch (2006-11-17 12:56) [1]

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

← →
untermensch (2006-11-17 12:57) [2]

Да, можно отображать в webbrouser свой код фрейма с запрещёнными скролингами и источником содержимого из баннерной сети, тогда скроллинга не будет

← →
MOtoroller (2006-11-17 13:04) [3]

> Webbrowser

Скажи пожалуйста как же это сделтаь, если возможно то конкретный пример

← →
Anatoly Podgoretsky © (2006-11-17 13:18) [4]

> MOtoroller (17.11.2006 12:40:00) [0]

> которую мы продаём.

Больше продавать не будете.

← →
untermensch (2006-11-17 13:20) [5]

<html>
<frameset cols="*" BORDER="0" NORESIZE>
<frame src="http://www.delphimaster.ru/forums.shtml" NORESIZE FRAMEBORDER="0" SCROLLING="no" MARGINHEIGHT="0" MARGINWIDTH="0">
</frameset>
</html>

Это загрузить в броузер весто баннера (потом замените URL на Вышу банерную сеть)

← →
untermensch (2006-11-17 13:33) [6]

Если не поможет и серые скроллинги остануться, но унаследовать клаcc с вебброузера и унаследовать свою CreateParams в ней вызвать inherited а затем из подготовленных флагов исключить флаги прокрутки:

TMyWEB = class(TWEBBrowser)
procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TMyWEB.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style and not (WS_VSCROLL or WS_HSCROLL);
end;

← →
MOtoroller (2006-11-17 14:12) [7]

> Если не поможет и серые скроллинги остануться, но унаследовать
> клаcc с вебброузера и унаследовать свою CreateParams в ней
> вызвать inherited а затем из подготовленных флагов исключить
> флаги прокрутки:
>
> TMyWEB = class(TWEBBrowser)
> procedure CreateParams(var Params: TCreateParams); override;
>
> end;
>
> procedure TMyWEB.CreateParams(var Params: TCreateParams);
>
> begin
> inherited CreateParams(Params);
> Params.Style:=Params.Style and not (WS_VSCROLL or WS_HSCROLL

Спасибо тебе всё помогло

изменить Webbrowser или как выводить баннеры ?!? Найти похожие ветки