[ChinYan]

Каким образом можно добавить картинку Jpeg в TBitMap?
Система такая : на форме есть Image с картинкой bmp или jpeg и эту картинку надо добавить в BitMap

[lmikle]

Нарисорвать на канве битмапа JPEG.

Код:

Bitmap.Canvas.Draw(10,10,JPEG);

[ChinYan]

Если б все было так просто я б не спрашивал.
Требуется Jpeg картинку не НАРИСОВАТЬ поверх битмапа а добавить в него, т.е. TBitMap:=LoadFromFile(Jpeg); вот как

[roamer]

А такая функция не может быть принята за основу ?

Код:

function ConvertFile_JPG_to_BMP(fn_JPG,fn_BMP : string; CompressionQuality : integer) : boolean;
//Конвертация JPG-файла в BMP-файл                                                                       
var
  JPEG: TJPEGImage;
  Bitmap: TBitmap;
begin
  Result:=FALSE;
  if FileExists(fn_JPG) then begin
     JPEG := TJPEGImage.Create;
     try
       if (CompressionQuality>0) and (CompressionQuality<=100) then begin
          JPEG.CompressionQuality:=CompressionQuality;
       end
       else begin
          jpeg.CompressionQuality := 100; {Default Value}
       end;
       jpeg.LoadFromFile(fn_JPG);
       Bitmap := TBitmap.Create;
       try
         Bitmap.Assign(jpeg);
         Bitmap.SaveTofile(fn_BMP);
         Result:=TRUE;
       finally
         Bitmap.Free;
       end;
     finally
       JPEG.Free;
     end;
  end;
end;

[ChinYan]

спасибо, попробую

[ChinYan]

Спасибо огромное, все работает