JPEG: Save JPG in Database (Paradox)

[code lang=”delphi”]Procedure LoadJpeg;
Var
str : tblobstream;
img:Tjpegimage;
begin
Str := Tblobstream.Create(Table1.fieldbyname(‘Yourfield’);
img:=tjpegimage.create;
img.loadfromstream(str);// or
image1.picture.assign(img);
img.free;
str.free;
end;

Procedure SaveJpeg;
Var
str : tblobstream;
img:Tjpegimage
begin
Str := Tblobstream.Create(Table1.fieldbyname(‘YourField’);
img:=tjpegimage.create;
img.assing(image1.picture);
img.savetostream(str);
img.free;
Str.Free;
end;
[/code]

[tags]Delphi, Database[/tags]