[已解决]怎么用Delphi7 把sql数据库里面保存的图片显示出来

13328593595

sc_SpecialOperImg  sql数据表
OperPhoto：图片
BillID：对应的主表ID
StepTypeID：对应明细ID
根据这两个id找到对应的图片并显示

最佳答案

月排行榜 / 总排行榜

FishC

2025-1-6 09:15:53

要在Delphi 7中显示SQL数据库中保存的图片，你可以按照以下步骤来实现：

1. **安装数据库组件**：确保你的Delphi工程中有可以连接SQL数据库的组件，比如`ADOConnection`、`ADOTable` 或者 `ADOQuery`。

2. **连接数据库**：设置好`ADOConnection`的连接字符串，确保能够连接到你的SQL数据库。

3. **查询图片数据**：使用`ADOQuery`来查询图片数据。假设你想根据`BillID`和`StepTypeID`来获取图片，可以使用如下SQL语句：
  

1. SELECT OperPhoto FROM sc_SpecialOperImg WHERE BillID = :BillID AND StepTypeID = :StepTypeID

复制代码

4. **在Delphi中显示图片**：将查询出的图片数据加载到一个图形控件中，比如`TImage`。假设`ADOQuery1`是你的查询组件，`Image1`是你的图形控件，可以使用如下代码加载图片：

1. procedure TForm1.DisplayImage(BillID: Integer; StepTypeID: Integer);
   
2. var
   
3.   BlobStream: TStream;
   
4. begin
   
5.   ADOQuery1.Close;
   
6.   ADOQuery1.Parameters.ParamByName('BillID').Value := BillID;
   
7.   ADOQuery1.Parameters.ParamByName('StepTypeID').Value := StepTypeID;
   
8.   ADOQuery1.Open;
   
9. 
   
10.   if not ADOQuery1.Eof then
    
11.   begin
    
12.     BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('OperPhoto'), bmRead);
    
13.     try
    
14.       Image1.Picture.Graphic.LoadFromStream(BlobStream);
    
15.     finally
    
16.       BlobStream.Free;
    
17.     end;
    
18.   end
    
19.   else
    
20.     ShowMessage('No image found for the specified BillID and StepTypeID.');
    
21. end;

复制代码

5. **调用显示函数**：在需要的时候调用`DisplayImage`函数，并传入有效的`BillID`和`StepTypeID`即可。

通过这些步骤，就可以把SQL数据库里的图片显示在Delphi程序的界面上。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

跳转到最佳答案楼层

FishC

要在Delphi 7中显示SQL数据库中保存的图片，你可以按照以下步骤来实现：

1. **安装数据库组件**：确保你的Delphi工程中有可以连接SQL数据库的组件，比如`ADOConnection`、`ADOTable` 或者 `ADOQuery`。

2. **连接数据库**：设置好`ADOConnection`的连接字符串，确保能够连接到你的SQL数据库。

3. **查询图片数据**：使用`ADOQuery`来查询图片数据。假设你想根据`BillID`和`StepTypeID`来获取图片，可以使用如下SQL语句：
  

1. SELECT OperPhoto FROM sc_SpecialOperImg WHERE BillID = :BillID AND StepTypeID = :StepTypeID

复制代码

4. **在Delphi中显示图片**：将查询出的图片数据加载到一个图形控件中，比如`TImage`。假设`ADOQuery1`是你的查询组件，`Image1`是你的图形控件，可以使用如下代码加载图片：

1. procedure TForm1.DisplayImage(BillID: Integer; StepTypeID: Integer);
   
2. var
   
3.   BlobStream: TStream;
   
4. begin
   
5.   ADOQuery1.Close;
   
6.   ADOQuery1.Parameters.ParamByName('BillID').Value := BillID;
   
7.   ADOQuery1.Parameters.ParamByName('StepTypeID').Value := StepTypeID;
   
8.   ADOQuery1.Open;
   
9. 
   
10.   if not ADOQuery1.Eof then
    
11.   begin
    
12.     BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('OperPhoto'), bmRead);
    
13.     try
    
14.       Image1.Picture.Graphic.LoadFromStream(BlobStream);
    
15.     finally
    
16.       BlobStream.Free;
    
17.     end;
    
18.   end
    
19.   else
    
20.     ShowMessage('No image found for the specified BillID and StepTypeID.');
    
21. end;

复制代码

5. **调用显示函数**：在需要的时候调用`DisplayImage`函数，并传入有效的`BillID`和`StepTypeID`即可。

通过这些步骤，就可以把SQL数据库里的图片显示在Delphi程序的界面上。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。