Posté le 24 novembre 2014 - 12:35 |
Procedure CAM_FotoTirar(LOCAL ArquivoLocal,... LOCAL Extensao,... LOCAL Ambiente,... LOCAL Crypto,... LOCAL OpcaoEscolha,... LOCAL CodigoArquivo,... LOCAL CodOs,... LOCAL CodOsItem,... LOCAL NomeArquivo,... LOCAL Descricao,... LOCAL VideoFoto,... LOCAL TempoSegundos,... LOCAL FPS,... LOCAL DebugSN)
ResImgBck, Ok2 is boolean
ArquivoBkp is string = "/mnt/sdcard/Os/VideosFotos/Foto"+DateSys()+""+TimeSys()+".jpg"
IF DebugSN = "" DebugSN = gsDebugSN END
IF InSimulatorMode() = False THEN
nTamanho is int = Length(ArquivoLocal) IF Middle(ArquivoLocal,1,1) <> "/" THEN ArquivoLocal = "/" + ArquivoLocal END IF Middle(ArquivoLocal,nTamanho,1) <> "/" THEN ArquivoLocal = ArquivoLocal + "/" END IF Middle(Extensao,1,1) <> "." THEN Extensao = "."+Extensao END IF Extensao = "" OR Extensao = ".avi" OR Extensao = ".mpg" THEN Extensao = ".jpg" END
IF fDirectoryExist(ArquivoLocal) = False fMakeDir(ArquivoLocal) END
Arquivo = ArquivoLocal + "foto" + Extensao fDelete(Arquivo)
IF DebugSN = "S" THEN NextTitle("Os") Info(Arquivo) END
IF INIRead("Camera","TipoTela","",AutorunPath) <> "FullScreen" AND GloWinCamera = "WIN_Camera_Desenvolvimento" THEN
Sound("camera.wav",soundDefault)
ResImgBck = VideoCapture(WIN_Camera_Desenvolvimento.CAM_Camera, Arquivo, viPictureCapture) ELSE
Sound("camera.wav",soundDefault)
ResImgBck = VideoCapture(WIN_Camera_FullScreen.CAM_Camera, Arquivo, viPictureCapture) END
IF ResImgBck = False AND DebugSN = "S" Error(ErrorInfo()) END
IF fFileExist(Arquivo) = True AND Arquivo <> "" THEN
Ok2 = fCopyFile(Arquivo,ArquivoBkp) IF Ok2 = False AND DebugSN = "S" THEN Info("Erro ao copiar o arquivo: "+Arquivo) ELSE IF fFileExist(ArquivoBkp) = True AND DebugSN = "S" Info("Arquivo bkp gerado com sucesso") END END
IF gloWidth = 0 OR gloWidth = "" OR gloWidth = Null THEN gloWidth = 640 gloHeight = 480 END
ok = CAM_ResizeImage(Arquivo, ArquivoNovo,gloWidth,gloHeight, DebugSN) IF ok = True AND DebugSN = "S" THEN Info("Resize ok") ELSE IF ok = False AND DebugSN = "S" THEN Info("Resize com erro!...") END
IF ok = True AND gsHorizontalVertical = "Vertical" ok = CAM_RotateImage(ArquivoNovo, 90, DebugSN) IF ok = True AND DebugSN = "S" THEN Info("Rotacionou com sucesso") ELSE IF ok = False AND DebugSN = "S" Info("Erro ao rotacionar") END END
IF DebugSN = "S" THEN NextTitle("Os") Info("Arquivo gerado com sucesso!...",Arquivo) END
CAM_OpcaoEscolha(ArquivoLocal,... Extensao,... Ambiente,... Crypto,... OpcaoEscolha,... CodigoArquivo,... CodOs,... CodOsItem,... NomeArquivo,... Descricao,... VideoFoto,... TempoSegundos,... FPS,... DebugSN)
ELSE
IF DebugSN = "S" THEN NextTitle("Os") Info("Arquivo não foi gerado!") END
END
ELSE NextTitle("Os") Info("Modo simulador") END
|
| |
| |
|