Concatenate Image + Text

MAIS INFORMAÇÕES
Adriano José Boller
Consultor, Representante e Distribuidor Oficial PC SOFT
Email: adrianoboller@gmail.com
Telefone: +55 (41) 99949-1800
Skype: adrianoboller
Horário: Segunda—sexta: 8h–18h
Sábados & domingos: 11h–15h

He used to write a text in an image, save it in jpg to post it

use in wd, wb e wm, modify path file necessary

Would have to test the mobile work, to make an image of the text such as barcode more product names, or pictures of products with updated for by the site or application rates.Android test ok and ios no test in moment. Interesting that the image will have the text that u wrote in one jpg only, give just use creativity.


Example Code:

[25/04/14 17:33:50] Adriano Boller: //Escrever na imagem
//Imagem destino
dStartDrawing(IMG_Peixe)

//dFont("Arial", 12, iBold,0) --- exemplo
//MyFonte = "Arial"
//MyTamanhoFonte = 12
//MyFonteAtributos = inicial iNormal ou iBold+iItalic+iNormal+iStrikeOut+iUnderlined
//MyInclinacao = angulo 0 (zero)
IF CBOX_Negrito = True AND CBOX_Italico = False AND CBOX_Sublinhado = False
dFont(MyFonte,MyTamanhoFonte,iBold,MyInclinacao)
ELSE IF CBOX_Negrito = False AND CBOX_Italico = True AND CBOX_Sublinhado = False
dFont(MyFonte,MyTamanhoFonte,iItalic,MyInclinacao)
ELSE IF CBOX_Negrito = False AND CBOX_Italico = False AND CBOX_Sublinhado = True
dFont(MyFonte,MyTamanhoFonte,iUnderlined,MyInclinacao)
ELSE IF CBOX_Negrito = True AND CBOX_Italico = True AND CBOX_Sublinhado = True
dFont(MyFonte,MyTamanhoFonte,iBold+iItalic+iUnderlined,MyInclinacao)
ELSE IF CBOX_Negrito = True AND CBOX_Italico = True AND CBOX_Sublinhado = False
dFont(MyFonte,MyTamanhoFonte,iBold+iItalic,MyInclinacao)
ELSE IF CBOX_Negrito = True AND CBOX_Italico = False AND CBOX_Sublinhado = True
dFont(MyFonte,MyTamanhoFonte,iBold+iUnderlined,MyInclinacao)
ELSE IF CBOX_Negrito = False AND CBOX_Italico = True AND CBOX_Sublinhado = True
dFont(MyFonte,MyTamanhoFonte,iItalic+iUnderlined,MyInclinacao)
ELSE IF CBOX_Negrito = False AND CBOX_Italico = False AND CBOX_Sublinhado = False
dFont(MyFonte,MyTamanhoFonte,iNormal,MyInclinacao)
END


//dText(4, 0, "Estou escrevendo na imagem!") --- exemplo
IF MyCoordenadaX = "" OR MyCoordenadaX = Null THEN
MyCoordenadaX = 0
END
IF MyCoordenadaY = "" OR MyCoordenadaY = Null THEN
MyCoordenadaY = 0
END
IF MyTexto = "" OR MyTexto = Null THEN
MyTexto = "DIGITE UM TEXTO AQUI"
END
IF MyCor = "" OR MyCor = Null THEN
MyCor = Black
END
MyManagement = False
dText(MyCoordenadaX, MyCoordenadaY, MyTexto, MyCor, MyManagement)

//ok --- Excluir, Criar, salvar imagem gerada pelo usuario
NextTitle("Atenção")
fDelete("/mnt/sdcard/Prog/Imagens/Publicacao.Jpg",frReadOnly)
ok is boolean = dSaveImageJPEG(IMG_Peixe,”/mnt/sdcard/Prog/Imagens/Publicacao.Jpg",100)
IF ok = False THEN
Info("Erro ao gerar a imagem a ser publicada.")
ELSE
IF fFileExist("/mnt/sdcard/Prog/Imagens/Publicacao.Jpg") = True
Info("Imagem gerada com sucesso!")
END
END

===
1 button
1 edt_text
1 ctrol image
===

[25/04/14 17:34:40] Adriano Boller