【图像处理高级编程】-JPG图片存取到数据库

大龙软件研发

已于 2024-05-13 05:32:46 修改

阅读量986

点赞数 37

CC 4.0 BY-SA版权

分类专栏：图像处理高级编程文章标签： DELPHI 笔记开发语言图像处理

于 2024-05-13 05:31:59 首次发布

本文链接：https://blog.csdn.net/reson100/article/details/138780060

这篇博客介绍了如何使用Delphi将JPG图片存取到数据库中，涉及TMemoryStream、TJPEGImage类和数据库操作。通过TOpenDialog选择图片，然后将图片数据保存到数据库特定字段，并在表格中显示。代码示例展示了关键的存取过程。

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

文章目录

- JPG图片存取到数据库
- 核心源码

JPG图片存取到数据库

提示：这里可以添加技术概要

在这里插入图片描述

核心源码

uses JPEG;

{$R *.DFM}

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
MS: TMemoryStream;
J1: TJPEGImage;
begin
Screen.Cursor := crHourglass;
try {Finall}
Edit1.Text := Table1Folder.AsString + ‘’ + Table1Filename.AsString;
if Table1Picture.IsNull then
Image1.Picture.Assign(nil)
else
begin
J1 := TJPEGImage.Create;
MS := TMemoryStream.Create;
try
Table1Picture.SaveToStream(MS);
MS.Seek(0, soFromBeginning);
with J1 do
begin
PixelFormat := jf24Bit;
Scale := jsFullSize;
Grayscale := False;
Performance := jpBestQuality;
ProgressiveDisplay := Tr