添加 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]);
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;