type
TFloat2 = record
case integer of
0: (LargeInt: Int64)
1: (Float1, Float2: single)
end
var
F2: TFloat2
使用:
F2.LargeInt := TBlobField(xxx.FieldByName('...')).AsLargeInt
然后就可以使用F2.Float1、F2.Float2了。
不过这种方法不保证对所有数据库兼容。
mystr = App.Path &"\结果\" &".cll"你这里要给文件起一个名称啊,哪怕是随机的名字也可以啊,比如
mystr = App.Path &"\结果\文件名字自己改.cll"
或者
mystr = App.Path &"\结果\" &Int(Rnd * 100000) &".cll"
你这个问题说得比较含糊在delphi中
如果是长的大段文本字段,你可以定义字段的类型为memo
如果是图像字段,你可以定义字段类型为OLE
然后在delpi程序中,用普通的memo和普通的image控件就可以显示出来。切记不可用DBimage,因为它只能显示.bmp的格式。剩下的就是加代码了。
这其中要涉及到创建一个图像类来存储图像。这里,我就不写了。如果感兴趣。用QQ联系 156800737
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)