TO: fzzlz(fzzlz) 老兄,在BDE中设置图片SIZE的方法,俺早就试过了。不行!,你能说一下你整个过程具体的是如何做的吗,解决了我可给你再加高分(再加500)!
写一个循环,每次判断一下: li_n=1 if len(b_temp)<32765 then filewrite(ll_filenum,b_temp) else DO lb_mid=blobmid (b_temp,li_n,32765) li_n=li_n+32765 filewrite(ll_filenum,lb_mid) LOOP until len(lb_mid)=0 end if
我是prepare了一句"insert into table values(1,?)"
然后把Stream联系到?上,就insert了。
这种用法只能用在long raw型字段上,你不妨改字段类型为long raw再试试
http://expert.csdn.net/Expert/TopicView1.asp?id=1151465
但是关于应用程序段用Stream我就不是太清楚
首先谢谢你!
我改用long raw ,情况是一样的。
另外我用:
TBlobField(Table1.FieldByName('Jpg')).assign('e:\1.jpg');
却不会出现错误提示,但图片却取不出(11.jpg 字节为零):
TBlobField(Table1.FieldByName('Jpg')).SaveToFile('e:\11.jpg');http://expert.csdn.net/Expert/TopicView1.asp?id=1151465我打不开呀!
你是斑竹,快帮我吧,以前的为何打不开!
(你是安徽的吧)
老兄,在BDE中设置图片SIZE的方法,俺早就试过了。不行!,你能说一下你整个过程具体的是如何做的吗,解决了我可给你再加高分(再加500)!
li_n=1
if len(b_temp)<32765 then
filewrite(ll_filenum,b_temp)
else
DO
lb_mid=blobmid (b_temp,li_n,32765)
li_n=li_n+32765
filewrite(ll_filenum,lb_mid)
LOOP until len(lb_mid)=0
end if
我在d6中,如何才能作到循环?? 你这好象是写成Procedure了吧?
在delphi中的用法我就不太清楚,
多用google,因为你遇到的问题,不一定有人能解决,也许人家解决了写出来一大堆比较麻烦。