Basicamente estou transformando uma imagem(binary/image) que esta armazenada em um campo do tipo BLOB em uma imagem do formato bitmap em um diretório para assim carrega-la em uma picture box em um Active Report, porem essa imagem não carrega e apresenta o run-time 481, caso seja uma imagem .bmp criada por exemplo no paint ou baixada da internet carregam normalmente.
Erro:
Run-time ‘481’:
Invalid picture
linhas que de código que levam ao problema.
With myStream
.Type = adTypeBinary
.Open
.Write myRecord.Fields(0).Value
.Read
.SaveToFile "C:\tmp.bmp", adSaveCreateOverWrite
.Close
myRecord.Close
End With
'linha do erro abaixo'
ACTVCHAMADO.ImgAssinatura.Picture = LoadPicture("C:\tmp.bmp")