Конвертация PNG GIF BMP в JPG в TMemoryStream

[Pcrepair]

Добрый день. Есть необходимость конвертации картинок разных форматов в ЖПЕГ, но желательно в TMemoryStream, чтоб все было в ОЗУ
для начала

PicStream:TMemoryStream;
....
PicStream.LoadFromFile(FullPath1+PicNameStr);
TypeOfPic:=KindOfImage(PicStream.Memory);     (*функция возвращает число соответсвующее типу загруженного с Жд файла, все работает*)

if TypeOfPic = 4 then
begin
  ShowMessage('PNG');
  Png2Jpeg(PicStream);        (*вызов процедуры где и должна быть конвертация*)
end;

PicStream.Position := 0;  (*загрузка в ИМИДЖ картинки только ЖПЕГ из потока после трансформации, тут все работает, если ЖПЕГ то вывод в норме*)
JPG:= TJpegImage.Create;
try
  JPG.LoadFromStream(PicStream);
  ImgConv.Picture.Graphic:=JPG;
finally
  FreeAndNil(JPG);
end;

....
procedure Png2Jpeg(aPicStream:TMemoryStream);
var  JPG:TJpegImage;  PNG:TPngImage;  BMP:TBitmap;
begin
  JPG:=TJpegImage.Create;
  PNG:=TPngImage.Create;
  BMP:=TBitmap.Create;
  try
    aPicStream.Position:=0;
    PNG.LoadFromStream(aPicStream);
    //BMP.Assign(PNG);
    //JPG.Assign(BMP);
    JPG.Assign(PNG);

    JPG.SaveToStream(aPicStream);
  finally
    FreeAndNil(JPG);
    FreeAndNil(PNG);
    FreeAndNil(BMP);
  end;
end;

идет ошибка 53, что значит отсутствие ЖПЕГ при выводе в ИМИДЖ результатов конвертации

Вопрос :
- вообще везде используют только загрузку выгрузку в файл, не поток, может из за этого
- что не учтено?
- может в ХЕ3 что то по другому чем с Д7, откуда все примеры

[Sibedir]

Сообщение от unit Vcl.Imaging.jpeg

...

procedure TJPEGImage.Assign(Source: TPersistent);
begin
  if Source is TJPEGImage then
  begin
    FImage.Release;
    FImage := TJPEGImage(Source).FImage;
    FImage.Reference;
    if TJPEGImage(Source).FBitmap <> nil then
    begin
      NewBitmap;
      FBitmap.Assign(TJPEGImage(Source).FBitmap);
    end;
  end
  else if Source is TBitmap then
  begin
    NewImage;
    NewBitmap;
    FBitmap.Assign(Source);
  end
  else
    inherited Assign(Source);
end;

...

Что означает, что в Assign жепега можно посылать или жепег или битмап. Думаю я.
Вообще при конвертациях и прочем удобно пользоваться TPicture.
... А, хотя нет, через TPicture чёт с ходу не вышло. Недосуг разбираться. Вот, через битмэп получается:

procedure Png2Jpeg (aPicStream:TMemoryStream);
var
  JPG: TJpegImage;
  BMP:TBitmap;
  PNG:TPngImage;
  pic: TPicture;
begin
  JPG:=TJpegImage.Create;
  PNG:=TPngImage.Create;
  BMP:=TBitmap.Create;
  pic := TPicture.Create;
  try
    aPicStream.Position:=0;
    PNG.LoadFromStream(aPicStream);
    BMP.Assign(PNG);
    JPG.Assign (BMP);

    aPicStream.Clear;
    aPicStream.Position:=0;
    JPG.SaveToStream(aPicStream);
  finally
    FreeAndNil(pic);
    FreeAndNil(BMP);
    FreeAndNil(JPG);
    FreeAndNil(PNG);
  end;
end;

procedure Bmp2Jpeg (aPicStream:TMemoryStream);
var
  JPG: TJpegImage;
  BMP:TBitmap;
  pic: TPicture;
begin
  JPG:=TJpegImage.Create;
  BMP:=TBitmap.Create;
  pic := TPicture.Create;
  try
    aPicStream.Position:=0;
    BMP.LoadFromStream(aPicStream);
    JPG.Assign (BMP);

    aPicStream.Clear;
    aPicStream.Position:=0;
    JPG.SaveToStream(aPicStream);
  finally
    FreeAndNil(pic);
    FreeAndNil(JPG);
    FreeAndNil(BMP);
  end;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  MS: TMemoryStream;
  JPG: TJpegImage;
begin
  if OpenPictureDialog1.Execute then begin
    MS := TMemoryStream.Create;

    MS.LoadFromFile (OpenPictureDialog1.FileName);
    ShowMessage(IntToStr(MS.Size));
    Png2Jpeg (MS);
    ShowMessage(IntToStr(MS.Size));
    JPG := TJPEGImage.Create;
    MS.Position := 0;
    JPG.LoadFromStream (MS);
    JPG.SaveToFile (OpenPictureDialog1.FileName + '.jpg');

    FreeAndNil(MS);
    FreeAndNil(JPG);
  end;
end;

[Pcrepair]

пока вот так

procedure Png2Jpeg(aPicStream:TMemoryStream);
var  JPG:TJpegImage;  PNG:TPngImage;  BMP:TBitmap;
begin
  JPG:=TJpegImage.Create;
  PNG:=TPngImage.Create;
  BMP:=TBitmap.Create;
  try
    aPicStream.Position:=0;
    PNG.LoadFromStream(aPicStream);
    //PNG
    BMP.Assign(PNG);
    //BMP
    JPG.Assign(BMP);
    aPicStream.Clear;
    aPicStream.Position := 0;
    JPG.SaveToStream(aPicStream);
  finally
    FreeAndNil(JPG);
    FreeAndNil(PNG);
    FreeAndNil(BMP);
  end;
end;

но осталась маленькая проблема : если исходный файл ПНГ имеет прозрачные области то после конвертации оное становятся черными.
тут что то можно поделать?

[Sibedir]

Сообщение от Pcrepair

тут что то можно поделать?

Если честно, Pcrepair, то почитать справки по свойствам и процедурам. Да еще поискать в нэте. Ну и, на худой конец, поэксперементировать. Я обычно начинаю с последнего. Обычно помогает.