Загрузить картинку из интернета в ListImage

[fezilk25]

Необходимо загрузить картинки в ListImage, для последующей вставки в ListView. Как это сделать, не пойму.. на форуме не нашел

[Пепел Феникса]

загрузили в TImage(а точнее в любой им поддерживаемый класс) и добавили в список, в чем проблема то?
http://docwiki.embarcadero.com/VCL/e...erited_Members
методы Add, AddImage, и прочие Add*

[fezilk25]

procedure TForm1.Button2Click(Sender: TObject);
var
strStream: String;
memStream: TMemoryStream;
jpegimg: TBitmap;
begin
try
strStream := Form1.idhttp1.Get('http://avt.foto.mail.ru/mail/johntokarev/_avatar');
except

Exit;
end;
memStream := TMemoryStream.Create;
jpegimg := TBitmap.Create;
try
memStream.Write(strStream[1], Length(strStream));
memStream.Position := 0;
jpegimg.LoadFromStream(memStream);
ImageList1.Add(jpegimg, nil);
finally
memStream.Free;
jpegimg.Free;
end;
end;

Ошибка Project Project1.exe raised exception class EInvalidGraphic width message 'Bitmap image is not valid'

Если TImage - нет фунции LoadFromStream

[Пепел Феникса]

а почему вы JPEG-изображение пытаетесь загрузить в TBitmap?
грузите в TJPEGIMage
и помоему можно будет TImage.JPEGIMage.LoadFromStream(ток а TIMage надо создать и в uses jpeg добавить)

[fezilk25]

[DCC Error] Unit1.pas(123): E2010 Incompatible types: 'TBitmap' and 'TJPEGImage'

procedure TForm1.Button2Click(Sender: TObject);
var
strStream: String;
memStream: TMemoryStream;
jpegimg: TJPEGImage;
begin
try
strStream := Form1.idhttp1.Get('http://avt.foto.mail.ru/mail/johntokarev/_avatar');
except

Exit;
end;
memStream := TMemoryStream.Create;
jpegimg := TJPEGImage.Create;
try
memStream.Write(strStream[1], Length(strStream));
memStream.Position := 0;
jpegimg.LoadFromStream(memStream);
ImageList1.Add(jpegimg, nil);
finally
memStream.Free;
jpegimg.Free;
end;
end;

В ImageList тогда не загружается

[fezilk25]

Разобрался. Вот рабочий код:

function JPEG2BMP(jpg:TJPEGIMage):TBitmap;
begin
 Result:=TBitmap.Create;
 Result.Assign(jpg);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
jpegimg: TJPEGImage;
bmp:TBitmap;
M:TMemoryStream;
begin
M:=TMemoryStream.Create;
 idHTTP1.Get('URL ИЗОБРАЖЕНИЯ',M);
 M.Position:=0;
 jpegimg := TJPEGImage.Create;
 jpegimg.loadfromstream(m);
 M.free;
bmp:=JPEG2BMP(jpegimg);
ImageList1.Add(bmp, nil);
jpegimg.Free;
bmp.Free;
end;

[fezilk25]

грузит только jpg, хотелось бы ещё и gif, это реально?

[bulldog5293]

uses pngimage, jpeg, Gifimg;

var
img: TMemoryStream;
Buf: string;
begin
FH.get(сайт', img);
Buf := Trim(FH.Response.ContentType);
If (Pos('image/png', Buf) > 0) then
try

                png := TPNGObject.Create;
                img.Position := 0;
                png.LoadFromStream(img);
                Synchronize(capcha);
          else if (Pos('image/gif', Buf) > 0) then
            try
              Gif := TGIFImage.Create;
              img.Position := 0;
              Gif.LoadFromStream(img);
              Synchronize(capchagif);
            finally
              Gif.Free;
              img := nil;
            end
          else If (Pos('image/JPEG', Buf) > 0) then
            try
              jpeg := TJPEGImage.Create;
              img.Position := 0;
              jpeg.LoadFromStream(img);
              Synchronize(ShowModalForm);
              finally
              jpeg.Free;
              img := nil;
end;
Надеюсь смысл ясен, если чё пиши в личку
+