|
Exemplo WINDEV Mobile para Inventario de Estoque, Código de Barras, QRCode, PDF, Foto do Produto
Example WINDEV Mobile for Inventory Inventory, Barcode, QRCode, PDF, Product Photo
Ejemplo de WINDEV Mobile para inventario de inventario, código de barras, QRCode, PDF, foto del producto
Exemple WINDEV Mobile pour l'inventaire d'inventaire, code-barres, QRCode, PDF, photo du produit
Quem desenvolver algo com esse exemplo, me mande as melhorias para eu colocar aqui no repositorio a versao nova, caso ache algum erro me avise pelo email adrianoboller@gmail.com ou whatsapp +554199491800 / 41999491800 BR
Quiconque développe quelque chose avec cet exemple, envoyez-moi les améliorations afin que je puisse mettre la nouvelle version ici dans le référentiel, si vous trouvez une erreur, faites-le moi savoir par e-mail adrianoboller@gmail.com ou whatsapp +554199491800 / 41999491800 BR
Anyone who develops something with this example, send me the improvements so I can put the new version here in the repository, if you find any error let me know by email adrianoboller@gmail.com or whatsapp +554199491800 / 41999491800 BR
Cualquiera que desarrolle algo con este ejemplo, envíeme las mejoras para que pueda poner la nueva versión aquí en el repositorio, si encuentra algún error hágamelo saber por correo electrónico adrianoboller@gmail.com o whatsapp +554199491800 / 41999491800 BR |
| |
| |
| Illustrations, screen shots |
|
| |
(To evaluate this resource, click 'Write a review') |
| | | |
No review or comment? Be the first one! |
EXEMPLO //--------------------------------------
PROCEDURE PhotoEnregistre()
path_imagem is string = fCurrentDir()+fSep()+"IMAGEM.JPG" // ONDE VAI SALVAR A IMAGEM
//VideoParameter(vipPhotoResolution,"1080 1080")
VideoCapture(CAM_Appareil,path_imagem,viPictureCapture) // TIROU A FOTO
IMAGEM is Image // IMAGEM DE TRABALHO PARA REDIMENSIONAR O BUFFER EM OUTRO TAMANHO
IMAGEM = fLoadBuffer(path_imagem)
IF fFileExist(path_imagem) = True THEN //DEU CERTO Info("A Imagem "+path_imagem+" Existe no disco") dResize(IMAGEM,320,480,drStretched) //RESIZE DA IMAGEM dSaveImageJPEG(IMAGEM,path_imagem,80) //80% ELSE Info("A Imagem "+path_imagem+" nao existe no disco") //DEU ERRADO RETURN END
T001_FOTOS.T001_DATA_HORA = DateSys() + TimeSys()
T001_FOTOS.T001_FOTO = fLoadBuffer(path_imagem) //BUFFER MODIFICADO E SALVO NO BINARIO
IF HAdd(T001_FOTOS)=True THEN ShellExecute(path_imagem) //GRAVOU NO BANCO E ABRIU A IMAGEM END |
| | |
|