BMP (nicht genügend speicher) JPG 4 MP

[Muetze1]

Zitat:

Zitat von Der_Unwissende

@karstadt
Leg mal die Bitmap als private Variable in der Klasse an. Dann solltest du das Problem los sein. Delphi hat eine Größenbeschränkung für lokale Variablen.

Dadurch das Instanzenvariablen nur intern Zeiger sind, ist es vollkommen schnurz wo die deklariert ist - sie ist so oder so nur 4 Bytes gross. Schau sonst nach mit SizeOf()...

[Karstadt]

Zitat:

Leg mal die Bitmap als private Variable in der Klasse an. Dann solltest du das Problem los sein. Delphi hat eine Größenbeschränkung für lokale Variablen.

funktioniert nicht... :(

[DGL-luke]

warum eigentlich stretchdraw?

Delphi-Quellcode:

//initialization
uses jpeg;

function JPGToBMP(jpgImg: TJPEGImage): TBitmap; overload;
function JPGToBMP(jpgFile: string): TBitMap; overload;

//implementation

function JPGToBMP(jpgImg: TJPEGImage): TBitmap;
begin
  Result := TBitmap.Create;
  with Result do
    begin
      Width  := jpgImg.Width;
      Height := jpgImg.height;

      Canvas.Draw(0,0,jpgImg);
    end;
end;

function JPGToBMP(jpgFile: string): TBitMap;
var jpgImg: TJPEGImage;
begin
  jpgImg := TJPEGImage.Create;
  jpgImg.LoadFromFile(jpgFile);
  Result := JPGToBMP(jpgImg);
  //nur zur sicherheit
  jpgImg.Free;
end;

EDIT: Vervollständigt... wer will, kanns gerne für die codelib vorschlagen :gruebel:

[Karstadt]

..hallo. DGL-luke

Probiere ich aus. Vielen dank!