delphi 如何显示数据库里的JPG图片文件
发布网友
发布时间：2022-05-05 06:19
共1个回答
热心网友
时间：2023-10-12 15:20
with
Query
do
begin
Close;
Sql.Clear;
Sql.Add('INSERT
INTO
Table
VALUE(:sFileName,:sFileContent)');
ParamByName('sFileName').AsString
OpenDialog.FileName;
ParamByName('sFileContent').LoadFromFile(OpenDialog.FileName,ftBlob);
ExecSQL;
end;2、从数据库中取出文件
with
Query
do
begin
Close;
Sql.Clear;
Sql.Add('SELECT
*
FROM
Table');
Open;
(FieldByName('sFileContent')
AS
TBlobField).SaveToFile
(FieldByName('sFileName').AsString);
end;
