Ini-Datei in TMemoryStream laden und per TMemInifile lesen

[WebtoolMaster]

Hallo,

Unterstützt die TMemInifile unit das auslesen von Ini-Dateien die sich in
einem TMemoryStream befinden? Wenn ja, wie?

[Klaus01]

.. das sollte über eine TStringList gehen.

MemoryStream in die TStringList laden
TStringList in das TMemIniFile (setStrings) laden.

Über getStrings geht es den anderen Weg.

Grüße
Klaus

[WebtoolMaster]

Hab mal fongenden Code gefunden.
Wie wende ich diese Code an um daraus eine eigene Procedure zu machen.

Delphi-Quellcode:

var
    SL: TStringList;
    MI: TMemIniFile;
begin
  SL := TStringList.Create;
  try
    SL.Add('[MySection]');
    SL.Add('MyKey=MyValue');
    MI := TMemIniFile.Create('');
    try
      MI.SetStrings(SL);
      ShowMessage(MI.ReadString('MySection','MyKey','default'));
    finally
      MI.Free;
    end;
  finally
    SL.Free;
  end;

[Klaus01]

.. nun so schwer ist das nicht:

Delphi-Quellcode:

sl := TStringList.create.
memIni:= TMemIniFile.create('');
sl.loadFromStream(DeinMemoryStream);
memIni.setStrings(sl);
sl.free;

Die try-except Blöcke überlasse ich Dir.

Grüße
Klaus