各位大哥帮看下我的delphi存储图片程序是否有错

Question

try
    Frm_Data.ADOTable1.TableName:='zongheti';
    Frm_Data.ADOTable1.Active:=true;
    st := tstringstream.create('');
    DBImage1.Picture.Graphic.SaveToStream(st);
    with Frm_Data.ADOTable1 do
    begin
      open;
      append;
      FieldByName('TM').AsString:=z_ti;
      FieldByName('TID').AsString:=z_m;
      FieldByName('DA').AsString:=z_da;
      FieldByName('NY').AsString:=z_nd;
      FieldByName('FromZ').AsString:=z_z;
      FieldByName('FromJ').AsString:=z_j;
      TBlobField(frm_data.adotable1.FieldByName('Text_pic')).LoadFromStream(st);
      post;
      close;

Answer 1

我没看懂你的程序,一般的,通过 DBImage1连到表中的图片字段,用图片打开对话框,通过一段程序读出图片文件,提交到表中就可以了,
 procedure TForm3.DBImage1Click(Sender: TObject);
begin
       OpenPictureDialog1.InitialDir:=GetCurrentDIr;
   if  OpenPictureDialog1.Execute then
       Dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
       TAble1.post;
end;

Answer 2

用BDE连接,你先建立好数据库,建立好表,建立ODBC数据源,在delphi 窗口上放好 Database1  它的别名(Alias)就是ODBC数据源了,Databasename 也是ODBC数据源,LoginPrompt=false (这样登录时不再显示数据库的登录窗口)  ,再放上一个Table1 属性Database 为数据库名; 连上具体的一个表,用TAbleName 连表名,再放一个Datasource 通过dataset 连到Table1 再放一个 Dbgrid 通过datasource属性连到 DAtasource1 设Table1 属性 Active=true 
就看到数据了,再加一个导航仪DBNavigator1 通过datasource属性连到 DAtasource1
由于 dbgrid不能显示图片,只好再放一个 DBImage1 它的datasource属性连到 DAtasource1,
DBImage1的双击事件中代码
    OpenPictureDialog1.InitialDir:=GetCurrentDIr; 
  if  OpenPictureDialog1.Execute then 
      Dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); 
      TAble1.post;   
编译就可运行输入数据了和图片了.找一本带有数据库应用的书看看,练习题一下就可了.

Answer 3

记得放上图片打开对话框OpenPictureDialog1呵