FileStream mit "TIniFile Funktionalität".Methoden

[Bjoerk]

Okay. Ich hab's jetzt erst mal so probiert. Funzt einwandfrei.

Delphi-Quellcode:

function TMemIniFileEx.ReadMetaFile(const Section, Name: string;
  Value: TMetaFile): integer;
var
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  try
    Result := ReadBinaryStream(Section, Name, MemoryStream); // integer, kein int64
    MemoryStream.Position := 0;
    Value.LoadFromStream(MemoryStream);
  finally
    MemoryStream.Free;
  end;
end;

procedure TMemIniFileEx.WriteMetaFile(const Section, Name: string;
  Value: TMetaFile);
var
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  try
    Value.SaveToStream(MemoryStream);
    MemoryStream.Position := 0;
    WriteBinaryStream(Section, Name, MemoryStream);
  finally
    MemoryStream.Free;
  end;
end;