PCC,

veja mensagem enviada ao seu e-mail com 2 exemplos de imagens p/ VFP 9.0 e VFP 8.0
usando CA e DSN (são só exemplos)

[ ],s
Peter

>Peter,
>
>Não consegui reproduzir o sucesso do teu codigo aqui com o meu VFP 9 beta. Mas vou verificar pois acho que estou errando em algo.
>
>Mas o Breno me deu um luz, ja que tenho que aplicar isto no VFP 8, e o objeto Image, não tem a propriedade

PictureVal

.
>
>Se vc tiver condições, tente retornar as fotos da tabela Employee, do banco NorthWind.
>
>Abraços
>
>Paulo
>
>
>>Estive brincando com campos Blob no SQL Server para fins de teste, pois este tipo de campo no SQL Server armazenam o codigo binario das imagens.
>>Usei como teste o Database Pubs e a tabela Pubs_info que tem um campo que contem o logotipo da empresa.
>>Aqui tudo funciona perfeitamente.
>>
>>Usei um CA p/ os testes:
>>segue dados basicos do CA p/ fazer funcionar:
>>

>>CursorSchema = PR_INFO M, PUB_ID C(4), LOGO W   && W = Campo tipo Blob no VFP 9.0
>>MapBinary = .T.                                 && Somente p/ campo tipo Blob e VFP 9.0
>>

>>Codigo do evento Init:
>>

>>local llReturn
>>do case
>>	case not pemstatus(This, '__VFPSetup', 5)
>>		This.AddProperty('__VFPSetup', 0)
>>	case This.__VFPSetup = 2
>>		This.__VFPSetup = 0
>>		return
>>endcase
>>llReturn = dodefault()
>>*** Select connection code: DO NOT REMOVE
>>
>>set multilocks on
>>***<DataSource>
>>This.DataSource = sqlstringconnect([dsn=Pubs;uid=xxx;pwd=xxx;trusted_connection=no;])
>>***</DataSource>
>>*** End of Select connection code: DO NOT REMOVE
>>
>>***<SelectCmd>
>>text to This.SelectCmd noshow
>>select * from pub_info
>>endtext
>>***</SelectCmd>
>>if This.__VFPSetup = 1
>>	This.__VFPSetup = 2
>>endif
>>return llReturn
>>

>>
>>Metodo AutoOpen do CA:
>>

>>if not pemstatus(This, '__VFPSetup', 5)
>>	This.AddProperty('__VFPSetup', 1)
>>	This.Init()
>>endif
>>

>>
>>No form inseri um objeto tipo Image e o seguinte código no Activate p/ exibir a imagem:
>>

>>SELECT("caPubs_info")          && Seleciona o CA
>>LOCAL x
>>x = caPubs_info.LOGO
>>THISFORM.Image1.PictureVal = x
>>THISFORM.REFRESH
>>

>>
>>Acho que isto te da o caminho das pedras p/ exibir uma imagem armazenada em um campo do SQL Server no VFP.
>>(Foi um simples teste p/ ver se funciona e como funciona)
>>
>>[ ],s
>>Peter
>>
>>>Estou tentando recuperar campos Image do SQL Server.
>>>
>>>Estou fazendo testes com a base de dados do NothWind, Tabela Employeess, campo Photo.
>>>
>>>Alguem poderia me dar uma ajuda nisto ?