Скачать: CL | DM;

Webbrowser+рисунок.png   Найти похожие ветки 

← →
__Nick__   (2006-11-17 21:51) [0]

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

---

← →
Masterok   (2006-11-17 22:44) [1]

из кэша

---

← →
__Nick__   (2006-11-20 13:14) [2]

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

---

← →
quantum2   (2006-11-20 16:19) [3]

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 16:39) [4]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c