如何用delphi 实现附加保存任何类型的文件(如excle,word，ini ...)，并切能找开打。有点类型似邮件中的附加一件.

Question

如题。

Answer 1

如果用数据库
保存
ADOQuery1.Edit;
TBlobField(ADOQuery1.FieldByName(字段名)).LoadFromFile(文件名);
ADOQuery1.Post;
读取
TBlobField(ADOQuery1.FieldByName(字段名)).SaveToFile(文件名);如果用文件保存你要定义一个文件结构,比如TSaveFile = record
  filename: array [0..254] of char;//此处可以保存一下头文件信息
  attLen:integer;//附件的尺寸
  content: array of char;//附件内容
end;
保存时,用流读取要保存的文件,把流的size给attlen,流的内容给content
取出时,根据attlen定位附件流内容的长度,去除这部分即可

Answer 2

tks 
to bdmh
能否帮忙给一个关于用文件结构保存附件的例子