怎么老是增加不上照片呢？

flower

以下代码是在数据库相应的字段增加照片，可是怎么回事，老是增加不上呢？
运行的时候也没有错误，可是打开数据库看相应的字段，并没有什么？是空白的，
这是怎么回事呀？



//前提是query4已经打开了!

if image1.Picture.Graphic = nil then
  begin
    if messageDlg('照片未修改，是否要更新照片，是按Yes,否则No!',  mtConfirmation, [mbYes, mbNo], 0,) = mrYes then
    begin
      if OpenPictureDialog1.Execute then
      try
        JpgPic:=TJpegImage.Create;
        tempStream:=TMemoryStream.Create;
        tempStream.Clear;
        JpgPic.LoadFromFile(OpenPictureDialog1.FileName);
        Image1.Picture.bitmap.assign(JpgPic);
        JpgPic.SaveToStream(tempStream);
        query4.Edit;
        TBlobField(query4.FieldByName('s_picture')).LoadFromStream(tempStream) ;
      finally
        JpgPic.Free;
        tempStream.Free;
      end;
    end ;
  end ;

flower

怎么老是增加不上照片呢？
为什么呀？？？
哪位知道了说下？谢谢了？

supperman

你好象没有提交啊?(不知道你是不是没有把代码公布完整?)

flower

基本上就是上面的代码！！
你说什么提交？
query4.post 吗？
如果加上这行是错的！！！

onanan

换成bmp试试，delphi的原生控件不支持jpeg的。

jk66255

...........
tmpStream.Seek(0,0);  <-- 是不是要复位一下Stream?
TBlobField(query4.FieldByName('s_picture')).LoadFromStream(tempStream) ;
................

stevevai

这个问题我也碰到过，jpg保存不进SQL SERVER数据库

wwutian

UADOTbl.Edit;
GrapField:=TBlobField(UADOTbl.FieldByName('DataImg0'));
GrapField.LoadFromStream(TmpStream);
UADOTbl.Post;

是不是这样改以下

flower

是Access数据库

flower

还是没有解决！！！