blob里有些文件,想定期备份到磁盘,不知道dephi里是怎么操作blob字段的,请高手指点一二,或者哪里有这方面的字段
解决方案 »
- 有没有一个字符串函数,类似left左取函数,实现从左边取几个字符啊?
- 求助 ,wise 打包问题,请用过的大哥,一定要进来看看啊,差不多人都疯了?
- 如何将互联网中的数据库(SQLSERVER)添加(注册)到本地数据库中来,使本地能否操作远程数据库。
- 如何获得控件的句柄,是根据某特征值循环获得
- 一个十分简单的问题。关于Function的用法!!
- 很菜的问题,在线等……
- 求助~!急
- 在DBGrid中修改字段值,如何保证某字段值的唯一性?
- 高分请教问题,在线等待。
- 那位知道后下栽pl/sql软件的地方
- 怎样获得TTreeView的根键!??
- fastreport简单问题,安装,初学者,不懂,高手进来指教一下呀
//bde
procedure Tfrm_XTDZDDYXX.mn_openpClick(Sender: TObject);var ms:tmemorystream;
begin
opendialog1.Filter:='All (*.'+wjhz0+')|*.'+wjhz0;
if image1.Visible then
begin
if opendialog1.Execute then
begin
try
ms:=tmemorystream.Create;
ms.LoadFromfile(opendialog1.FileName);
sub_Table.Edit;
sub_TableNR.LoadFromStream(ms);
showimage;
finally
ms.Free;
end;
end;
end;
end;
//ado
procedure Tfrm_XTDZDDYXX.mn_openpClick(Sender: TObject);
var ms:tmemorystream;
begin
if sub_table.RecordCount<=0 then exit;
//opendialog1.Filter:='All (*.'+wjhz0+')|*.'+wjhz0;
if opendialog1.Execute then
begin
if (getfilesize(opendialog1.FileName)/(1024*1024))>=8.0 then
begin
messagebox(handle,pchar('文件大小不能超过8M,请选择其它的文件!'),'错误信息-文件太大',mb_iconerror);
exit;
end;
try
ms:=tmemorystream.Create;
ms.LoadFromfile(opendialog1.FileName);
sub_Table.Edit;
(sub_Table.FieldByName('nr') as tblobfield).LoadFromStream(ms);
wjhz0:=uppercase(ExtractFileExt(opendialog1.FileName));
delete(wjhz0,1,1);
sub_table.FieldByName('wjhzmc').AsString:=wjhz0;
sub_Table.post;
if image1.Visible then
begin
showimage;
end
else
begin
OleContainer1.DestroyObject;
OleContainer1.CreateObjectFromFile(opendialog1.FileName,false);
OleContainer1.run;
OleContainer1.Visible:=true;
end;
finally
ms.Free;
end;
end;
end;