通过流将图象写入数据库中，下面的代码有什么错误？

[laodiao]

通过流将图象写入数据库中，这段代码是在Query的Before Post事件里面写的，但是保存的总是出错，第一次可以保存Jpeg图象，但是修改的时候都不成功，有没有那位朋友遇到相类似的情况？
if Imgpic.Picture.graphic <> nil then
begin
try
str:=Tmemorystream.Create;
str.LoadFromFile(DlgOpPic.FileName);
str.Position:=0;
Tblobfield(query1.FieldByName(str1)).loadfromstream(str);
except
end;
end;
我想问一下，这个流什么时候释放呢？？在提交到数据库前如果这个Str流释放了，会有什么影响？

[outer2000]

应该在提交到数据库以后释放

[netlib]

if Imgpic.Picture.graphic <> nil then
begin
try
str:=Tmemorystream.Create;
str.LoadFromFile(DlgOpPic.FileName);
str.Position:=0;
Tblobfield(query1.FieldByName(str1)).loadfromstream(str);
str.free;//这里释放
except
end;
end;

[laodiao]

但是在这里并没有提交到数据库里面，这是给字段赋值，释放这个流，有没有必要呢？

[laodiao]

但是在这里并没有提交到数据库里面，这是给字段赋值，释放这个流，有没有必要呢？

[laodiao]

但是为什么第一次添加记录的时候，录入图象就可以了，如果以后修改的时候，就出现了错误

[ken_henderson]

要释放的否则不能提交

[netlib]

Tblobfield(query1.FieldByName(str1)).loadfromstream(str);
后释放没有问题，

至于第一次可以成功，第二次不行，可能是内存问题。

[rwdx]

你为什么不尝试两种方法都试试呢，看看有什么结果

[短歌如风]

Tblobfield(query1.FieldByName(str1)).loadfromstream(str);这句之后就可以释放了,不用等提交之后,因为这时数据已经写到BlobField中去了.
其它你可以直接用TBlobField.LoadFromFile,不需要先读到一个流中.
你遇到的错误信息是什么?

[laodiao]

我遇到的错误信息是，错误的函数序列，

[laodiao]

SQL Error: SQL Server - [Microsoft][ODBC 驱动程序 管理器] 函数序列错误

[lizongqi]

帮你up

[jwei119]

第二次不成功:应该在Post前用Edit方法;

[flytiger1977]

改用DBIMAGE就可以了。

[diruser]

up