Available in the LEADTOOLS Imaging toolkit. |
WriteMarkerAction example for Visual Basic
' Rotate the file 90 degrees
LEAD1.TransformFile "c:\temp\1.jpg", "c:\temp\2.jpg", FILE_TRANSFORM_ ROTATE90, 1
' I will replace the comment present in the file with my own comment
Private Sub LEAD1_TransformMarker(ByVal iMarker As Integer, ByVal lSize As Long, ByVal vData As Variant, ByVal iTransform As Integer)
If iMarker = &HFE Then
LEAD1.WriteMarkerAction = WRITEMARKER_IGNORE
LEAD1.WriteMarker iMarker, 10, "My comment"
End If
End Sub