delphi图片保存到数据库

var
  ImageStream: TBytesStream;
  ImageBytes: TBytes;
begin
  ImageStream := TBytesStream.Create;
  try
    ImageStream.LoadFromFile('C:\path\to\image.jpg');
    ImageBytes := ImageStream.Bytes;

    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO Images (ImageName, ImageData) VALUES (:Name, :Data)');
      Parameters.ParamByName('Name').Value := 'image.jpg';
      Parameters.ParamByName('Data').LoadFromBuffer(ImageBytes, Length(ImageBytes));
      ExecSQL;
    end;
  finally
    ImageStream.Free;
  end;
end;

var
  ImageStream: TBytesStream;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ImageData FROM Images WHERE ImageName = :Name');
    Parameters.ParamByName('Name').Value := 'image.jpg';
    Open;

    if not IsEmpty then
    begin
      ImageStream := TBytesStream.Create;
      try
        TBlobField(Fields[0]).SaveToStream(ImageStream);
        ImageStream.Position := 0;
        Image1.Picture.Bitmap.LoadFromStream(ImageStream);
      finally
        ImageStream.Free;
      end;
    end;
  end;
end;