用DELPHI编程将图片文件10101.jpg文件保存到demo.dat文件

Question

用DELPHI编程将图片文件10101.jpg文件保存到demo.dat文件
并用DELPHI编程实现将这个1010.jpg文件从demo.dat文件中
读取到DELPHI窗体中指定的Image控件中.................

Answer 1

最简单的办法就是用小型数据库控件， 例如 DBISAM, AbsoluteDatabase, Accuracer Database System 等。

Answer 2

有了这两个函数，相信楼主能找到办法了（网上转载的），我也用过类似功能，将图片转存到XML中去
function StringToComponent(Value: string; Instance: TComponent): TComponent;
var
  StrStream: TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(Instance);
    finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
    end;
end;
function ComponentToString(Component: TComponent): string;
var
  BinStream: TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
    BinStream := TMemoryStream.Create;
    try
      StrStream := TStringStream.Create(s);
      try
        BinStream.WriteComponent(Component);
        BinStream.Seek(0, soFromBeginning);
        ObjectBinaryToText(BinStream, StrStream);
        StrStream.Seek(0, soFromBeginning);
        Result := StrStream.DataString;
      finally
        StrStream.Free;
      end;
    finally
      BinStream.Free;
    end;
end;