◆◇◆邮件附件的问题！！哪位大虾帮帮忙阿！！！◆◇◆

Question

我想存内容该怎么做，给个例子，关键是怎么读文件
表是access的

Answer 1

Ole类型字段存放附件内容。1、存文件入数据库
   with Query do
   begin
     Close;
     Sql.Clear;
     Sql.Add('INSERT INTO Table VALUE(:sFileName,:sFileContent)');
     ParamByName('sFileName').AsString := ExtractFileName(sFileName);  
     ParamByName('sFileContent').LoadFromFile(sFileName,ftBlob);
     ExecSQL;
   end;
2、从数据库中取出文件
   with Query do
   begin
     Close;
     Sql.Clear;
     Sql.Add('SELECT * FROM  Table');
     Open;
     (FieldByName('sFileContent') AS TBlobField).SaveToFile ('C:\'FieldByName('sFileName').AsString);
   end;
      

Answer 2

谢谢，我先try一下，一定给分