Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];

Вниз

Как вытащить рисунок (png) из HTML страницы?   Найти похожие ветки 

 
sergey2   (2003-02-23 20:10) [0]

Мастера! Мой вопрос может не совсем относится к сетям, но он имеет отношение к TWebBrowser. Я задавал подобный вопрос в разделе "Media" но там мне толком никто не ответил.

Вобщем имеется файл *.png в HTML документе, который открыт в Twebbrowser. нужно этот файл "перетащить" в Bitmap (или Timage). Bitmap и пр. не понимают файлы *.png. Так что нужно "перетащить" его с преобразованием в bmp.
Подскажите, как это сделать по-проще, не устанавливая дополнительных компонентов


 
sergey2   (2003-02-24 20:43) [1]

up


 
Rulka   (2003-04-08 11:57) [2]

Этот код сохраняет веб страничку в bitmap?
Сам не пробовал. Нашел в форумах.
Напишите чот не так.


Исходный код:
procedure TForm1.Button1Click(Sender: TObject);
var
ViewObject: IViewObject;
sourceDrawRect: TRect;
begin
if EmbeddedWB1.Document < > nil then
try
EmbeddedWB1.Document.QueryInterface(IViewObject, ViewObject);
if ViewObject < > nil then
try
sourceDrawRect := Rect(0, 0, Image1.Width, Image1.Height);
ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,
image1.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
finally
ViewObject._Release;
end;
except
end;
end;



 
Ihor Osov'yak   (2003-04-08 20:33) [3]

2 Rulka (08.04.03 11:57)

Сохраняет то, что веббровзер отображает в данный момент времени..

Как альтернатива - скачать по новому картинку с инета..



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

Форум: "Сети";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.009 c
14-26650
ZoomerSahs
2003-05-13 23:38
2003.06.09
Зацените офигительну демку.


14-26658
Knight
2003-05-24 10:02
2003.06.09
Программы для создания календарей


14-26704
Mike_Goblin
2003-05-21 18:11
2003.06.09
Улыбнитесь, коллеги


7-26824
VR
2003-04-05 04:18
2003.06.09
CD-ROM


4-26841
akvilon
2003-04-11 16:06
2003.06.09
когда загрузилось приложение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский