关于图片存入数据库和读取

Question

procedure Tmoju.Button1Click(Sender: TObject);
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('edit4');
str.Position:=0;
dm.aq_moju.Append;
Tblobfield(dm.aq_moju.FieldByName('tu')).loadfromstream(str);
try
dm.aq_moju.Post;
finally
str.Free;
end;
end;
end;这是我百度找的一段代码但是不想光复制。。有几个地方看不懂。。请教下1.Tmemorystream 这是什么类型？~~
2.Tblobfield  这是什么？控件？？在哪里？~
3.为什么要用try？~~直接保存不行吗？~

Answer 1

1.Tmemorystream 这是什么类型？~~   //内存流
2.Tblobfield 这是什么？控件？？在哪里？~//blob字段类型，在db单元，用来处理流内容
3.为什么要用try？~~直接保存不行吗？~//可以，try .. finally，是为了保证str.free，释放str

Answer 2

Tmemorystream  是内存流
Tblobfield 是字段类型，可以存取二进制数据
try 是错误保护

Answer 3

~~为什么我调试的时候。。他说找不到Tblobfield是不是前面要定义的？~

Answer 4

1.Tmemorystream 这是什么类型？~~                //内存流
2.Tblobfield 这是什么？控件？？在哪里？~          //不是控件，　他是处理 比如 mssql image 类型时用的一个类．
3.为什么要用try？~~直接保存不行吗？~    //处理异常方面的．  try finally end try except end

Answer 5

  本人还是初学者。。对于定义类很头疼。。~~  刚在网上看了下。。说要引用DM单元才能使用。。但是我DM单元没这个类。。是不是要定义的？？unit Unit2;interfaceuses
  SysUtils, Classes, DB, ADODB;type
  TDM = class(TDataModule)
    ADO: TADOConnection;
    aq_login: TADOQuery;
    aq_user: TADOQuery;
    ds_user: TDataSource;
    aq_bumen: TADOQuery;
    ds_bumen: TDataSource;
    aq_quanxian: TADOQuery;
    ds_quanxian: TDataSource;
    aq_gongneng: TADOQuery;
    aq_kehu: TADOQuery;
    ds_kehu: TDataSource;
    aq_Duc: TADOQuery;
    aq_D_dan: TADOQuery;
    ds_D_dan: TDataSource;
    ds_dipian: TDataSource;
    aq_dipian: TADOQuery;
    aq_liuzhuan: TADOQuery;
    aq_lz: TADOQuery;
    ds_lz: TDataSource;
    aq_lz_cha: TADOQuery;
    aq_kucun: TADOQuery;
    ds_kucun: TDataSource;
    aq_shou: TADOQuery;
    ds_shou: TDataSource;
    aq_X_shou1: TADOQuery;
    aq_Y_gong: TADOQuery;
    ds_Y_gong: TDataSource;
    aq_jiguan: TADOQuery;
    aq_D_dan1: TADOQuery;
    aq_moju: TADOQuery;
    ds_moju: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DM: TDM;implementation{$R *.dfm}end.
这是DM单元的代码不知道该定义在哪个位置。。= =！！请各位大哥指点~~。。~~