Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

Help! Загрузка картинок из интернет в TImage


syserg   (25.07.09 19:34

Друзья, помогите. Нужно, чтобы можно было загрузить картинку из интернета в TImage форматов jpg, png, gif и пр. Или где взять исходники timage picture dialog, ведь он нормально открывает.
Я так понимаю, что делается это через MemoryStream, но как - не знаю.

Нашел следующий код:

procedure TForm1.DownloadJPG(url:string;im:TImage);
var
strStream: String;
memStream: TMemoryStream;
jpegimg: TJPEGImage;
begin
try
strStream := Form1.idhttp1.Get (url);
except
//ShowMessage('Image was not found');
Exit;
end;
memStream := TMemoryStream.Create;
jpegimg := TJPEGImage.Create;
try
memStream.Write(strStream[1], Length(strStream));
memStream.Position := 0;
jpegimg.LoadFromStream(memStream);
im.Picture.Assign(jpegimg);
finally
memStream.Free;
jpegimg.Free;
end;
end;

Пытаюсь загрузить png. Не хочет. Может есть какой-нибудь код для загрузки любых форматов?


KilkennyCat ©   (25.07.09 19:54[1]


> Не хочет

А ты его вежливо попроси. Или убеди как-нибудь. Может, захочет?


syserg   (25.07.09 20:10[2]

На коленях стоял, умолял... Ни в какую...


KilkennyCat ©   (25.07.09 21:02[3]

значит, он не не хочет, а не может.
www.torry.net - там есть такие, какие могут.


Dennis$   (01.10.11 13:09[4]

procedure TForm1.Button1Click(Sender: TObject);
var
memStream: TMemoryStream;
pngimg:TPNGObject;
strStream, img_thumbs: string;
begin
img_thumbs:='http://markuss13.narod.ru/Nitzhe.png';
memStream := TMemoryStream.Create;
strStream := idhttp1.Get(img_thumbs);
memStream.Write(strStream[1], Length(strStream));
memStream.Position := 0;
pngimg:=TPNGObject.Create;
pngimg.LoadFromStream(memStream);
Image1.Picture.Assign(pngimg);
memStream.Free;
pngimg.Free;
end;


seltrix   (07.10.17 19:48[5]

procedure TForm1.DownloadJPG(url:string; place:TImage);
var
 Stream: TMemoryStream;
 jpegimg: TJPEGImage;
begin
 jpegimg := TJPEGImage.Create;
 try
   Stream:=TMemoryStream.Create;
   IdHTTP1.Get(url, Stream);

   Stream.Position := 0;
   jpegimg.LoadFromStream(Stream);
   Image1.Picture.Assign(jpegimg);

   Stream.Free;
 except
   on e:Exception do
   Stream.Free;
 end;
end;


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо