PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV Mobile 2024 → Imagem To ArrayBytes
Imagem To ArrayBytes
Started by adrianoboller, Nov., 24 2014 12:36 PM - 2 replies
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on November, 24 2014 - 12:36 PM
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)
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on September, 27 2017 - 10:05 PM
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/
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on January, 16 2020 - 12:56 PM
// Summary: <specify the procedure action>
// Syntax:
// UI_VerArquivo ()
//
// Parameters:
// None
// Return value:
// None
//
// For instance:
// Indicate an example.
//
Procedure UI_VerArquivo()

IF gnidDocumentoCliente = 0 THEN
Info("Nenhum arquivo selecionado!")
RETURN
END

IF HReadSeek(T002_ARQUIVOS,T002_ARQUIVOSID,gnidDocumentoCliente,hIdentical) THEN

IF HFound(T002_ARQUIVOS) THEN

fMakeDir("C:\Temp\")

path_arquivo is string = T002_ARQUIVOS.T002_PATH

nome_arquivo is string = Lower(fExtractPath(path_arquivo,fFileName))

nome_extensao is string = Lower(fExtractPath(path_arquivo,fExtension))

bufArquivo is Buffer

SWITCH nome_extensao // .pdf or .png...

CASE ".pdf"

MyInternalWindow..Plane = 2
bufArquivo = T002_ARQUIVOS.T002_ARQUIVO
IF fSaveBuffer("C:\Temp\Arquivo.pdf",bufArquivo) = True THEN
control_pdf = "C:\Temp\Arquivo.pdf"
END


CASE ".docx"

MyInternalWindow..Plane = 4
bufArquivo = T002_ARQUIVOS.T002_ARQUIVO
IF fSaveBuffer("C:\Temp\Arquivo.docx",bufArquivo) = True THEN
word_control = "C:\Temp\Arquivo.docx"
END

CASE ".xlsx"

MyInternalWindow..Plane = 5
bufArquivo = T002_ARQUIVOS.T002_ARQUIVO
IF fSaveBuffer("C:\Temp\Arquivo.xlsx",bufArquivo) = True THEN
excel_control = "C:\Temp\Arquivo.xlsx"
END

CASE ".jpg"

MyInternalWindow..Plane = 3
bufArquivo = T002_ARQUIVOS.T002_ARQUIVO
IF fSaveBuffer("C:\Temp\Arquivo.jpg",bufArquivo) = True THEN
control_img = "C:\Temp\Arquivo.jpg"
END

CASE ".jpeg"

MyInternalWindow..Plane = 3
bufArquivo = T002_ARQUIVOS.T002_ARQUIVO
IF fSaveBuffer("C:\Temp\Arquivo.jpeg",bufArquivo) = True THEN
control_img = "C:\Temp\Arquivo.jpeg"
END

CASE ".png"

MyInternalWindow..Plane = 3
bufArquivo = T002_ARQUIVOS.T002_ARQUIVO
IF fSaveBuffer("C:\Temp\Arquivo.png",bufArquivo) = True THEN
control_img = "C:\Temp\Arquivo.png"
END


OTHER CASE

END

ELSE
Info("Erro ao abrir o Documento!")
END


END


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