[Статья] Загрузка изображений с интернета в TImage с помощью Indy. Delphi.

[VeTaL_UA]

Доброго времени суток!

В этой статье я попробую научить вас загружать картинки, которые расположены в интернете, в компонент TImage.

Загружать мы будем картинки форматов bmp, ipg и ico. Почему? А потому, что для загрузки картинок этих форматов не требуется установка сторонних библиотек. Для работы с картинками других форматов принцип остается тот же, только необходимо будет установить библиотеки для работы с нужным для вас форматом...

-== 1. Что нужно для работы. ==-

• Delphi любой версии. Ссылки на скачку:
  • Delphi 7([Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ]);
  • Delphi 2010([Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ]);
  • Delphi XE([Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ]);
• Желание;

Ну что же, если все пункты присутствуют, то можно начать.

-== 2. Подготовка к написанию кода. ==-

1. Сначала нам нужно выбрать сайт, откуда вы будете загружать картинку. В данной статье мы будем загружать картинки с хостинга изображения. Для примера я выбрал [Ссылки могут видеть только зарегистрированные пользователи. ];
2. Теперь нужно загрузить на хостинг картинок картинки трех форматов(bmp,jpg,ico). Картинки могут быть любыми. Для примера я предлагаю использовать эти картинки:
   • bmp
     [Ссылки могут видеть только зарегистрированные пользователи. ]
   • jpg
     [Ссылки могут видеть только зарегистрированные пользователи. ]
   • ico
     [Ссылки могут видеть только зарегистрированные пользователи. ]
3. Теперь копируем ссылки на изображения и заканчиваем подготовку;

-== 3. Написание кода. ==-

Теперь мы приступаем к написанию кода.

1. Запускаем делфи;
2. Кидаем на форму 3 компонента Button из вкладки "Standart":
   Скрин
   [Ссылки могут видеть только зарегистрированные пользователи. ]
3. Кидаем на форму 3 компонента Image из вкладки "Additional":
   Скрин
   [Ссылки могут видеть только зарегистрированные пользователи. ]
4. Кидаем на форму один компонент IdHTTP из вкладки "Indy Clients":
   Скрин
   [Ссылки могут видеть только зарегистрированные пользователи. ]
