Eric Jhon

Muito obrigado pelo retorno! O Blender gera imagem em diversos formatos conhecidos, png, jpg, bmp, etc... Quanto a tua função em Python ela me retorna o seguinte erro na linha 11: Traceback (most recent call last): File "<blender_console>", line 1, in <module> TypeError: must be str, not bytes A versão do Python que estou usando é a 3.4.2 Se eu utilizar a função str() na linha 11 da seguinte forma: import base64 arq = "C:\Brasão.png" f = open(arq, 'rb') chunk = f.read() f.close() chunkb64 = base64.b64encode(chunk) f = open(arq.replace(".png", ".txt"), 'w') f.write(str(chunkb64)) f.close() o arquivo Brasão.txt é gerado sem retornar nenhum erro. Porém quando vou tentar decodificar o arquivo usando o Visual Basic 2015 ele me retorna o seguinte erro: "A entrada não é uma cadeia de caracteres de Base 64 válida, pois contém um caractere que não é de base 64, mais de dois caracteres de preenchimento ou um caractere ilegal entre os caracteres de preenchimento. " Onde poderia estar o problema? Conseguir resolver o problema utilizando a tua função em Python. Eu só precisava tirar os caracteres "b'" do início da string base64 e a "'" (aspas simples) do final. Muito obrigado pela ajuda! Conseguir resolver o problema utilizando a tua função em Python. Eu só precisava tirar os caracteres "b'" do início da string base64 e a "'" (aspas simples) do final. Muito obrigado pela ajuda!

Boa tarde! Estou desenvolvendo uma aplicação em vb.net que recebe informações de um programa chamado Blender 3D o qual é escrito em Python e gera imagens em 3 dimensões. Eu gostaria de saber se alguém poderia me dar uma luz de como eu posso converter uma imagem gerada no Blender em uma string base64 para enviar ao meu aplicativo .net. Em outras palavras: como converter imagem em string base64 de modo que o vb.net decodifique as informações recebidas? Abaixo a função que estou usando para decodificar as imagens: 'Converte uma string Base64 de volta para uma imagem Public Function Base64StringToImage(ByVal strBase64 As String) As Image If strBase64 <> "" Then 'String Base64 Dim ms As MemoryStream = New MemoryStream(Convert.FromBase64String(strBase64)) 'Criar um novo Bitmap baseado na MemoryStream Dim bmp As Bitmap = New Bitmap(ms) 'Retorna o Bitmap criado Return bmp Else Return Nothing End If End Function

Olá, Pessoal. Essa é a minha primeira vez aqui no fórum e também em VB .Net + Access. Eu tenho uma cadastro de funcionário onde é exibido os dados de uma tabela do banco de dados do access quando o form é carregado, até aqui tudo bem. Com OleDb.OleDbDataReader eu consegui exibir os dados nos campos do formulário e também preencher os combobox com campos da tabela. Porém não estou conseguindo adicionar, editar e excluir os dados do banco de dados. Esse é o código que preenche os campos do formulário quando o form é carregado: Private Sub IDServidor_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles IDServidor.TextChanged Dim LeituraBD As OleDb.OleDbDataReader Dim ComandoSQL As String If Len(IDServidor.Text) = 6 Then 'Armazena na variável o comando que fará a consulta SQL no BD Access ComandoSQL = "select * from TB_Servidores where IDServidor like '" & IDServidor.Text & "'" 'Chama a rotina que faz a conexão com o BD Call Conectar() 'Atribui a variável objeto de BD a execução dos comandos SQL Consulta = New OleDb.OleDbCommand(ComandoSQL, Banco) LeituraBD = Consulta.ExecuteReader LeituraBD.Read() 'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai 'On Error Resume Next 'Preenche Formulário Matrícula.Text = CNullToStr(LeituraBD.Item("Matrícula")) 'Matrícula Regime.Text = CNullToStr(LeituraBD.Item("Regime")) 'regime Nome.Text = CNullToStr(LeituraBD.Item("nome")) 'nome Cargo.Text = CNullToStr(LeituraBD.Item("cargo")) 'cargo Função.Text = CNullToStr(LeituraBD.Item("função")) 'função Unidade.Text = CNullToStr(LeituraBD.Item("unidade")) 'unidade Lotação.Text = CNullToStr(LeituraBD.Item("lotação")) 'lotação Admissão.Text = CNullToStr(LeituraBD.Item("admissão")) 'admissão Jornada.Text = CNullToStr(LeituraBD.Item("jornada")) 'jornada de trabalho CPF.Text = CNullToStr(LeituraBD.Item("cpf")) 'cpf Pasep.Text = CNullToStr(LeituraBD.Item("pis/pasep")) 'pasep Nascimento.Text = CNullToStr(LeituraBD.Item("dt nascimento")) 'nascimento Observação.Text = CNullToStr(LeituraBD.Item("Observação")) 'Observações Call Desconecta() 'Configura o Display de Registro Atual RegistroAtual.Text = IDServidor.SelectedIndex + 1 End If End Sub Essa é uma função que eu criei para converter os valores null do banco de dados para string: Function CNullToStr(ByVal Variável) As String 'Converte uma variável de banco de dados com valor NULL para uma STRING vazia On Error Resume Next If Variável Is DBNull.Value Then CNullToStr = "" Else CNullToStr = Variável End If End Function