关于Delphi中JPEG错误的问题

Question

我遇到错误cstrJERR_INPUT_EMPTY的问题jpeg error # 41。它似乎出现在以下代码中：

 BlobStream := query1.CreateBlobStream(query1.FieldByName('imagecolumnname'),bmRead);
 JpegImage := TJPEGImage.Create;
 try
    BlobStream.Seek(0, soFromBeginning);
    // Image1.Picture.Graphic.LoadFromStream(BlobStream);
    JpegImage.LoadFromStream(BlobStream);
    image1.Picture.Assign(JpegImage);
    //image1.Picture.graphic:=(JpegImage);
    image1.Visible := True;
 finally
    JpegImage.Free;
    BlobStream.Free;