Traducción de C a Delphi
Hola,
a ver si alguien me puede ayudar. Resulta que estoy programando una aplicación para realizar imágenes en 3D (anaglifas, Side-by-Side y Gif)(http://imagen3d.site88.net/) y quiero obtener los datos EXIF de los ficheros que cargo. Utilizo una librería denominada gflLib utilizada en el programa XnView (http://www.xnview.com/). Por lo visto, para mostrar los datos, en C se utilizaría el siguiente código: Código:
exif = gflBitmapGetEXIF(bitmap, 0); Código:
// EXIF Pueden ayudarme a traducir este código a Delphi ya que no conozco C. Saludos... Miguel Angel |
Parece que la función gflBitmapGetEXIF devuelve un puntero a una estructura. Necesitas saber como esta definida esa estructura.
|
He editado el mensaje con el código que aparece en gflLib.pas
Saludos... Miguel Angel |
Hola, solo tienes que sustituir {} por begin, end; el if exif por if assigned(exif) o exif <> nil, el for i;;i++ por for i := 0 to exif.Numbers, las -> por ., el printf() ... pues no se, con ShowMessage(format(...)), alla el printf es solo para sacar datos a pantalla, sino esta redireccionada cout..si va para un archivo o algo, Format('..',[array]) se comporta de manera similar. exif probablemente sera TGFL_EXIF_ENTRY, aunque tambien es posible que sea puntero a esto, PGLF_EXIF_ENTRY
PD : Código:
TTabGFL_EXIF_ENTRY = array [0..0] of TGFL_EXIF_ENTRY; |
Hola, he implementado este código:
Código:
var |
La franja horaria es GMT +2. Ahora son las 16:54:03. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi