请问如何用 ado 存取 access BINARY 字段的问题

Question

请问如何用 ado 存取 access BINARY 字段的问题
那位大虾给一个例子 谢谢了

Answer 1

uses ADODB_TLB;var
  c: _Connection;
  r: _Recordset;
  s: _Stream;begin
  c := CoConnection.create;
  r := CoRecordset.create;
  s := CoStream.create;  try
    c.open(connectstring, userid, password, 0);
    r.open(sqlstr, c, adOpenKeyset, adLockPessimistic, 0);
    s.type_ := adTypeBinary;
    s.open();
    s.write(r.field['photo'].value);
    s.savetofile('c:\zzz.jpg', 0);
  except
    on E: Exception do ShowMessage('Read BLOB data fail!');
  end;
  
  s.close;
  s := nil;
  
  r.close;
  r := nil;  c.close;
  c := nil;
end;