Question

我在检索包含图像的blob字段时遇到问题，然后将其保存到文件中下载的文件似乎格式不正确;如果我打开它使用十六进制编辑器包含单词@R_BLOB @

可能出现什么问题？

bg: = TAdsBlobStream.Create (adsQuery1.FieldByName ('PAGE') as TBlobField, bmReadWrite);
f: = TMemoryStream.create;
bg.Position: = 0;
f.CopyFrom (bg, bg.size);
f.SaveToFile ('c: \ tmp \ db \ img \' + IntToStr (n) + '. jpg');
f.free;

谢谢

Answer 1

我只是使用以下代码通过ADSTable将小（9K）JPEG写入ADS BLOB字段，将其读回ADSBlobStream并将其写入磁盘的单独位置，并且一切正常。 Windows图片查看器中的图像的新副本打开正常，我没有看到任何带有十六进制查看器的无关字符。

// Code to create the test table, done in ARC32
CREATE TABLE Test (ID Integer, Pic BLOB);

在新的空白VCL表单上删除了TADSSettings，TADSQuery和两个普通TButton组件。以下是按钮OnClick处理程序（显然两个处理程序中的文件名都是硬编码的，应该用机器上的实际文件名替换）：

procedure TForm1.Button1Click(Sender: TObject);
var
  Blob: TAdsBlobStream;
  Strm: TFileStream;
  Tbl: TAdsTable;
begin
  Tbl := TAdsTable .Create(nil);
  try
    Tbl.DatabaseName := AdsQuery1.DatabaseName;
    Tbl.TableType := ttAdsCDX;
    Tbl.TableName := 'Test.dbf';
    Tbl.Open;
    Tbl.Edit;
    Blob := Tbl.CreateBlobStream(AdsQuery1.Fields[1], bmWrite) as TAdsBlobStream;
    try
      Strm := TFileStream.Create('E:\Test\Images\Big folder.jpg', fmOpenRead);
      try
        Blob.CopyFrom(Strm, Strm.Size);
      finally
        Strm.Free;
      end;
    finally
      Blob.Free;
    end;
  finally
    Tbl.Post;
    Tbl.Close;
    Tbl.Free;
    AdsQuery1.Open;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Blob: TAdsBlobStream;
  Strm: TFileStream;
begin
  AdsQuery1.SQL.Text := 'SELECT ID, pic FROM test';
  AdsQuery1.Open;
  Blob := AdsQuery1.CreateBlobStream(AdsQuery1.Fields[1], bmRead) as TAdsBlobStream;
  try
    Strm := TFileStream.Create('E:\TempFiles\BigFolder.jpg', fmCreate);
    try
      Strm.CopyFrom(Blob, Blob.Size);
    finally
      Strm.Free;
    end;
  finally
    Blob.Free;
  end;
end;

运行该应用，然后点击Button1将图片插入Test表格。然后单击Button2将其读回并将其写入磁盘上的新文件。

Answer 2

初始文本@ R_BLOB @取决于组件TadsQuery的属性TableType中设置的表的类型，将其设置为ttAdsCDX，导出工作。

谢谢大家。

将Advantage DB中的blob字段保存到文件

2 个答案: