如何用DELPHI实现把WORD EXCEL和图片等存储到数据库中

最新推荐文章于 2025-05-05 14:35:06 发布

为什么没有人加

最新推荐文章于 2025-05-05 14:35:06 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.csdn.net/hffyyff/article/details/87918240

这篇博客介绍了如何利用DELPHI编程将Word、Excel文件和图片等内容有效地存储到数据库中，适合初学者入门学习。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

分享一下我老师大神的人工智能教程。零基础！通俗易懂！风趣幽默！还带黄段子！希望你也加入到我们人工智能的队伍中来！https://blog.csdn.net/jiangjunshow

                用image字段保存这些文档。
var
      word_stream: TMemoryStream;
      filename: string;
begin
      if odgDoc.Execute then//odgDoc:OpenDialog
      begin
            filename := ExtractFileName(odgDoc.FileName);
            word_stream := TMemoryStream.Create;
            word_stream.LoadFromFile(odgDoc.FileName);
            word_stream.Position := 0;
            cdsPACT.Append
            cdsPACT.FieldByName('DocName').Value := filename;
            TBlobField(cdsPACT.FieldByName('PactText')).LoadFromStream(word_stream);
            cdsPACT.Post;
            word_stream.Free;
      end;
end;

---- 目前，Delphi被越来越多的人选中作为MIS系统开发中的前台工具。在以Delphi为前台，一些大型数据库为后台的MIS系统中，图形的处理不可避免；即从以Delphi开发的前台界面输入图形，并保存到相应的数据库字段中。在这种形式的图形处理中，BMP文件的处理比较简单，因为Delphi本身有Image和DBImage构件，用这些构件与数据库中可以保存图形的大型字段BLOB比较容易地进行数据交换。以这种方式进行图形处理已应用在许多 MIS软件中，包括处理人员照片的人事档案系统等。
---- 但是，BMP文件一般都比较大。而且有时要录入的是自己在计算机上画的简图，并伴随大量文字说明。这种情况用Win95中的画图板等处理BMP文件的工具处理就比较困难。一般应用人员都喜欢用WORD画图和写说明文字，然后保存到数据库中。
---- 经过一段时间的摸索，我们解决了这个问题，并经过完善，在应用中运行较好。程序如下：
procedure TsampleForm.OpenDOCClick(S