Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Webbrowser+рисунок.png


__Nick__ ©   (2006-11-17 21:51:00) 

Мастера DELPHI помогите пожалуста.
Такая проблема:
есть рисунок.png ... мне нужно его сохранить на диск но не загружая его снова... потому что php сервер гнерируєт новую картинку при повторному обращении...
в html коде страники на рисунок указывает ->
<TD ... background=\imgdyn\code.php?code=page ...и всё...


__Nick__   (2006-11-20 16:39:00) [1]

-> quantum2  пишу для автосерфинга )))
но проблема в том, что рисунок скрыт под
<TD ... background=\imgdyn\code.php?code=page ...

и Document.Images.Item(z)уже не катит ...

тоесть мне нужно достучатся до background, а как єто зделать я не знаю (((


quantum2   (2006-11-20 16:19:00) [2]

for z := 0 to browser.OleObject.Document.Frames.item(1).document.frames.item(0).Document.Image s.Length - 1 do
       begin
         Source := browser.OleObject.Document.Frames.item(1).document.frames.item(0).Document.Image s.Item(z).Src;
         if pos('img.png',source)>0 then
         begin
         controlRange := browser.OleObject.Document.Frames.item(1).document.frames.item(0).Document.body. createControlRange;
         controlRange.add(browser.OleObject.Document.Frames.item(1).document.frames.item( 0).Document.Images.Item(z));
         controlRange.execCommand('Copy', False, EmptyParam);//êîïèðóåì

         if ClipBoard.HasFormat(CF_BITMAP) then begin
         browser.OleObject.Document.Frames.item(1).document.frames.item(0).Document.forms .item(j).code.value:=recognizeall(ClipBoard.GetAsHandle(cf_Bitmap));
         browser.OleObject.Document.Frames.item(1).document.frames.item(0).Document.forms .item(j).submit;
         //Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);//
         end;
         
         //browser.OleObject.Document.Frames.item(1).document.frames.item(0).Document.Image s.Item(z).Src:=extractfilepath(paramstr(0))+'temp.png';
        // showmessage(Source);
         end;
       end;

вырезал кусок кода из своего приложения. Мысля должна быть понятна.. мэйби коряво, но работало;)

Для чего распознаватель пишешь? если не секрет


__Nick__   (2006-11-20 13:14:00) [3]

как из кэша? напиши процедурку, плз


Masterok   (2006-11-17 22:44:00) [4]

из кэша


Наверх

Титульная страница Поиск, карта сайта Написать письмо