|
Débuté par adrianoboller, 24 nov. 2014 12:45 - 1 réponse |
| |
| | | |
|
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 12:45 |
Procedure CAM_SalvarFoto(LOCAL Escolha, LOCAL Descricao, LOCAL DebugSN)
IF gsDebugSN = "S" DebugSN="S" END
ok1 is boolean = False
Compressao is int = 0
IF gloWidth = 0 OR gloWidth = "" THEN gloWidth = 640 gloHeight = 480 END ok = CAM_ResizeImage(Arquivo, ArquivoNovo, gloWidth, gloHeight, DebugSN)
IF Arquivo <> "" AND fFileExist(Arquivo) = True THEN
IF Escolha = "S"
SWITCH Dialog("Deseja salvar a foto?")
CASE 1
Compressao = INIRead("Camera","Compressao","",AutorunPath)
IF Compressao = 0 THEN
Compressao = WIN_Camera_FullScreen.EDT_Compressao
END
IF gloWidth = 0 OR gloWidth = "" THEN gloWidth = 640 gloHeight = 480 END ok = CAM_ResizeImage(Arquivo, ArquivoNovo,gloWidth,gloHeight, DebugSN)
IF ok = True AND gsHorizontalVertical = "Vertical" ok = CAM_RotateImage(ArquivoNovo, 90, DebugSN) END
IF ok = True
T020Arquivo.Tipo020 = "Foto"
T020Arquivo.Observacao020 = Descricao
T020Arquivo.DataHora020 = DateToString(DateSys()) +" - "+ TimeToString(TimeSys())
gloWidth = Middle(INIRead("Camera","Resolucao","",AutorunPath),1,3)
gloHeight = Middle(INIRead("Camera","Resolucao","",AutorunPath),5,3)
T020Arquivo.FotoVideo020 = dLoadImage(ArquivoNovo,imgDefault,gloWidth,gloHeight)
ok1 = HAdd(T020Arquivo) IF DebugSN = "S" IF ok1 = True THEN IF DebugSN = "S" Info("Gravado na base de dados com sucesso!") END ELSE IF DebugSN = "S" Info("Erro ao gravar na base de dados") END END END
ELSE IF DebugSN = "S" Info("Redimensionamento da imagem falhou!") END END
CASE 2
END
ELSE IF Escolha = "N"
Compressao = INIRead("Camera","Compressao","",AutorunPath) IF Compressao = 0 THEN
Compressao = WIN_Camera_FullScreen.EDT_Compressao
END
IF gloWidth = 0 OR gloWidth = "" THEN gloWidth = 640 gloHeight = 480 END ok = CAM_ResizeImage(Arquivo, ArquivoNovo,gloWidth,gloHeight, DebugSN)
IF ok = True AND gsHorizontalVertical = "Vertical" ok = CAM_RotateImage(ArquivoNovo, 90, DebugSN) END
IF ok = True
T020Arquivo.Tipo020 = "Foto"
T020Arquivo.Observacao020 = Descricao
T020Arquivo.DataHora020 = DateToString(DateSys()) +" - "+ TimeToString(TimeSys())
gloWidth = Middle(INIRead("Camera","Resolucao","",AutorunPath),1,3)
gloHeight = Middle(INIRead("Camera","Resolucao","",AutorunPath),5,3)
T020Arquivo.FotoVideo020 = dLoadImage(ArquivoNovo,imgDefault,gloWidth,gloHeight)
ok1 = HAdd(T020Arquivo) IF DebugSN = "S" IF ok1 = True THEN IF DebugSN = "S" Info("Gravado na base de dados com sucesso!") END ELSE IF DebugSN = "S" Info("Erro ao gravar na base de dados") END END END
ELSE IF DebugSN = "S" Info("Redimensionamento da imagem falhou!") END END
END
ELSE IF DebugSN = "" Info("Arquivo não encontrado no caminho informado!...", Arquivo) END END |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 05 avril 2016 - 22:12 |
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/ |
| |
| |
| | | |
|
| | | | |
| | |
|