|
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 |
| |
| | | |
|
| |
Membro registado 3.655 mensagems Popularité : +175 (223 votes) |
|
Publicado em novembro, 02 2017 - 3:22 PM |
Procedure ImageToArrayBytes(LOCAL PathImagem, LOCAL Tipo)
ImagemArrayBytes is Buffer = ""
IF Tipo = "" OR Tipo = 0 THEN ImagemArrayBytes = fLoadBuffer(PathImagem) ELSE IF Tipo = 1 ImagemArrayBytes = fLoadBuffer(PathImagem) ImagemArrayBytes = Crypt(ImagemArrayBytes,"",cryptNone) 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/ |
| |
| |
| | | |
|
| | |
| |
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 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/ |
| |
| |
| | | |
|
| | |
| |
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
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|