BCB使用IMAGEEN写EXIF信息

 

  ImageEnView1->IO->LoadFromFile("c:\\a.jpg");

  ImageEnView1->IO->Params->JPEG_Quality = 70;  //压缩品质因子70

  ImageEnView1->Update();

  ImageEnIO1->Params->EXIF_HasEXIFData = true;

  ImageEnIO1->Params->EXIF_XPTitle = "abdd";

  ImageEnIO1->Update();

  ImageEnIO1->SaveToFile("d:\\6.jpg");

ImageEnView1->IO->LoadFromFile("c:\\a.jpg");

ImageEnIO1->Params->EXIF_HasEXIFData = true;  

ImageEnIO1->Params->EXIF_XPTitle = "meetrice jpg exif test";  

ImageEnIO1->Update();  

ImageEnIO1->SaveToFile("d:\\a.jpg");

在窗体上关联 ImageEnView1和ImageEnIO1