Como Salvar BitMap usando Ole Container?

Delphi

28/10/2003

Tenho imagens/bmp´s armazenadas numa tabela Paradox num campo Graphic.
Criei um novo formulário e inseri um TOleContainer, além de um botão de ´Salvar´ arquivo.
Quando chamar o Show executará a seguinte rotina:
Query1BITMAP.SaveToFile(´C:\CLINICA\DADOS\BITMAPT1.BMP´);
TOleContainer1.CreateObjectFromFile(´C:\CLINICA\DADOS\BITMAPT1.BMP´, False);
TOleContainer.DoVerb(ovShow);

No botão ´Salvar´ tem o seguinte código:
TOleContainer.SaveAsDocument(´C:\CLINICA\DADOS\BITMAPT2.BMP´);
// Salvar o Conteúdo do OleContainer para um arquivo BMP

Quando eu vou acessar o arquivo criado pelo Paint o programa apresenta a seguinte mensagem de erro:
´C:\CLINICA\DADOS\BITMAPT2.BMP´
´O Paint não pode ler este arquivo.
Este não é um arquivo de Bitmap válido ou o seu formato não é atualmente aceito.´

O que será que está errado?


Bruno Leonardo

Bruno Leonardo

Curtidas 0
POSTAR