数据库sql2000
ado连接存储时无错误,但是提取不出数据存取时代码如下: FMemo.Clear;
DMPact.adoTpl.Edit;
DMPact.adoTplPACTBLOB.Clear;
try
FWriters:=TWriter.Create(FMemo,1024);
FWriters.WriteListBegin;
for i:=0 to ControlCount - 1 do
WriteObj(Controls[i]); //填写FMemo的过程,跟踪时执行
FWriters.WriteListEnd;
DMPact.adoTplPACTBLOB.LoadFromStream(FMemo);
saveDB(DMPact.adoTpl);
finally
FreeAndNil(FWriters);
end;
except
FreeAndNil(FMemo);
end;
提取代码如下:
try
DMPact.adoTplPACTBLOB.SaveToStream(FMemo);
if FMemo.Size>0 then
ReadObj; //读取FMemo的过程
except
FMemo.Clear;
FreeAndNil(FMemo);
end;
end;其中:FMemo 为TMemoryStream,FReader 为 Readers ,FWriter 为 Writers答者有分。
ado连接存储时无错误,但是提取不出数据存取时代码如下: FMemo.Clear;
DMPact.adoTpl.Edit;
DMPact.adoTplPACTBLOB.Clear;
try
FWriters:=TWriter.Create(FMemo,1024);
FWriters.WriteListBegin;
for i:=0 to ControlCount - 1 do
WriteObj(Controls[i]); //填写FMemo的过程,跟踪时执行
FWriters.WriteListEnd;
DMPact.adoTplPACTBLOB.LoadFromStream(FMemo);
saveDB(DMPact.adoTpl);
finally
FreeAndNil(FWriters);
end;
except
FreeAndNil(FMemo);
end;
提取代码如下:
try
DMPact.adoTplPACTBLOB.SaveToStream(FMemo);
if FMemo.Size>0 then
ReadObj; //读取FMemo的过程
except
FMemo.Clear;
FreeAndNil(FMemo);
end;
end;其中:FMemo 为TMemoryStream,FReader 为 Readers ,FWriter 为 Writers答者有分。
解决方案 »
- 定义一个简单对象不能通过编译
- 关于文件的加密和解密
- 学习数据库遇到的两个问题!
- ★★纪念香港乐坛一大鬼才-黄霑★★
- 我用的的D6,我想用dbExpress+MS SQl Sever来开发,可是D6中的dbExpress是不支持MS SQl Sever的,而D7中的是支持的,我如何升级dbExpress?
- 如何获得硬件的唯一编码?如CPU、主版、硬盘等硬件的机器唯一编码!
- 脱离delphi的环境运行,时应当加载哪些dll文件?
- 哦!终于也升星了,庆祝一下!来者有分。
- 如何防止调用动态库异常?(急)
- 请大家帮忙研究研究数据集 导入 Excel程序,执行的非法错误 代码如下
- 那位玩过打印服务器,直接操作端口怎么玩?
- 请帮忙开发一个软件,要求较高的加密性能,情报价或联系。
的前面加一句:
FMemo.Position := 0;DMPact.adoTplPACTBLOB.SaveToStream(FMemo);
的前面也加这一句。
试过了,还是不行
你有好的?贴出来看看。