如何把JPG图片存入数据库？

Question

table1.edit;            
DBImage1.Picture.LoadFromFile('c:\blank.jpg');
DBImage1.CutToClipboard;
DBImage1.PasteFromClipboard;
table1.post

Answer 1

用blobstream试试，先把文件放到流对象中。

Answer 2

我好像说过了，在uses里面加入JPEG单元，
不post怎么提交啊？苯苯

Answer 3

henhei的方法可行，可以结了。

Answer 4

读取procedure TForm1.showClick(Sender:Tobject);
var
    blob:tblobstream;
    jpegimage:Tjpegimage;
    graph:Tgraphic;
begin
blob:=tblobstream.create(TAble1graph,bmRead);
jpegimage:=tjpegimage.create;
jpegimage.loadfromstream(blob);
graph:tgraphic(jpegimage);
image2.picture.graphic:=graph;
jpegimage.free;
blob.free
//////保存到数据库
procedure tform1.loadclick(sender:tobject);
begin
openpicturedialog1.execute
image1.pictrue.loadfromfile(openpicturedialog1.filename);
edit1.text:=openpicturedialog1.filename;
table1.append;
table1.fieldbyname('name').asstring:=openpicturedialog1.filename;
table1graph.loadfromfile(openpicturedialog1.filename);
table1.post;
end;
invalidate;
end;
保存到文件
procedure tform1.saveclick(sender:tobject);
begin
savepicturedialog1.execute;
table1graph.savetofile(savepicturedialog1.filenmae);
end;

Answer 5

试试这个方法： 
  table1.open;
  table1.Edit;
  table1bdisplay.Assign(image1.picture);
  table1.Post;

Answer 6

to BlueTrees:
jpeg加过了
问题是post过程中丢失图片。