PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → Imagem To ArrayBytes
Imagem To ArrayBytes
Débuté par adrianoboller, 24 nov. 2014 12:36 - 1 réponse
Membre enregistré
3 007 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:36
Procedure CAM_ImagemToArrayBytes(LOCAL PathImagem, LOCAL Tipo)

//Converter a imagem de um local do disco em Array de Bytes e gravar via webservice
///////////////////////////////////////////////////////////////////////////////////

ImagemArrayBytes is Buffer = ""

IF Tipo = "" OR Tipo = 0 THEN
ImagemArrayBytes = fLoadBuffer(PathImagem)
ELSE IF Tipo = 1
ImagemArrayBytes = fLoadBuffer(T020Arquivo.PathUrl020)
//Compactacao//
ImagemArrayBytes = Crypt(ImagemArrayBytes,"",cryptNone)
//ImagemArrayBytes = URLEncode(ImagemArrayBytes)
END

RESULT(ImagemArrayBytes)
Membre enregistré
3 007 messages
Popularité : +89 (91 votes)
Posté le 27 septembre 2017 - 22:05
Procedure ImagemToArrayBytes(LOCAL PathImagem, LOCAL Tipo)

//Converter a imagem de um local do disco em Array de Bytes e gravar via webservice
///////////////////////////////////////////////////////////////////////////////////

ImagemArrayBytes is Buffer = ""

IF Tipo = "" OR Tipo = 0 THEN
//Funcao tipo 0 usa somente a fucao floadbuffer
ImagemArrayBytes = fLoadBuffer(PathImagem)
ELSE IF Tipo = 1
//Tipo 1 usa a funcao floadBuffer + crypt//
ImagemArrayBytes = fLoadBuffer(PathImagem)
//Compactacao//
ImagemArrayBytes = Crypt(ImagemArrayBytes,"",cryptNone)
//ImagemArrayBytes = URLEncode(ImagemArrayBytes)
END

RESULT(ImagemArrayBytes)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/