[syserg]

Друзья, помогите. Нужно, чтобы можно было загрузить картинку из интернета в TImage форматов jpg, png, gif и пр.
Я так понимаю, что делается это через 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. Не хочет. Может есть какой-нибудь код для загрузки любых форматов?

[MarGet]

Юзай Pngimage

Код:

png:TPNGObject;
....
png:=TPNGObject.Create;
memStream.Write(strStream[1], Length(strStream));
memStream.Position := 0;
png.LoadFromStream(memStream);
im.Picture.Assign(png);

lmikle: пользуемся тегами.

[lmikle]

Собственно, как тебе сказали, кроме bmp и jpeg Delphi "из коробки" не поддерживает другие форматы, поэтому тебе надо найти компоненты поддержки соответсвующих форматов. Попробуй GraphicEx - поддерживает кучу форматов на чтение.