[Delphi] Konvertering fra bmp til jpg.

[kake_fisk]

Jeg holder på å lage en dll som kan konvertere bmp filer til jpg, men får mange errors jeg ikke vet hvordan jeg skal fjerne.

Kan noen hjelpe meg?

 

library BMP2JPG;

uses
 SysUtils,
 Classes,
 JPEG,
 Graphics,
 ExtCtrls;

function bmptojpg(load,save:PChar):double;cdecl;
var
 bmp : TImage;
 jpg : TJpegImage;
begin
 jpeg.TJpegImage.Create;
 jpeg.LoadFromFile(load);
 bmp.TBitmap.Create;
 bmp.Assign(jpeg);
 bmp.SaveToFile(save);
 bmp.Free;
 jpeg.Free;
end;

exports bmptojpg;

begin
end.

 

Takk

[PerB]

Hvilke feilmeldinger får du?

[kake_fisk]

Oi, sorry, glemte det.

Build

[Error] BMP2JPG.dpr(16): Undeclared identifier: 'LoadFromFile'

[Error] BMP2JPG.dpr(17): Undeclared identifier: 'TBitmap'

[Error] BMP2JPG.dpr(18): '.' expected but ')' found

[Error] BMP2JPG.dpr(19): Undeclared identifier: 'SaveToFile'

[Error] BMP2JPG.dpr(21): Undeclared identifier: 'Free'

[tasle]

Variabelen som er deklarert som

bmp : TImage;

burde vel være en TBitmap istedenfor en TImage