FileStream mit "TIniFile Funktionalität".Methoden

[Bjoerk]

Ich würde gerne eine FileStream Klasse schreiben die ich wie eine IniFile behandeln kann. Wie könnte man denn sowas machen? Ich habe gedacht daß ich einen Header anlege in der ich die nötigen Infos speichere. Nur, wie könnte so ein Header aussehen? Oder ist das Ganze Blödsinn?

[Sir Rufo]

Du willst eine Klasse von TFileStream ableiten und dann um Methoden von TIniFile erweitern?

Lass mich kurz überlegen: Ja, das ist Blödsinn

[Bjoerk]

Juut. Einverstanden.

Dann anders rum. Wie krieg ich eine emf in eine IniFile. Auch Blödsinn?

[Sir Rufo]

Zitat von Bjoerk:

Juut. Einverstanden.

Dann anders rum. Wie krieg ich eine emf in eine IniFile. Auch Blödsinn?

Nö, du bekommst quasi alles in ein IniFile mit TiniFile.WriteBinaryStream

[DeddyH]

Meintest Du vielleicht eher TIniFile.WriteBinaryStream?

[Bjoerk]

Okay. Wenn das funktioniert? Wäre mir ja auch viel lieber. Ich werf mal einen Blick in die inifiles.pas. Melde mich ggf. nochmal. Thanx!

[himitsu]

TCustomIni (der Vorfahre von TIniFile) ... das kann man gern verwenden und ihm, statt der INI-Datei-WinAPI, ein anderes Backend verpassen.
TStringListe mit Names/Values (ist wie eine INI, aber mit nur einer einzigen Section)
TStringStream
TTextReader
TTextWriter
TBinaryReader
TBinaryWriter
TStringReader
TStringWriter
TStreamWriter
TStreamReader
...


Das Read, ReadLn, Write und WriteLn des alten AssignFile

[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;

[Sir Rufo]

Bis auf die Tatsache, dass du dich jetzt mit einem TMemIniFile verheiratet hast sieht das doch gut aus.

Wenn du eine Klasse geschrieben hättest, die etwas näher bei deiner Anwendung und etwas weiter weg von TMemIniFile ist, dann wäre das flexibler.

Delphi-Quellcode:

type
  TFoo = class( TCustomIniFile )
  private
    FIniFile : TCustomIniFile;
  public
    constructor Create( AIniFile : TCustomIniFile );

    // Alle Methoden auf die interne FIniFile umleiten

    procedure WriteMetaFile( const Section, Name : string; const Value : TMetaFile );
    procedure ReadMetaFile( const Section, Name : string; const Value : TMetaFile );
  end;

constructor TFoo.Create( AIniFile : TCustomIniFile );
begin
  inherited Create;
  if not Assigned( AIniFile ) 
  then
    raise EArgumentNilException.Create( 'TFoo: AIniFile' );
  FIniFile := AIniFile;
end;

procedure TFoo.WriteMetaFile( const Section, Name : string; const Value : TMetaFile );
var
  LStream : TStream;
begin
  LStream := TMemoryStream.Create;
  try
    Value.WriteToStream( LStream );
    LStream.Position := 0;
    FIniFile.WriteBinaryStream( Section, Name, LStream );
  finally
    LStream.Free;
  end;
end;

[Bjoerk]

Okay. Meistens arbeite ich aber mit einen eigenen IniFileParser. Der liest die Ini mit Assignfile und Co als TextFile ein. Wenn ich dort jetzt die Methoden (ReadMetaFile, ReadBinaryStream bzw. WriteMetaFile, SaveToStream) ergänze geht das dann noch als TextFile?

Delphi-Quellcode:

function TStrIniFile.LoadFile: boolean;
var
  F: TextFile;
  S: string;
  Buf: array [1..65536] of Char;
begin
  Result := false;
  if IniFileExists then
  begin
    AssignFile(F, FFileName);
    SetTextBuf(F, Buf);
    if CanOpenFile(F, false) then
    begin
      while not Eof(F) do
      begin
        Readln(F, S);
        if IsIniLine(S) then
          AddItem(S);
      end;
      CloseFile(F);
      Result := true;
    end;
  end;
end;

function TStrIniFile.SaveFile: boolean;
var
  F: TextFile;
  I: integer;
  Buf: array [1..65536] of Char;
begin
  Result := false;
  if FFileName <> '' then
  begin
    AssignFile(F, FFileName);
    SetTextBuf(F, Buf);
    if CanOpenFile(F, true) then
    begin
      for I := 0 to FCount - 1 do
      begin
        if I > 0 then
          if FEqualSignPos[I] < 0 then
            Writeln(F);
        Writeln(F, FItems[I]);
      end;
      CloseFile(F);
      Result := true;
    end;
  end;
end;