程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> 用ado在access存取二進制文件的一種辦法

用ado在access存取二進制文件的一種辦法

編輯:關於Access數據庫

在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);

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved