WX - Image To Array Bytes = Imagem para Array de Bytes = Enviar imagem via webservice - WINDEV 25 - Fóruns de programação

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... | | Português

Inicio → WINDEV 25 → WX - Image To Array Bytes = Imagem para Array de Bytes = Enviar imagem via webservice

WX - Image To Array Bytes = Imagem para Array de Bytes = Enviar imagem via webservice

Iniciado por BOLLER, nov., 02 2017 3:22 PM - 2 respostas

BOLLER

Membro registado
3.655 mensagems
Popularité : +175 (223 votes)

Publicado em novembro, 02 2017 - 3:22 PM

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] ImagemToArrayBytes (<PathImagem>, <Tipo>)
//
// Parameters:
//  PathImagem: <specify the role of PathImagem>
//  Tipo: <specify the role of Tipo>
// Return Value:
//  buffer: //  None
//
// For instance:
// Indicate an example.
//
Procedure ImageToArrayBytes(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/

Denunciar

Deve estar conectado para avaliar esta mensagem

BOLLER

Membro registado
3.655 mensagems
Popularité : +175 (223 votes)

Publicado em janeiro, 16 2020 - 12:53 PM

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

Denunciar

BOLLER

Membro registado
3.655 mensagems
Popularité : +175 (223 votes)

Publicado em janeiro, 16 2020 - 12:54 PM

Procedure UI_CarregarArquivo()

IF EDT_Descricao = "" OR  EDT_Descricao = Null THEN
  
  Info("Digite um nome para o Arquivo")
  SetFocus(EDT_Descricao)
  RETURN
  
ELSE
  
  Arquivo is array of string
  Arquivo = UI_Selecione_Imagem()
  
  
  SWITCH Arquivo[2]
   
    CASE ".pdf"
     MyInternalWindow..Plane = 2
     control_pdf = Arquivo[1]
    CASE ".docx"
     MyInternalWindow..Plane = 4
     word_control = Arquivo[1]  
     
    CASE ".xlsx"
     MyInternalWindow..Plane = 5
     excel_control = Arquivo[1]     
    CASE ".jpg"
     MyInternalWindow..Plane = 3
     control_img = Arquivo[1]
    CASE ".jpeg"
     MyInternalWindow..Plane = 3
     control_img = Arquivo[1]
    CASE ".png"
     MyInternalWindow..Plane = 3
     control_img = Arquivo[1]
    OTHER CASE
     
  END
  
  
  
  IF gnidDocumentoCliente > 0 THEN
    HReadSeek(T002_ARQUIVOS, T002_ARQUIVOSID,gnidDocumentoCliente,hIdentical)
  ELSE
    HReset(T002_ARQUIVOS)
  END
  
  
  
  IF  T002_ARQUIVOS.T002_ARQUIVOSID > 0 THEN
    T002_ARQUIVOS.AUDT_Data_Upd = DateSys() + TimeSys()
    T002_ARQUIVOS.AUDT_User_Upd = GnUserID
    T002_ARQUIVOS.T002_ARQUIVO = fLoadBuffer(Arquivo[1])  
    T002_ARQUIVOS.T002_TABELA_ORIGEM       =  "ARQUIVOS PRONTUARIO-PACIENTE"
    T002_ARQUIVOS.T002_ID_ORIGEM           =  pIDCliente 
    T002_ARQUIVOS.T002_DESCRICAO           =  EDT_Descricao
    T002_ARQUIVOS.T002_FOTOCLIENTE         =  "N"
    T002_ARQUIVOS.T002_PATH                =  Arquivo[1] 
    T002_ARQUIVOS.T002_NOMEARQUIVO         =  Arquivo[4]
    T002_ARQUIVOS.T002_EXTENSAO            =  Arquivo[2]
    T002_ARQUIVOS.T002_ARQUIVO             = fLoadBuffer(Arquivo[1])
    T002_ARQUIVOS.T002_DATA_CADASTRO       = DateSys + TimeSys()
    HReadSeek(T011_PROFISSIONAIS,T011_PROFISSIONAISID,GnUserID,hIdentical)
    T002_ARQUIVOS.T002_PROFISSIONAL        = T011_PROFISSIONAIS.T011_NOME
    T002_ARQUIVOS.AUDT_Excluido            = "N"
    T002_ARQUIVOS.t002_OBSERVACOES        = EDT_OBSERVACOES
    IF HModify(T002_ARQUIVOS) THEN
      ToastDisplay("Arquivo atualizado com sucesso",toastShort,vaMiddle,haCenter,RGB(0,0,255))
    END
    
  ELSE
    gnidDocumentoCliente = GET_SEQ(T002_ARQUIVOS)
    T002_ARQUIVOS.T002_ARQUIVOSID = gnidDocumentoCliente
    T002_ARQUIVOS.AUDT_User_Add            = GnUserID
    T002_ARQUIVOS.AUDT_Data_Add            = DateSys + TimeSys()
    T002_ARQUIVOS.T002_ARQUIVO = fLoadBuffer(Arquivo[1])
    
    T002_ARQUIVOS.T002_TABELA_ORIGEM       =  "ARQUIVOS PRONTUARIO-PACIENTE"
    T002_ARQUIVOS.T002_ID_ORIGEM           =  pIDCliente 
    T002_ARQUIVOS.T002_DESCRICAO           =  EDT_Descricao
    T002_ARQUIVOS.T002_FOTOCLIENTE         =  "N"
    T002_ARQUIVOS.T002_PATH                =  Arquivo[1] 
    T002_ARQUIVOS.T002_NOMEARQUIVO         =  Arquivo[4]
    T002_ARQUIVOS.T002_EXTENSAO            =  Arquivo[2]
    T002_ARQUIVOS.T002_ARQUIVO             = fLoadBuffer(Arquivo[1])
    T002_ARQUIVOS.T002_DATA_CADASTRO       = DateSys + TimeSys()
    HReadSeek(T011_PROFISSIONAIS,T011_PROFISSIONAISID,GnUserID,hIdentical)
    T002_ARQUIVOS.T002_PROFISSIONAL        = T011_PROFISSIONAIS.T011_NOME
    T002_ARQUIVOS.AUDT_Excluido            = "N"
    T002_ARQUIVOS.t002_OBSERVACOES        = EDT_OBSERVACOES
    IF HAdd(T002_ARQUIVOS,hForceIdAuto) = True THEN
      ToastDisplay("Arquivo carregado com sucesso",toastShort,vaMiddle,haCenter,RGB(0,0,255))
    ELSE
      Info("Erro Tela: "+gsTela+", Erro ao carregar, tente novamente ou fale com o administrador do sistema",ErrorInfo())
      gbResultSave = False
    END
  END
  
  
END

Denunciar

→ Voltar para WINDEV 25