Fórum Gravando imagens no Access #229969

Vc faz assim:

Se vc tiver usando BDE, vc cria uma variavel do tipo TBlobStream, se for ado é do tipo TAdoBlobStream, e mais uma do tipo TfileStream, essa serve para os dois tipos.

A variavel blob vai receber os dados da variavel imagem, vou passar o meu exemplo pra vc entender melhor:

procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
stImagemStream: TFileStream;
stBlobStream: TBlobStream;
begin
for I := (FileListBox1.ItemIndex) to (FileListBox1.Items.Count-1) do
begin
FileListBox1.ItemIndex := I;

qryBDE.Insert;

stImagemStream := TFileStream.Create(
FileListBox1.FileName,
fmOpenRead OR fmShareDenyWrite );
stBlobStream := TBlobStream.Create( qryBDEImagem, bmWrite );

Try
stBlobStream.CopyFrom( stImagemStream, stImagemStream.Size );
Finally
stImagemStream.Free;
stBlobStream.Free;
End;
qryBDE.Post;
Application.ProcessMessages;
end;
end;

ps.: usei um Filelistbox para listar as imagens da pasta e carregar pra dentro do banco.

espero ter ajudado.

Muito obrigado pela dica, pabhen!
Eu havia transposto o problema, convertendo o jpeg para um bitmap antes de gravar os dados. Mas vou testar sua sugestão.
Abraços.