随笔

DLL传递连接参数
gioqueryx.Connection := TgioConnection(Integer(vIntf));


//gioCDS1.BlobFromFile() 使用的时候关键字段必须ID，类型没关系
//gioCDS1.BlobFromStream() 关键字段，类型都能自定义


添加
var
  bm:string;
  ms:TMemoryStream;
  myjpeg:tjpegimage;
  fn:string;
begin
  bm:='ZP'+formatdatetime('YYYYMMDDHHMMSSZZZ',NOW);
  ms:=TMemoryStream.Create;
  myjpeg:=tjpegimage.Create;
  if PromptForFileName(fn) then begin
    myjpeg.LoadFromFile(fn);
    myjpeg.SaveToStream(ms);
    ms.Position:=0;
  end;
  gioquery1.SQL.Text:='insert into db_zp(id,zp) values('+quotedstr(bm)+',NULL)';
  gioquery1.Execute;
  gio_zp.OpenSQL('select * from db_zp');
  gio_zp.Locate('id',bm,[loCaseInsensitive, loPartialKey]);


  gio_zp.BlobFromFile(gio_zp.FieldByName('zp'), fn, True);
  ms.Free;
end;




APPEND添加
var
  bm:string;
  ms:TMemoryStream;
  myjpeg:tjpegimage;
  fn:string;
begin
  bm:='ZP'+formatdatetime('YYYYMMDDHHMMSSZZZ',NOW);
  ms:=TMemoryStream.Create;
  myjpeg:=tjpegimage.Create;
  if PromptForFileName(fn) then begin
    myjpeg.LoadFromFile(fn);
    myjpeg.SaveToStream(ms);
    ms.Position:=0;
  end;
  //查找一条不存在的记录，打开db_zp到cds中
  gio_zp.OpenSQL('select  * from db_zp where bm='+quotedstr('asdfafd'));
  gio_zp.Append;
  gio_zp.FieldByName('bm').Value:=bm;
  gio_zp.BlobFromStream(gio_zp.FieldByName('zp'), ms, True);
  ms.Free;
end;