[已解决]怎么用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语句：

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

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

procedure TForm1.DisplayImage(BillID: Integer; StepTypeID: Integer);
var
  BlobStream: TStream;
begin
  ADOQuery1.Close;
  ADOQuery1.Parameters.ParamByName('BillID').Value := BillID;
  ADOQuery1.Parameters.ParamByName('StepTypeID').Value := StepTypeID;
  ADOQuery1.Open;

  if not ADOQuery1.Eof then
  begin
    BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('OperPhoto'), bmRead);
    try
      Image1.Picture.Graphic.LoadFromStream(BlobStream);
    finally
      BlobStream.Free;
    end;
  end
  else
    ShowMessage('No image found for the specified BillID and StepTypeID.');
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语句：

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

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

procedure TForm1.DisplayImage(BillID: Integer; StepTypeID: Integer);
var
  BlobStream: TStream;
begin
  ADOQuery1.Close;
  ADOQuery1.Parameters.ParamByName('BillID').Value := BillID;
  ADOQuery1.Parameters.ParamByName('StepTypeID').Value := StepTypeID;
  ADOQuery1.Open;

  if not ADOQuery1.Eof then
  begin
    BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('OperPhoto'), bmRead);
    try
      Image1.Picture.Graphic.LoadFromStream(BlobStream);
    finally
      BlobStream.Free;
    end;
  end
  else
    ShowMessage('No image found for the specified BillID and StepTypeID.');
end;

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

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

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