VPF::Вытащить картинку с Webbrowser - Форум программистов

__Pack__

Дата 12.11.2006, 19:39 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня така проблема:
загружаю страничку где имеется фрейм. в єтом фрейме есть катринка (код регистрации).
Текст фрейма:

Код


<DIV align=center>
<script language=JavaScript>
 parent.ShowNextPage();
</SCRIPT>
<TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
<TBODY><TR><TD>
<FORM name=userform method=post>
<TABLE height=75 cellSpacing=0 cellPadding=0 width=420 bgColor=#ebebeb border=0>
<TBODY>
<TR vAlign=top height=15>
<TD bgColor=#ffffff colSpan=8>Êàòåãîðèÿ: VIP ñåðôèíã. <!-- | <a class="1" 

href="http://www.krasshop.ru/search/site/?targeturl=http://www.pogazam.ru" target="_blank">Îòêðûòü ññûëêó â íîâîì 

îêíå</a>.</td> --></TD>
<TR>
<TD width=78 background=/imgdyn/code.php?code=page height=39 rowSpan=2<B>><IMG title="Êîä ïðîâåðêè" height=39 

alt="Êîä ïðîâåðêè" src="/img/empty.gif" width=78 border=0></TD><TD align=middle width=190 bgColor=#dfefff 

colSpan=4>Âûáåðèòå, ÷òî èçîáðàæåíî?</TD>
<TD align=middle width=152 colSpan=3>Óãàäàé è ïîëó÷è 2Õ.</TD></TR>
<TR>
.....

(картинка - scr="/img/empty.gif)

Но проблема в чем ... когда я пытаюсь скопировать картинку (сохранить картинку как...) то копируется тольки однин

пиксель... как будто в картинке один пиксель...

Из дельфи питаюсь сохранить на диск, вот так:

Код


s:='Top';
 HTML_Doc2 := form1.WebBrowser1.Document As IHTMLDocument2;
 Window2 := HTML_Doc2.parentWindow As IHTMLWindow2;

 for k := 0 to window2.document.frames.item(s).Document.Images.Length - 1 do
 begin
   Source := window2.document.frames.item(s).Document.Images.Item(k).Src;
   p := LastDelimiter('.', Source);
   ext := UpperCase(Copy(Source, p + 1, Length(Source)));
     p  := LastDelimiter('/', Source);
     dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,Length(Source));
     DownloadFile(Source, dest);
end;

Но таже история... как будто картинка из одного пикселя... но в браузере она гдето 2х2 см...

Немогу понять в чем прикол? Может это фон, а картинка и в самом деле один пиксель? Подскажите как решыть эту

проблему? как вытащить картинку?

Это сообщение отредактировал(а) __Pack__ - 12.11.2006, 19:40

__Pack__

Дата 13.11.2006, 13:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Как я понял, рисунок скрыт в background :

Код


<TD width=78 background=/imgdyn/code.php?code=page ...

а картинка empty.gif - только один пиксель ...
Как вытащить рисунок из background?
Может кто-то знает ...

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