|
Inicio → WINDEV 25 → Wx - Somando 2 imagens uma delas transparente sobre uma foto ou video obtidos com a webcam com WL (Montagem de Imagens) |
Wx - Somando 2 imagens uma delas transparente sobre uma foto ou video obtidos com a webcam com WL (Montagem de Imagens) |
Iniciado por adrianoboller, mar., 03 2016 6:38 PM - 2 respostas |
| |
| | | |
|
| |
Membro registado 3.659 mensagems Popularité : +175 (223 votes) |
|
Publicado em março, 03 2016 - 6:38 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.659 mensagems Popularité : +175 (223 votes) |
|
Publicado em abril, 05 2016 - 10:13 PM |
Prezados,
Segue alguns detalhes apontados pelo Danilo Valim
bufImageBuffer is Buffer = "" sImageString is string = ""
bufImageBuffer = fLoadBuffer(IMG_1)
sImageString = Crypt(bufImageBuffer,"",cryptNone)
gdsConsulta is Data Source HClose(gdsConsulta)
gsQuery is string = "Execute Cadastro_Anexo "+EDT_Nome_Imagem+" ,'"+sImageString+"',0" IF NOT HExecuteSQLQuery(gdsConsulta,CONN2, hQueryWithoutCorrection, gsQuery) THEN Info(HErrorInfo()) ELSE HReadFirst(gdsConsulta, MsgProd) WHILE HOut() = False IF gdsConsulta.MsgProd <> "OK" THEN Error(gdsConsulta.MsgProd) ELSE Info("OK") END HReadNext(gdsConsulta) END END
IF HExecuteQuery(QRY_Insert_Foto,hQueryDefault,EDT_Nome_Imagem,sImageString) = False THEN Info(HErrorInfo()) ELSE Info("Imagem salva com Sucesso!!") END
dsQry_Sql is Data Source
sQl_execute is string = [ Insert INTO Anexo_Teste ( NomeAnexo, Foto ) VALUES ( '@NomeAnexo@', '@Foto@' ) ]
sQl_execute = Replace(sQl_execute,"@NomeAnexo@",EDT_Nome_Imagem) sQl_execute = Replace(sQl_execute,"@Foto@",sImageString)
ok is boolean = HExecuteSQLQuery(dsQry_Sql,hQueryDefault+hCheckDuplicates+hCheckIntegrity,sQl_execute) IF ok = True THEN Info("OK") ELSE Info(HErrorInfo(),ErrorInfo()) END
Conteudo da variavel sImageString
/9j/4QJMRXhpZgAASUkqAAgAAAAMAAABBAABAAAAIBAAAAEBBAABAAAAGAwAAA8BAgAIAAAAngAAABAB AgAJAAAApgAAABIBAwABAAAABgAAABoBBQABAAAAsAAAABsBBQABAAAAuAAAACgBAwABAAAAAgAAADEB AgANAAAAwAAAADIBAgAUAAAAzgAAABMCAwABAAAAAQAAAGmHBAABAAAA4gAAAAAAAABTQU1TVU5HAEdU LUk5NTA1AABIAAAAAQAAAEgAAAABAAAASTk1MDVWSlVFTUtFAAAyMDE0OjA0OjAzIDIzOjI0OjA4AA8A IogDAAEAAAACAAAAAJAHAAQAAAAwMjIwA5ACABQAAACcAQAABJACABQAAACwAQAAAZEHAAQAAAABAgMA B5IDAAEAAAACAAAAfJIHAGIAAADEAQAAAKAHAAQAAAAwMTAwAaADAAEAAAABAAAAAqAEAAEAAAAgEAAA A6AEAAEAAAAYDAAABaAEAAEAAAAmAgAAAqQDAAEAAAAAAAAAA6QDAAEAAAAAAAAABqQDAAEAAAADAAAA AAAAADIwMTQ6MDQ6MDMgMjM6MjQ6MDgAMjAxNDowNDowMyAyMzoyNDowOAAHAAEABwAEAAAAMDEwMAIA BAABAAAAACABAAwABAABAAAAAAAAABAABQABAAAAWgAAAEAABAABAAAAAAAAAFAABAABAAAAAQAAAAAB AwABAAAAAAAAAAAAAAAAAAAAAAAAAAIAAQACAAQAAABSOTgAAgAHAAQAAAAwMTAwAAAAAP/bAIQAAQEB AQEBAQEBAQEBAQICAwICAgICBAMDAgMFBAUFBQQEBAUGBwYFBQcGBAQGCQYHCAgICAgFBgkKCQgKBwgI CAEBAQECAgIEAgIECAUEBQgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI CAgICAgI/8AAEQgMGBAgAwEiAAIRAQMRAf/EAaIAAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKCxAA AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRol JicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZ mqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6AQAD ...
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.659 mensagems Popularité : +175 (223 votes) |
|
Publicado em agosto, 09 2016 - 11:44 PM |
Alterando uma imagem colorida para preto e branco (tons de cinza):
Exemplo:
dCopieImage(IMG_FAX1, IMG_FAX1, copiePasSrcCopie)
IMG_FAX1=dSauveImageJPEG(IMG_ORIGINE,enMémoire,100,imgNiveauDeGris)
Floyd_Steinberg(IMG_FAX1,POT_SEUIL)
Procedure Floyd_Steinberg(ChampImage,rSeuil=50) nLargeur,nHauteur sont des entiers
nLargeur =ChampImage..Largeur nHauteur =ChampImage..Hauteur
dDébutDessin(ChampImage)
nCouleurPoint est un entier nNouvelleCouleurPoint est un entier nQteErreur est un entier
POUR x=1 _A_ nLargeur POUR y=1 _A_ nHauteur nCouleurPoint=dPixelCouleur( x,y) nNouvelleCouleurPoint=NouvelleCouleur(nCouleurPoint,rSeuil) dPoint(x,y,nNouvelleCouleurPoint) SI nNouvelleCouleurPoint<>iNoir ALORS nQteErreur=255 SINON nQteErreur=0 FIN
SI x<nLargeur ALORS dPoint(x+1,y,dPixelCouleur(x+1,y)+(nQteErreur*(7/16))) SI y<nHauteur ALORS dPoint(x-1,y+1,dPixelCouleur(x-1,y+1)+(nQteErreur*(3/16))) SI y<nHauteur ALORS dPoint(x,y+1,dPixelCouleur(x,y+1)+(nQteErreur*(5/16))) SI y<nHauteur ALORS dPoint(x+1,y+1,dPixelCouleur(x+1,y+1)+(nQteErreur*(1/16))) FIN FIN
POUR x=1 _A_ nLargeur POUR y=1 _A_ nHauteur nCouleurPoint=dPixelCouleur( x,y) SI nCouleurPoint<>iNoir ALORS dPoint(x,y,iBlanc) FIN FIN FIN
Procedure Monochrome(ChampImage,rSeuil=50)
nLargeur est un entier=ChampImage..Largeur nHauteur est un entier=ChampImage..Hauteur
dDébutDessin(ChampImage)
POUR x=0 _A_ nLargeur POUR y=0 _A_ nHauteur dPoint(x,y,NouvelleCouleur(dPixelCouleur( x,y),rSeuil))
FIN FIN
Procedure NouvelleCouleur(nCouleurPoint,rSeuil)
SI CouleurLuminosité(nCouleurPoint)>=rSeuil ALORS RENVOYER iNoir SINON RENVOYER iBlanc FIN
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Mensagem modificada, agosto, 09 2016 - 11:48 PM |
| |
| |
| | | |
|
| | | | |
| | |
|