用ado 在 access 存取二进制文件的一种办法
2004-12-23 08:08
288 查看
在access中建一个备注字段(备注类型一种数据量大的文本类型),名为binary。
主键id。
有一timage已装载的图片。memstream为tmemorystream;p为byte
存:
self.Image1.Picture.Bitmap.SaveToStream(memstream);
memstream.seek(0,soFromBeginning );
while memstream.Position<memstream.Size do
begin
memstream.ReadBuffer(p,1);
i:=length(inttostr(p));
self.ADODataSet1.Recordset.Fields[1].AppendChunk(inttostr(i)+inttostr(p));
end;
self.ADODataSet1.Recordset.UpdateBatch(1);
取:
with self.ADODataSet1 do
begin
while i< recordset.Fields[1].ActualSize do
begin
l:=strtoint(recordset.Fields[1].GetChunk(1));
m:=recordset.Fields[1].GetChunk(l);
i:=i+2*l+2;
try
b:=strtoint(m);
memstream.Write(b,1);
except
begin
showmessage(inttostr(l));
end;
end;
end;
end;
memstream.Seek(0,soFromBeginning);
self.Image1.Picture.Bitmap.LoadFromStream(memstream);
主键id。
有一timage已装载的图片。memstream为tmemorystream;p为byte
存:
self.Image1.Picture.Bitmap.SaveToStream(memstream);
memstream.seek(0,soFromBeginning );
while memstream.Position<memstream.Size do
begin
memstream.ReadBuffer(p,1);
i:=length(inttostr(p));
self.ADODataSet1.Recordset.Fields[1].AppendChunk(inttostr(i)+inttostr(p));
end;
self.ADODataSet1.Recordset.UpdateBatch(1);
取:
with self.ADODataSet1 do
begin
while i< recordset.Fields[1].ActualSize do
begin
l:=strtoint(recordset.Fields[1].GetChunk(1));
m:=recordset.Fields[1].GetChunk(l);
i:=i+2*l+2;
try
b:=strtoint(m);
memstream.Write(b,1);
except
begin
showmessage(inttostr(l));
end;
end;
end;
end;
memstream.Seek(0,soFromBeginning);
self.Image1.Picture.Bitmap.LoadFromStream(memstream);
相关文章推荐
- 一种对ASP.NET下拉列表存取的比较鲁棒和直接的办法
- VC++6.0 中用 ADO 存取 Access 数据库的一点总结
- Ado.Net间歇性问题的一种解决办法
- VC++6.0 中用 ADO 存取 Access 数据库
- Access ADO多连接时数据延迟无法同步无法及时更新的解决办法
- VC++6.0 中用 ADO 存取 Access 数据库的一点总结
- 找到的OpenLayers跨域访问WFS服务出现No 'Access-Control-Allow-Origin' header is present...错误的一种解决办法
- Ado.Net间歇性问题的一种解决办法 :Column 'column' does not belong to table Table
- Access denied for user 'root'@'localhost' (using password: YES)的一种解决办法
- Access ADO多连接时数据延迟无法同步无法及时更新的解决办法
- VC 用 ADO 存取 Access 数据库的一点总结
- vc下ado存取access
- Ado.net间歇性出现莫名其妙问题的一种解决办法
- MFC+ADO+ACCESS创建数据库
- 给QT程序升级的一种办法
- 导入工程后出现“注: 某些输入文件使用或覆盖了已过时的 API”的一种解决办法
- ADO.NET更新ACCESS碰到的怪异问题
- Delphi操作Access文件,非ADO
- struts2中提出找不到strut-default.xml文件错误中的一种错误处理办法
- 在DELPHI程序中使用ADO对象存取ODBC数据库