主页

怎么才能解决 delphi 三层数据库mysql中存图片的问题，读能解决

haynes 2012-01-26 10:19:16

数据库用MYSQL，图片字段为longblob ，数据库联接用的是UNIDAC控件
数据表 db_zp
bm char(19) //编号，唯一值
zp longblob //图片



var

  bh,filename:string;

  fimage:TMemoryStream;

begin

//打开图片对话框

  if openpicturedialog1.Execute =false then exit;

  filename:=openpicturedialog1.FileName;

//将图片转换大小并存入stream

  fimage:=TMemoryStream.Create;

  .......

  .......

  .SaveToStreamJpeg(fimage);



//将内存中的图片放入数据库中

  sqlquery_zp.SQL.Text:='insert into db_zp(bm,zp) values(:a,:b)';

  bh:='ZP'+formatdatetime('YYYYMMDDHHMMSSZZZ',NOW);

  sqlquery_zp.Params.ParamByName('a').Text:=bh;

  sqlquery_zp.Params.ParamByName('b').LoadFromstream(fimage,ftBlob);

   try

    sqlquery_zp.ExecSQL;

  except

    application.MessageBox(' 错误: 照片数据库添加资料失败 ','信息',MB_OK);

    exit;

  end;

以前2层是这么作的，但是到三层就不行了，用clientdataset_zp代替sqlquery_zp,执行没问题，但是mysql数据库中图片字段的数据不正常，很小很小。以前2层执行完后，可以用navicat for mysql 直接看到longblob字段中的图片.现在3层同样执行后，大小：只有2位元组

看了坛子上好些人遇到这问题，各位大神也贴了些解决办法，有用OLEVariant ,TBlobStream什么的，
我是新人，能否把这个解决办法弄得详细些，谢谢各位，所有分都送上

...全文