wypisanie informacji EXIF


if (gflBitmapHasEXIF(gfl_bitmap)!=GFL_TRUE)
{
string="Plik nie zawiera informacji EXIF";
WxMemo1->AppendText(_TEXT(string));
}
else
{
exif=gflBitmapGetEXIF(gfl_bitmap,0);
unsigned i;
for (i=0;iNumberOfItems;i++)
{
string=exif->ItemsList[i].Name;
string+=" - ";
string+=exif->ItemsList[i].Value;
string+="\n";
WxMemo1->AppendText(_TEXT(string));
}
gflFreeEXIF(exif);
}