So da bin ich wieder!
Wenn ich bei Uses Jpg
hinschreibe erscheint
eine neue
Unit in der
steht:
Code:
procedure Jpg2Bmp(FileName: String; Bmp: TBitmap);
var
Jpg : TJpegImage;
begin
Jpg := TJpegImage.Create;
try
Jpg.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Image\int2.jpg');
Bmp.Assign(Jpg);
finally Jpg.Free end;
end;
Und dann Undifinirter bezeichner TJpegImage !
Was nun?
cYa Citybreaker
