Why can't I add photos all the time?

flower

The following code is to add photos to the corresponding fields in the database, but what's the matter, it always fails to increase?
There is no error when running, but open the database to see the corresponding field, and there is nothing? Is blank,
what is going on?



//The premise is that query4 has been opened!

if image1.Picture.Graphic = nil then
  begin
    if messageDlg('The photo has not been modified, do you want to update the photo, press Yes, otherwise 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

Why can't I add photos all the time?
why? ? ?
Who knows what to say? Thank you?

supperman

It seems that you haven't submitted it? (I don't know if you haven't published the code completely?)

flower

It's basically the code above! !
What do you say about submitting?
query4.post?
It is wrong to add this line! ! !

onanan

Try changing to bmp. Delphi's native control does not support jpeg.

jk66255

...........
tmpStream.Seek(0,0); <-- Do you want to reset the Stream?
TBlobField(query4.FieldByName('s_picture')).LoadFromStream(tempStream);
...

stevevai

I have encountered this problem, jpg can not be saved into the SQL SERVER database

wwutian

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

Is this change the following

flower

Is an Access database

flower

Still not resolved! ! !