Форум: "Сети";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c