Code: Select all
Dim img
Set img = CreateObject("ImageMagickObject.MagickImage.1")
do while true
n=n+1
jpeg="20110308-070845UTC.jpg"
timestamp="'"+cstr(n)+"'"
msgs = img.Convert(jpeg,"-font=C:\Windows\fonts\arial.ttf","-rotate=-90", "-gravity=south", "-stroke='#000C'", "-strokewidth=2", "-pointsize=20", "-draw=text 0,5 "+timestamp, "-fill=yellow", "-stroke=none", "-draw=text 0,5 "+timestamp, "imagemagick_test.jpg")
loopCode: Select all
C:\Documents and Settings\Sirius\My Documents\canon\imagemagick_test.vbs(7, 4)
(null): Catastrophic failureThe version is 6.6.7-1 Q16.
best regards,
arto