Imagem via TCP

[TelesT]

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

[kuroi]

acho q você pode abri-la como um arquivo binario e enviar como string normalmente.

[TelesT]

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