5. Теперь проделываем следующие действия:
   • -== Готовим код для загрузки bmp ==-
     1. Создаете обработчик событий OnClick на компоненте Button(два раза кликаем по Button'у);
     2. Объявляете переменные типа TMemoryStream и TIdHTTP в процедуре нажатия на кнопку:
        

        var
        bmp:TMemoryStream;
        HTTP:TIdHTTP;

     3. Теперь вы должны создать TMemoryStream, TIdHTTP, а так же и TBitmap в Image:
        

        HTTP:=TIdHTTP.Create(nil);
        bmp:=TMemoryStream.Create;
        Image1.Picture.Bitmap:=TBitmap.Create;

     4. Теперь пишем код для загрузки картинки в Image:
        

        bmp.Position:=0;
        HTTP.Get('http://s009.radikal.ru/i308/1109/92/d2498c7075dd.bmp',bmp); //адрес bmp картинки
        bmp.Position:=0;
        Image1.Picture.Bitmap.LoadFromStream(bmp);

     5. Ну и под конец очищаем переменные:
        

        HTTP.Free;
        bmp.Free;

   • -== Готовим код для загрузки jpg ==-
     1. Дописываем в uses "jpeg":
        

        uses
          jpeg;

     2. Создаете обработчик событий OnClick на втором компоненте Button(два раза кликаем по Button'у);
     3. Объявляете переменные типа TMemoryStream и TIdHTTP в процедуре нажатия на кнопку:
        

        var
        jpg:TMemoryStream;
        HTTP:TIdHTTP;

     4. Теперь вы должны создать TMemoryStream, TIdHTTP, а так же и TJPEGImage во втором Image:
        

        HTTP:=TIdHTTP.Create(nil);
        jpg:=TMemoryStream.Create;
        Image2.Picture.Graphic:=TJPEGImage.Create;

     5. Теперь пишем код для загрузки картинки в Image:
        

        jpg.Position:=0;
        HTTP.Get('http://s014.radikal.ru/i329/1109/ca/518e16d3df4d.jpg',jpg); //адрес jpg картинки
        jpg.Position:=0;
        Image2.Picture.Graphic.LoadFromStream(jpg);

     6. Ну и под конец очищаем переменные:
        

        HTTP.Free;
        jpg.Free;

   • -== Готовим код для загрузки ico ==-
     1. Создаете обработчик событий OnClick на третьем компоненте Button(два раза кликаем по Button'у);
     2. Объявляете переменные типа TMemoryStream и TIdHTTP в процедуре нажатия на кнопку:
        

        var
        ico:TMemoryStream;
        HTTP:TIdHTTP;

     3. Теперь вы должны создать TMemoryStream, TIdHTTP, а так же и TIcon во втором Image:
        

        HTTP:=TIdHTTP.Create(nil);
        ico:=TMemoryStream.Create;
        Image3.Picture.Icon:=TIcon.Create;

     4. Теперь пишем код для загрузки картинки в Image:
        

        ico.Position:=0;
        HTTP.Get('http://i081.radikal.ru/1109/06/76d27503fa51.ico',ico); //адрес ico картинки
        ico.Position:=0; Image3.Picture.Icon.LoadFromStream(ico);

     5. Ну и под конец очищаем переменные:
        

        HTTP.Free;
        ico.Free;

6. Теперь давайте напишем универсальную процедуру для загрузки картинок. Для этого бросаем на форму ещё один Image:
   1. Дописываем в uses "jpeg":
      

      uses
        jpeg;

   2. Дописываете перед "end." код:
      

      procedure ImageLoad(URL:string);

   3. Объявляете переменные типа TMemoryStream и TIdHTTP в процедуре нажатия на кнопку:
      

      var
      img:TMemoryStream;
      HTTP:TIdHTTP;

   4. Теперь вы должны создать TMemoryStream и TIdHTTP:
      

      HTTP:=TIdHTTP.Create(nil);
      img:=TMemoryStream.Create;

   5. Теперь пишем код для загрузки картинки в Image с проверкой формата:
      

      img.Position:=0;
      HTTP.Get(URL,img);
      img.Position:=0;
       if Pos('bmp',URL)<>0 then
        begin
        Image4.Picture.Bitmap:=TBitmap.Create;
        Image4.Picture.Bitmap.LoadFromStream(img);
        end;
       if Pos('jpg',URL)<>0 then
        begin
        Image4.Picture.Graphic:=TJPEGImage.Create;
        Image4.Picture.Graphic.LoadFromStream(img);
        end;
       if Pos('ico',URL)<>0 then
        begin
        Image4.Picture.Icon:=TIcon.Create;
        Image4.Picture.Icon.LoadFromStream(img);
        end;

   6. Ну и под конец очищаете переменные:
      

      img.Free;
      HTTP.Free;

   7. Пример использования процедуры:
      

      ImageLoad('http://s009.radikal.ru/i308/1109/92/d2498c7075dd.bmp');

      Полный код процедуры:
      

      procedure ImageLoad(URL:string);
      var
      img:TMemoryStream;
      HTTP:TIdHTTP;
      begin
      HTTP:=TIdHTTP.Create(nil);
      img:=TMemoryStream.Create;
      HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
       try
       img.Position:=0;
       HTTP.Get(URL,img);
       img.Position:=0;
        if Pos('bmp',URL)<>0 then
         begin
         Image4.Picture.Bitmap:=TBitmap.Create;
         Image4.Picture.Bitmap.LoadFromStream(img);
         end;
        if Pos('jpg',URL)<>0 then
         begin
         Image4.Picture.Graphic:=TJPEGImage.Create;
         Image4.Picture.Graphic.LoadFromStream(img);
         end;
        if Pos('ico',URL)<>0 then
         begin
         Image4.Picture.Icon:=TIcon.Create;
         Image4.Picture.Icon.LoadFromStream(img);
         end;
       finally
       img.Free;
       HTTP.Free;
       end;
      end;

   Полный код всего проекта:
   

   uses
     jpeg;
   ...
   procedure ImageLoad(URL:string);
   var
   img:TMemoryStream;
   HTTP:TIdHTTP;
   begin
   HTTP:=TIdHTTP.Create(nil);
   img:=TMemoryStream.Create;
   HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
    try
    img.Position:=0;
    HTTP.Get(URL,img);
    img.Position:=0;
     if Pos('bmp',URL)<>0 then
      begin
      Image4.Picture.Bitmap:=TBitmap.Create;
      Image4.Picture.Bitmap.LoadFromStream(img);
      end;
     if Pos('jpg',URL)<>0 then
      begin
      Image4.Picture.Graphic:=TJPEGImage.Create;
      Image4.Picture.Graphic.LoadFromStream(img);
      end;
     if Pos('ico',URL)<>0 then
      begin
      Image4.Picture.Icon:=TIcon.Create;
      Image4.Picture.Icon.LoadFromStream(img);
      end;
    finally
    img.Free;
    HTTP.Free;
    end;
   end;
   
   procedure TForm1.Button1Click(Sender: TObject);
   var
   bmp:TMemoryStream;
   HTTP:TIdHTTP;
   begin
   HTTP:=TIdHTTP.Create(nil);
   bmp:=TMemoryStream.Create;
   HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
    try
    bmp.Position:=0;
    HTTP.Get('http://s009.radikal.ru/i308/1109/92/d2498c7075dd.bmp',bmp);
    Image1.Picture.Bitmap:=TBitmap.Create;
    bmp.Position:=0;
    Image1.Picture.Bitmap.LoadFromStream(bmp);
    finally
    HTTP.Free;
    bmp.Free;
    end;
   end;
   
   procedure TForm1.Button3Click(Sender: TObject);
   var
   jpg:TMemoryStream;
   HTTP:TIdHTTP;
   begin
   HTTP:=TIdHTTP.Create(nil);
   jpg:=TMemoryStream.Create;
   HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
    try
    jpg.Position:=0;
    HTTP.Get('http://s014.radikal.ru/i329/1109/ca/518e16d3df4d.jpg',jpg);
    Image2.Picture.Graphic:=TJPEGImage.Create;
    jpg.Position:=0;
    Image2.Picture.Graphic.LoadFromStream(jpg);
    finally
    HTTP.Free;
    jpg.Free;
    end;
   end;
   
   procedure TForm1.Button2Click(Sender: TObject);
   var
   ico:TMemoryStream;
   HTTP:TIdHTTP;
   begin
   HTTP:=TIdHTTP.Create(nil);
   ico:=TMemoryStream.Create;
   HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
    try
    ico.Position:=0;
    HTTP.Get('http://i081.radikal.ru/1109/06/76d27503fa51.ico',ico);
    Image3.Picture.Icon:=TIcon.Create;
    ico.Position:=0;
    Image3.Picture.Icon.LoadFromStream(ico);
    finally
    HTTP.Free;
    ico.Free;
    end;
   end;

Теперь, когда мы закончили написание программы, запускаем программу и смотрим, что получилось.

Скачать исходник([Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ]);
Скачать скриншоты([Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ],[Ссылки могут видеть только зарегистрированные пользователи. ]);

Статья писалась VeTaL_UA для Zhyk.RU. При копировании указывать ссылку на данную тему.

[D.E.Z.E.R.T.I.R]

А что делать, если картинка динамичная? Например капча, ссылка 1, но каждый раз разная картинка, как быть?

[VeTaL_UA]

Цитата: Сообщение от D.E.Z.E.R.T.I.R А что делать, если картинка динамичная? Например капча, ссылка 1, но каждый раз разная картинка, как быть?

Научится добираться до истинной ссылки на изображение

[metraz]

если мы загружаем png, то по какому из 3 пунктов надо действовать?

[VeTaL_UA]

Цитата: Сообщение от metraz если мы загружаем png, то по какому из 3 пунктов надо действовать?

Ну будет наиболее похоже на jpeg. Смотри, подключаешь модуль по обработке png, и пишешь вместо того, что в теме

Image2.Picture.Graphic:=TPNGImage.Create; //в названии не уверен, уточни сам

Ну а дальше всё так, как и в теме