как сделать чтобы на image1 загрузился все типы картинок (jpeg, png, bmp) через tmemorystream

[alman12]

как сделать чтобы на image1 открывался все типы картинок (jpeg, png, bmp) через tmemorystream

png:=Tjpegimage.Create;
 PNj := TPNGObject.Create;
 bmp:=TBitmap.Create;

mStream := TmemoryStream.create;

pnj.LoadFromstream(mStream);
bmp.Assign(pnj);
png.Assign(bmp);

Image1.Picture.assign(png);

[Filka]

Можно поподробнее?

[alman12]

загружаю картинку на Tmemorystream. Но в image1 открывается один тип картинок. Как сделать чтобы все типы картинок открывались

[alman12]

var
mStream : TmemoryStream;
strin:widestring;
png:tjpegimage;
 PNj: TPNGObject;
 BMP:TBitmap;
http:tidhttp;
begin
HTTP:=TIdHTTP.Create(Self);
mStream := TmemoryStream.create;
png:=Tjpegimage.Create;
 PNj := TPNGObject.Create;
 bmp:=TBitmap.Create;

strin:=http.get(edit1.text);
http.get(strin,mstream);

MStream.Position := 0;

pnj.LoadFromstream(mStream);
bmp.Assign(pnj);
png.Assign(bmp);

Image1.Picture.assign(png);
png.Free;
 mstream.Free;
 end;

[Filka]

function GetGraphicClass(const AStream: TMemoryStream): TGraphicClass;
var
  Sig: array[0..1] of Word;
begin
  Result := nil;
  if Assigned(AStream) and (AStream.Size >= SizeOf(Sig)) then
  begin
    AStream.Position := 0;
    AStream.Read(Sig, SizeOf(Sig));
    if Sig[0] = $4D42 then
      Result := TBitmap
    else if Sig[0] = $D8FF then
      Result := TJPEGImage
    else if (Sig[0] = $4947) and (Sig[1] = $3846) then
      Result := TGIFImage
    else if (Sig[0] = $5089) and (Sig[1] = $474E) then
      Result := TPNGImage; // TPNGObject
  end;
end;

function LoadGraphic(const AStream: TMemoryStream): TGraphic;
var
  GraphicClass: TGraphicClass;
begin
  Result := nil;
  GraphicClass := GetGraphicClass(AStream);
  if Assigned(GraphicClass) then
  begin
    Result := GraphicClass.Create;
    AStream.Position := 0;
    Result.LoadFromStream(AStream);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  cURL = 'http://programmersforum.ru/images/1070/misc/logo.gif';
var
  MS: TMemoryStream;
  Graphic: TGraphic;
begin
  MS := TMemoryStream.Create;
  try
    IdHTTP1.Get(cURL, MS);
    Graphic := LoadGraphic(MS);
    if Assigned(Graphic) then
      try
        Image1.Picture.Assign(Graphic);
      finally
        Graphic.Free;
      end;
  finally
    MS.Free;
  end;
end;

[alman12]

Спасибо за помощ функция работает

[Filka]

Пожалуйста.