紧急情况！
var stream:TFileStream;
filedirectory:String;
begin
OpenDialog1.Execute;
filedirectory:=OpenDialog1.FileName;
if FileExists(trim(filedirectory)) then begin
stream:=TFileStream.Create(trim(filedirectory),fmOpenRead);
try
with adoquery1 do begin
close;
sql.Clear;
sql.Text:='select * from picture';
open;
insert;
TBlobField(FieldByName('pic')).LoadFromStream(stream);
FieldByName('pname').AsString:=filedirectory;
post;
image1.Picture.LoadFromFile(filedirectory);
end;
finally
stream.Free;
end;
end;
end;
昨天还能打开图片，今天就报错了。向数据库添加图片成功，但是Image显示图片的时候报错： 进程无法访问该文件，因为另一个进程正在使用该文件。
问题点数：100、回复次数：8Top
1 楼flyingkiller（大飞虫）回复于 2003-06-03 12:46:30 得分 0
显示图片用dbimage，怎么还用image呀？
Top
2 楼whitetiger8（键盘未敲坏，基本功未练成）回复于 2003-06-03 12:47:44 得分 0
你好查查吧。Top
3 楼rikky（Java转型中ing...）回复于 2003-06-03 12:53:22 得分 0
运行到哪一行出错Top
4 楼retrieve（）回复于 2003-06-03 12:58:11 得分 0
image1.Picture.LoadFromFile(filedirectory); 这里的时候报错了。
Top
5 楼peiweiwei（无状态对象）回复于 2003-06-03 12:58:57 得分 0
finally下加一句
adoquery1.close试试Top
6 楼hotzhu（天下无妞）回复于 2003-06-03 12:59:04 得分 0
begin
OpenDialog1.Execute;
filedirectory:=OpenDialog1.FileName;
if FileExists(trim(filedirectory)) then begin
stream:=TFileStream.Create(trim(filedirectory),fmOpenRead);
try
with adoquery1 do begin
close;
sql.Clear;
sql.Text:='select * from picture';
open;
insert;
TBlobField(FieldByName('pic')).LoadFromStream(stream);
FieldByName('pname').AsString:=filedirectory;
post;
stream.Free;
image1.Picture.LoadFromFile(filedirectory);
end;
except
stream.Free;
end;
end;
Top
7 楼rikky（Java转型中ing...）回复于 2003-06-03 13:05:25 得分 100
var stream:TFileStream;
filedirectory:String;
begin
OpenDialog1.Execute;
filedirectory:=OpenDialog1.FileName;
image1.Picture.LoadFromFile(filedirectory);
if FileExists(trim(filedirectory)) then begin
stream:=TFileStream.Create(trim(filedirectory),fmOpenRead);
try
with adoquery1 do begin
close;
sql.Clear;
sql.Text:='select * from picture';
open;
insert;
TBlobField(FieldByName('pic')).LoadFromStream(stream);
FieldByName('pname').AsString:=filedirectory;
post;
end;
finally
stream.Free;
end;
end;
end;Top
8 楼xiaohedou（小河豆(充电中.18%.)）回复于 2003-06-03 13:19:28 得分 0
学习Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
