Ir para conteúdo
Fórum Script Brasil
  • 0

Imagem via TCP


TelesT

Pergunta

Boa tarde Pessoal.

Tenho dois aplicativos em VB 6. Em ambos os aplicativos utilizo o componente Winsock para se comunicarem.

Tenho a imagem do visitante gravada em banco de dados. Somente o aplicativo A tem conexão com o banco de dados. Preciso que o aplicativo A envie esta imagem via TCP ao aplicativo B que não possui conexão com o banco de dados. Como posso enviar esta imagem via TCP usando winsock?

Att.

Teles

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Boa tarde.

Na aplicação A ,armazeno os dados da imagem em binários em uma variavel string e envio via TCP. Na aplicação B eu recebo este valor em binário que também esta em uma variavel do tipo string.

A dúvida é: Como carregar este valor em um objeto stream e gerar um arquivo jpg?

Eu tentei assim, mas erro:

Dim strStream As ADODB.Stream

Set strStream = New ADODB.Stream

strStream.Type = adTypeBinary

strStream.Open

strStream.Write (Arquivo)

strStream.SaveToFile App.Path & "\Foto.jpg", adSaveCreateOverWrite

Set FxFoto.Picture = LoadPicture(App.Path & "\Foto.jpg")

strStream.Close

Att.

Teles

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...