Картинка из веб страницы

[vinixp]

Ситуация такая. На форме стоит WebBrowser в нём подгружена ЛОКАЛЬНАЯ html страница с картинками и текстом.
Цель: при нажатии на картинку "mini.jpg" (на странице в WebBrowser) она открывала новую (или уже созданную но скрытую) форму на которой появлялась картинка "big.jpg" (возможно в TImage).
Помогите плиииззз!

Вот пример:

[Arigato]

Нужен именно описанный вариант? Это же можно сделать на JavaScript в самой страничке - открыть картинку в новом окошке (только это будет не Ваша форма).

[vinixp]

Видемо это будет интернет-эксплорер!
Такое неподходит =(
Просто думаю как организовать связь передачи функции из html в delphi ...
Во flash получилось с помощью fsCommand ... а тут уже весь мозг взорвал! Ктото гдето говорил что должна быть вызвана функиция джавы по протоколу tcp ... но я только больше запутался ...

[Dj_smart]

Могу помочь:
При нажатии на картинку пусть страница меняет свой заголовок (document.title вродь) на например page:[имя большого фото]. И у веббраузера есть отличный метод OnTitleChange (или както) который срабатывает по изменению заголовка, так попробуйте если начало заголовка - 'page:', то открывать рисунок

<a href="#" OnClick="document.location.title='page:big.jpg';"><img src="mini.jpg" border="0"/></a>

Я таким методом все параметры в прогу передаю.

[vinixp]

Сообщение от Dj_smart

Могу помочь:
При нажатии на картинку пусть страница меняет свой заголовок (document.title вродь) на например page:[имя большого фото]. И у веббраузера есть отличный метод OnTitleChange (или както) который срабатывает по изменению заголовка, так попробуйте если начало заголовка - 'page:', то открывать рисунок

<a href="#" OnClick="document.location.title='page:big.jpg';"><img src="mini.jpg" border="0"/></a>

Я таким методом все параметры в прогу передаю.

Спасибо за подсказку только я не могу вытащить титл страницы в дельфи.

[Dj_smart]

Пожалуй еще раз акцентирую внимание на том, что метод OnTitleChange срабарывает при изменении титла (заголовка). Присмотритесь к параметрам, которые она передает

[vinixp]

Всё спасибо разобрался!
Для тех у кого таже проблема делаем так:
1. Создаем две формы на первую размещаем WebBrowser1 и Label1 с параметром "Visible = False" на вторую Image1 и сохраняем в папку
2. Создаем в папке проекта папку "images" и "index.html"
3. В index.html пишем:

<title></title>
<a href="#" OnClick="document.title='/images/big.jpg';">
<img src="/images/mini.jpg" border="0"></a>

4. В папку "images" кидаем 2 рисунка большой (big.jpg) и маленький (mini.jpg)
5. Теперь выбераем WebBrowser1 и в процедуре onTitleChange пишем:

  
begin
  label1.Caption:=Webbrowser1.OleObject.Document.Title;
//Передаем в label1 титл страницы
  Form2.Image1.picture.LoadFromFile(ExtractFileDir(ParamStr(0)) + label1.Caption);
//Передаем картинке image1 название и местоположение и загружаем её
    if  Form1.label1.Caption = '' then
// если титл пустой то
    Form2.Visible:=False
//непоказываем форму2
    else
    begin
// в противном случае выполнаем
    Form2.Visible:=true;
//открываем форму
    Form2.Width:= Form2.Image1.picture.Width;
    Form2.Height:= Form2.Image1.picture.Height;
//подганяем форму под размер картинки
    Form2.Image1.Width:= Form4.Image1.picture.Width;
    Form2.Image1.Height:= Form4.Image1.picture.Height;
//подгоняем image1 под размеры картинки
    end;
  end;

Вроде всё... если что поправте!
Выкладываю пример!
http://www.vto4ky.ru/upload/999.rar

[vinixp]

Но есть ещё маленькая проблема!
При нажатие на картинку в браузере страница прокручивается в самое начало. Вопрос: как избавится от прокручивание в начало страницы и при клики оставаться на томже месте страницы где и картинка?

[Dj_smart]

<a style="cursor:pointer" OnClick="document.title='/images/big.jpg';">

[vinixp]

Ок... всё вышло! СПС!