错误接龙 ( 积分: 0 )

问一下 在图形存入数据库时 stream read error 这个问题怎么解决啊 多谢大家

问一下 在图形存入数据库时 stream read error 这个问题怎么解决啊 多谢大家

分好说

读之前别忘了
stream.Position := 0

已经等于0了 关键是存都存不进去啊

把你的代码贴出来，猜是猜不出来的

要玩接龙吗

我的代码是这样的
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, StdCtrls,jpeg,
ExtDlgs;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Image1: TImage;
Image2: TImage;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DBImage1: TDBImage;
OpenPictureDialog1: TOpenPictureDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);//存入数据库
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
if OpenPictureDialog1.Execute then

Image1.picture.loadfromfile(OpenPictureDialog1.FileName);
MyJPEG:=TJPEGImage.Create;
Try
MyJPEG.Assign(Image1.Picture.Graphic); {图像转成JPEG格式，如为JPEG图片则不必加}
MS:=TMemoryStream.Create;
MyJPEG.SaveToStream(MS);
MS.Position:=0;
ADOQuery1.Append;
ADOQuery1.FieldByName('image').Value:='1';
TBlobField(ADOQuery1.FieldByName('image')).LoadFromStream(MS);
ADOQuery1.Post;
messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);
MS.Free;
Finally
MyJPEG.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);读取图片
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MS:=TMemoryStream.Create;
MyJPEG:=TJPEGImage.Create;
ADOQuery1.Requery;
try
TBlobField(ADOQuery1.FieldByName('image')).SaveToStream(MS);
MS.Position:=0;
MyJPEG.LoadFromStream(MS);
Image2.Picture.Bitmap.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end;

end.

而且 还有 Bitmap image is not valid 这个错误一按确定就无法识别我存的东西了 读取的时候报的错 更是奇怪 JPEG error #53这是什么错啊 敬请诸位仁兄帮忙解决一下！！不胜感激

朋友帮帮忙啊！！

笨蛋