WriteMarkerAction example for Delphi
procedure TForm1.LEADImage1TransformMarker (iMarker, lSize: Integer;
pData: Pointer; iTransform: Integer);
begin
// I will replace the comment present in the file with my own comment
if (iMarker = $FE) Then
begin
LEADImage1.WriteMarkerAction:= WRITEMARKER_IGNORE;
LEADImage1.WriteMarker (iMarker, 10, PChar('My comment'));
end;
end;
//Rotate the file 90 degrees
LEADImage1.TransformFile ('c:\temp\1.jpg', 'c:\temp\2.jpg', FILE_TRANSFORM_ROTATE90, 1);