Traducción de C a Delphi

[[seoane]]

Parece que la función gflBitmapGetEXIF devuelve un puntero a una estructura. Necesitas saber como esta definida esa estructura.

[madiazg]

He editado el mensaje con el código que aparece en gflLib.pas
Saludos...
Miguel Angel

[[coso]]

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 :

TTabGFL_EXIF_ENTRY = array [0..0] of TGFL_EXIF_ENTRY;

¿esto ya es correcto? ¿no serà array dinamico, esto es, array of TGFL_EXIT_ENTRY?

[madiazg]

Hola, he implementado este código:

var
  EXIF : PGFL_EXIF_DATA;
  NItems : integer;
  gfl_bmp1b: PGFL_BITMAP; // Estructura que contiene todas la información sobre una imagen cargada en memoria

...
begin
......
    if gflBitMapHasEXIF(gfl_bmp1b) = gfl_no_error then
    begin
      LabelEXIF.Enabled := True;
      Exif := gflLoadExif(Pchar(FileName1),0);
      NItems := Exif.NumberOfItems;
       for i := 0 to NItems-1 do
      begin
        FormPrincipal.ListBox1.Items.Add(Exif.ItemsList[i].Name + ': ' + Exif.ItemsList[i].Value);
     end;

      gflFreeEXIF(Exif);
    end else MessageDlg('File not readable: ' + string(gflGetErrorString(e1)), mtError, [mbOK], 0);

Funciona correctamente. Gracias!!!!