Acabo de sunirlo como truco a la Web, pero mientras está, éstan son las rutinas para grabar y recuperar un JPEG de una tabla Paradox:
Código Delphi
[-]
procedure TForm1.JpegBlobToImage();
var
Stream: Tblobstream;
img: Tjpegimage;
begin
Stream := Tblobstream.Create(TBlobField(Table1.fieldbyname('Imagen')), bmRead);
img := Tjpegimage.Create();
img.loadfromstream(Stream);
image1.picture.assign(img);
img.free;
Stream.free;
end;
procedure TForm1.ImageToJpegBlob();
var
Stream: Tblobstream;
img: Tjpegimage;
begin
Stream := Tblobstream.Create(TBlobField(Table1.fieldbyname('Imagen')), bmReadWrite);
img := tjpegimage.create;
img.Assign(image1.picture);
img.savetostream(Stream);
img.free;
Stream.Free;
end;
Para utilizarlos aquí un ejempo:
Código Delphi
[-]
procedure TForm1.btGrabarClick(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('Nombre').AsString := DBEdit1.Text;
ImageToJpegBlob();
Table1.Post;
end;
procedure TForm1.btLoadClick(Sender: TObject);
begin
JpegBlobToImage();
end;