Question

我正在尝试使用encddecd.pass中的EncodeBase64对图像流进行编码，并将其保存到blob字段中的数据库中。并使用decodebase64在字节流中检索此内容，该字节流放入组件中进行显示。该过程做得很好但图像没有显示在组件中。

这是摘要代码：

N <- seq(.8, 0, -.05)
N <- N[log(N) >= -6]

和加载：

procedure TProcessSave.Execute;
var
  i : Integer;
  fileStm : TStream;
  memStm : TMemoryStream;
  encode_plc : string;
begin
  for i := 0 to StrList.Count - 1 do
  begin
    DM.idb_tbl.Append;

    DM.idb_tbl.FieldByName('name').AsString := ExtractFileName(StrList.Strings[i]);  

try
  fileStm := TFileStream.Create(StrList.Strings[i], fmOpenReadWrite);

  memStm := TMemoryStream.Create;

  filestm.Seek(0, soFromBeginning);

  memStm.LoadFromStream(fileStm);

  DM.idb_tbl.FieldByName('file').Value := EncodeBase64(memStm.Memory, memStm.Size);

finally
  fileStm.Free;
  memStm.Free;
end;

DM.idb_tbl.Post;

end;
end;

然后我使用imgStm来显示组件中的图片但图片没有显示。我确信从组件。您对我的方法中的编码和解码有何看法？另一种方法是确保编码和解码这个问题吗？

编码，解码base64图像流delphi

0 个答案: