在读取的时候报的
下面是代码
存储
procedure TForm1.Button1Click(Sender: TObject);
var
myPicture:TPicture;
strsql:string;
jpgPic:TJPEGImage;
mem: TMemoryStream; //存储图片需要用到流技术
begin
mem:=TMemoryStream.Create;
myPicture:=TPicture.Create;
if(OpenDialog.Execute()) then
begin
mem.LoadFromFile(OpenDialog.FileName);
with qry do
begin
close;
sql.Clear;
sql.Add('select * from image'); //注意 如果connection对象在创建连接的时候如果选择的provider不//当会导致该语句不能执行。
open;
append;
TBlobField(FieldByName('image')).LoadFromStream(mem);
qry.Post;
end;
end;
mypicture.Free;
mem.Free;end;读取procedure TForm1.Button2Click(Sender: TObject);
var
mem:TMemoryStream;
begin
// mem:=TMemoryStream.Create;
with qry do
begin
close;
sql.Clear;
sql.Add('select * from image where id = 10');
open;
TBlobField(fieldbyname('image')).SaveToFile('c:\1.jpg');
//mem.Position:=0;
imgi.Picture.LoadFromFile('c:\1.jpg'); end;
//mem.Free;
end;
请热心的朋友帮忙看看
下面是代码
存储
procedure TForm1.Button1Click(Sender: TObject);
var
myPicture:TPicture;
strsql:string;
jpgPic:TJPEGImage;
mem: TMemoryStream; //存储图片需要用到流技术
begin
mem:=TMemoryStream.Create;
myPicture:=TPicture.Create;
if(OpenDialog.Execute()) then
begin
mem.LoadFromFile(OpenDialog.FileName);
with qry do
begin
close;
sql.Clear;
sql.Add('select * from image'); //注意 如果connection对象在创建连接的时候如果选择的provider不//当会导致该语句不能执行。
open;
append;
TBlobField(FieldByName('image')).LoadFromStream(mem);
qry.Post;
end;
end;
mypicture.Free;
mem.Free;end;读取procedure TForm1.Button2Click(Sender: TObject);
var
mem:TMemoryStream;
begin
// mem:=TMemoryStream.Create;
with qry do
begin
close;
sql.Clear;
sql.Add('select * from image where id = 10');
open;
TBlobField(fieldbyname('image')).SaveToFile('c:\1.jpg');
//mem.Position:=0;
imgi.Picture.LoadFromFile('c:\1.jpg'); end;
//mem.Free;
end;
请热心的朋友帮忙看看
在uses
里加上Jpeg,看看能好不
TBlobField(FieldByName('image')).LoadFromStream(mem); //前面最好加上