Las librer\u00edas de programaci\u00f3n son herramientas para hacer que el desarrollo de software sea m\u00e1s eficiente. Proporcionan fragmentos de c\u00f3digo reutilizables que los desarrolladores pueden utilizar para programar de forma r\u00e1pida y sencilla.<\/p>\n\n\n\n
En Windows son los famosos archivos que tiene por extensi\u00f3n .DLL, en Linux suelen terminar su nombre en .so<\/p>\n\n\n\n
Una biblioteca escrita en C, tiene un archivo de cabecera (archivo con extensi\u00f3n .h) el cual contiene la definici\u00f3n de las funciones, tipos de datos, etc. que se definen en esta librer\u00eda.<\/p>\n\n\n\n
Desde Free Pascal, es sencillo o relativamente sencillo hacer uso de estas bibliotecas, si se escribe un archivo de cabecera pero usando el lenguaje y la sintaxis de Free Pascal. <\/p>\n\n\n\n\n\n\n\n
Personalmente he escrito varias cabeceras para diversas bibliotecas. Para ello me he apoyado en la Wiki de pascal, en las siguientes entradas:<\/p>\n\n\n\n
Adem\u00e1s del foro de Lazarus y Free Pascal<\/a>. <\/p>\n\n\n\n Adem\u00e1s, con lo aprendido he ido haciendo notas, que me han ayudado. <\/p>\n\n\n\n El nombre de la librer\u00eda externa se debe definir como una constante, y usar los condicionantes de compilaci\u00f3n, por ejemplo:<\/p>\n\n\n\n <\/p>\n\n\n\n <\/a>Las funciones void (que no retornan nada).<\/p>\n\n\n\n Se declaran en Free Pascal como procedimientos (procedure<\/em>)<\/p>\n\n\n\n Una funci\u00f3n que retorna un punto como la siguiente:<\/p>\n\n\n\n Es declarada como una funci\u00f3n que devuelve un puntero.<\/p>\n\n\n\n El puntero debe apuntar a un tipo de dato o estructura conocida. Pero hay veces que no es posible como la definici\u00f3n anterior.<\/p>\n\n\n\n Algunas declaraciones en C devuelve una estructura que no es conocida, o puede ser diferente dependiendo de la situaci\u00f3n. Por ejemplo:<\/p>\n\n\n\n Esto, en Free Pascal, se denomina una estructura opaca, de acuerdo con el post: https:\/\/forum.lazarus.freepascal.org\/index.php\/topic,61311.0.html<\/a><\/p>\n\n\n\n Se declaran as\u00ed:<\/p>\n\n\n\n M\u00e1s informaci\u00f3n en la ayuda de Free Pascal:<\/p>\n\n\n\n La siguiente declaraci\u00f3n es un callback en C.<\/p>\n\n\n\n En Pascal se debe definir de la siguiente manera:<\/p>\n\n\n\n La siguiente estructura en C<\/p>\n\n\n\n En Free Pascal ser\u00eda:<\/p>\n\n\n\n La l\u00ednea siguiente, ser\u00eda un puntero a procedimiento<\/p>\n\n\n\nDefiniendo la biblioteca.<\/a><\/h2>\n\n\n\n
const\n{$IFDEF MSWINDOWS}\n REALSENSE_DLL='realsense2.dll';\n{$ENDIF}\n{$IFDEF LINUX}\n REALSENSE_DLL='realsense2.so';\n{$ENDIF} <\/pre><\/div>\n\n\n\nFunciones void<\/h2>\n\n\n\n
void rs2_delete_context(rs2_context* context);<\/pre><\/div>\n\n\n\n
procedure rs2_delete_context(context: prs2_context); cdecl; external REALSENSE_DLL;<\/pre><\/div>\n\n\n\n
\nLas bibliotecas son declaradas como externa (external<\/em>) y el tipo de llamada cdecl por convenci\u00f3n. \n<\/code><\/pre>\n\n\n\nFunciones que retornan un puntero<\/a><\/h2>\n\n\n\n
rs2_context* rs2_create_context(int api_version, rs2_error** error);<\/pre><\/div>\n\n\n\n
type\n rs2_context = record\nend;\nprs2_context = ^rs2_context; \n (...)\nfunction rs2_create_context(api_version: integer; aerror: Pointer): prs2_context;cdecl; external REALSENSE_DLL;<\/pre><\/div>\n\n\n\n
Cuando la funci\u00f3n retorna un estructura desconocida u opaca<\/a><\/h2>\n\n\n\n
typedef struct rs2_context rs2_context;<\/pre><\/div>\n\n\n\n
type\n rs2_context = record\nend;\nprs2_context = ^rs2_context;<\/pre><\/div>\n\n\n\n
Otra opci\u00f3n es usar un punto opaco.<\/code><\/pre>\n\n\n\nType\n prs2_context=POpaqueData;<\/pre><\/div>\n\n\n\n
\n
Cuando una funci\u00f3n es un callback<\/a><\/h2>\n\n\n\n
typedef struct rs2_devices_changed_callback rs2_devices_changed_callback;\n\ntypedef void (*rs2_devices_changed_callback_ptr)(rs2_device_list*, rs2_device_list*, void*);<\/pre><\/div>\n\n\n\n
type \n pRS2_devices_changed_callback = ^RS2_devices_changed_callback;\n\n RS2_devices_changed_callback = procedure (DeviceList1: pRS2_Device_List; \n DeviceList2: pRS2_Device_List);cdecl;external REALSENSE_DLL;<\/pre><\/div>\n\n\n\n
\n<\/code><\/pre>\n\n\n\nEstructura con una rutina en la declaraci\u00f3n<\/h2>\n\n\n\n
typedef struct rs2_software_video_frame\n{\nvoid* pixels;\nvoid(*deleter)(void*);\nint stride;\nint bpp;\nrs2_time_t timestamp;\nrs2_timestamp_domain domain;\nint frame_number;\nconst rs2_stream_profile* profile;\nfloat depth_units;\n} rs2_software_video_frame;<\/pre><\/div>\n\n\n\ntype\n Trs2_software_video_frame = record\n pixels: pvoid;\n deleter: TDeleterProc;\n stride: integer;\n timestamp: Trs2_time_t;\n domain: Trs2_timestamp_domain;\n frame_number: integer;\n profile: pRS2_stream_profile;\n depth_units: single;\nend; <\/pre><\/div>\n\n\n\n