Legacy ImageMagick Discussions Archive

Code: Select all

			strResult = img.Convert( _ 
				"-size"			, "200x200", _
				"-font"			, "Arial-Bold", _	
				"-pointsize"	, "12", _
				"-fill"			, "#B6B6B6", _
				"-annotate"		, "0x0+25+18"	,writeUnicodeADODB(sText, strDefaultPath & "top_" & sFilename), _
				"-trim", _
				strDefaultPath & "template.png", _
				strDefaultPath & "top_" & sFilename)

Code: Select all

Function writeUnicodeADODB(txtInput,filePath)
	Dim objStream
	Set objStream = CreateObject("ADODB.Stream")
	objStream.Position = 0
	objStream.Charset = "UTF-8"
	objStream.WriteText txtInput
	objStream.SaveToFile filePath
	writeUnicodeADODB = "@" & filePath
End Function

Code: Select all

' Input is Unicode text and filePath is path to the image file we wish to create. First we create a utf-8 file 
' named the same as the image file and then we use the utf-8 file as an input to when creating the image file.
Function writeUnicodeADODB(txtInput,filePath)
	
	' Create and open stream
		Dim objStream
		Set objStream = CreateObject("ADODB.Stream")
		objStream.Open

	'Reset the position and indicate the charactor encoding
		objStream.Position = 0
		objStream.Charset = "UTF-8"
 
	'Write to the steam
		objStream.WriteText txtInput
 
	'Save the stream to a file
		filePath = filePath & ".txt"
		objStream.SaveToFile filePath, 2 ' overwrite if exists
	
	' Return filepath with an @ so that imagemagick understands that it's a file
		writeUnicodeADODB = "@" & RemoveBOM(filePath)
	
	' Kill stream
		Set objStream = Nothing
		
End Function

' Removes the Byte Order Mark - BOM from a text file with UTF-8 encoding 
' The BOM defines that the file was stored with an UTF-8 encoding.
Public function RemoveBOM(filePath)
	
	' Create a reader and a writer
		Dim writer,reader, fileSize
		Set writer = CreateObject("Adodb.Stream")
		Set reader = CreateObject("Adodb.Stream")
	
	' Load from the text file we just wrote
		reader.Open
		reader.LoadFromFile filePath
	
	' Copy all data from reader to writer, except the BOM
		writer.Mode=3
		writer.Type=1
		writer.Open
		reader.position=5 
		reader.copyto writer,-1 

	' Overwrite file
		writer.SaveToFile filePath,2
	
	' Return file name
		RemoveBOM = filePath

	' Kill objects
		Set writer = Nothing 
		Set reader = Nothing

end function

Code: Select all

strResult = img.Convert( _ 
	"-size", "200x200", _
	"-font", "Arial-Bold", _	
	"-pointsize", "12", _
	"-fill", "#B6B6B6", _
	"-annotate", "0x0+25+18", writeUnicodeADODB(UCase(sText), strDefaultPath & "top_" & sFilename), _
	"-trim", _
	strDefaultPath & "template.png", _
	strDefaultPath & "top_" & sFilename)