Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.12;
Скачать: CL | DM;

Вниз

Подскажите как извлечь картинку с Webbrowser   Найти похожие ветки 

 
__nick__   (2006-11-12 19:32) [0]

У меня така проблема:
загружаю страничку где имеется фрейм. в єтом фрейме есть катринка (код регистрации).
Текст фрейма:
<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>&#202;&#224;&#242;&#229;&#227;&#238;&#240;&#232;&#255;: VIP &#241;&#229;&#240;&#244;&#232;&#237;&#227;. <!-- | <a class="1" href="http://www.krasshop.ru/search/site/?targeturl=http://www.pogazam.ru" target="_blank">&#206;&#242;&#234;&#240;&#251;&#242;&#252; &#241;&#241;&#251;&#235;&#234;&#243; &#226; &#237;&#238;&#226;&#238;&#236; &#238;&#234;&#237;&#229;</a>.</td> --></TD>
<TR>
<TD width=78 background=/imgdyn/code.php?code=page height=39 rowSpan=2<B>><IMG title="&#202;&#238;&#228; &#239;&#240;&#238;&#226;&#229;&#240;&#234;&#232;" height=39 alt="&#202;&#238;&#228; &#239;&#240;&#238;&#226;&#229;&#240;&#234;&#232;" src="/img/empty.gif" width=78 border=0></TD><TD align=middle width=190 bgColor=#dfefff colSpan=4>&#194;&#251;&#225;&#229;&#240;&#232;&#242;&#229;, &#247;&#242;&#238; &#232;&#231;&#238;&#225;&#240;&#224;&#230;&#229;&#237;&#238;?</TD>
<TD align=middle width=152 colSpan=3>&#211;&#227;&#224;&#228;&#224;&#233; &#232; &#239;&#238;&#235;&#243;&#247;&#232; 2&#213;.</TD></TR>
<TR>
.....


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

Из дельфи питаюсь сохранить на диск, вот так:
s:="Top";
 HTML_Doc2 := form1.WebBrowser1.Document As IHTMLDocument2;
 Window2 := HTML_Doc2.parentWindow As IHTMLWindow2;

 oRange1 := window2.document.frames.item(s).document.body.innerText;
 form1.memo1.Text:=orange1;

 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 см...

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


 
Ketmar ©   (2006-11-12 19:36) [1]

и отчего я подозреваю, что в empty.gif и должна быть "картинка" 1x1 пиксель?


 
__nick__   (2006-11-13 09:23) [2]

но в webbrowser отображается нормальная "картинка"...как ее вытащить...
можна попробывать принтскрином... но ето большой гиморой ...


 
DiamondShark ©   (2006-11-13 12:00) [3]

так написано же:
<TD width=78 background=/imgdyn/code.php?code=page
фон это у ячейки.


 
__nick__   (2006-11-13 13:18) [4]

ну а как вытащить этот фон, скажем, в timage?


 
Ketmar ©   (2006-11-13 16:05) [5]

>[4] __nick__ 13-Nov-2006, 13:18
>ну а как вытащить этот фон, скажем, в timage?
скачать не пробовал? для особо одарённых DiamondShark даже привёл ссылку.


 
__nick__   (2006-11-13 19:05) [6]

для очень одарённых напиши ,пожалуста, код на delphi....
Я пробывал:
...
Source:="/imgdyn/code.php?code=page";
...
DownloadFile(Source, dest);
...

но ничего не сохраняет ...


 
Ketmar ©   (2006-11-13 19:08) [7]

>[6] __nick__ 13-Nov-2006, 19:05
>для очень одарённых напиши ,пожалуста, код на delphi....
80 WMZ. как для очень одарённого -- скидку сделал.


 
__nick__   (2006-11-14 11:13) [8]

)))))))))))))))))))))))))))))))))))
слипка не спопнется?


 
Ketmar ©   (2006-11-14 17:24) [9]

>[8] __nick__ 14-Nov-2006, 11:13
>слипка не спопнется?
откуда мне знать, какие у тебя проблемы с физиологией?


 
__nick__   (2006-11-15 09:15) [10]

ладно... я пришол сюда не за тем, что бы спорить с мудаком ...
я надеюсь есть еще нормальные люди, которые могут помочь мне...
->Ketmar если не хочеш помочь - то лутше не пиши ...


 
dgs ©   (2007-01-07 14:46) [11]

__nick__, я эту проблему коряво но вылечил, стучи в асю 206356276, расскажу :)



Страницы: 1 вся ветка

Текущий архив: 2007.08.12;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.028 c
15-1184593403
TStas
2007-07-16 17:43
2007.08.12
Как снести брандмауэр


15-1184526396
Rembo
2007-07-15 23:06
2007.08.12
delphi2007 установка компонентов


2-1184682898
Knob
2007-07-17 18:34
2007.08.12
Отключение процесса windows


2-1184816137
zsergey
2007-07-19 07:35
2007.08.12
связка двух таблиц ...


2-1184323485
lamerskii_vopros
2007-07-13 14:44
2007.08.12
динамическое создание компонента