![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#5
|
|||
|
|||
|
Hola, he implementado este código:
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);
|
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Traducción de JS a Delphi: FOR e ¿incrementos? | Delphius | HTML, Javascript y otros | 4 | 01-06-2007 22:09:11 |
| Traduccion de función VB a delphi !!! | Jan_polero | API de Windows | 2 | 07-02-2005 12:32:54 |
| existe traduccion de Delphi al castellano? | miguel_fr | Varios | 1 | 23-06-2004 04:01:27 |
| Recurso traduccion Delphi 6 | Repelus | Varios | 1 | 18-03-2004 20:13:11 |
|