Hello
does anybody have LibRAW headers translated into Pascal? I tried to do it myself and simplest functions like "libraw_version()" and "libraw_cameraList()" are working as expected, other ones doesn't seem to work and to make it worse, they return non error status (0).
Simple example
program raw;
uses
libraw;
var
Pdata_t: Plibraw_data_t;
proc_img: Plibraw_processed_image_t;
err: Integer;
begin
Writeln(libraw_version());
Pdata_t := libraw_init(0);
if libraw_open_file(Pdata_t, './raw.orf') = 0 then
begin
Writeln(Pdata_t^.sizes.width, ' x ', Pdata_t^.sizes.height);
Writeln(Pdata_t^.sizes.iwidth, ' x ', Pdata_t^.sizes.iheight);
Writeln(libraw_unpack(Pdata_t));
Writeln(libraw_raw2image(Pdata_t));
Writeln(libraw_dcraw_process(Pdata_t));
proc_img := libraw_dcraw_make_mem_image(Pdata_t, @err);
if err <> 0 then Writeln('Error #', err:0);
end;
libraw_close(Pdata_t);
end.