INI aus Memorystream

[hedie]

Hallo

Ich habe ein INI File mit AES - Rijndael verschlüsselt.
Nun möchte ich die Datei in meinem Programm wieder entschlüsseln, das klappt auch ganz gut
aber wenn ich nun die datei einfach speichere, unverschlüsselt!, dan könnte ich das ding auch gleich ohne AES
machen..

Deshalb nun die frage, wie kann ich mit TInifile auf einen Stream zugreifen?

weil dan würde ich die AES Datei in einen Stream entschlüsseln und diesen Laden....


Danke schonmal

[Nuclear-Ping]

Gabs da nicht TMemIniFile oder sowas?

[sirius]

Vielleicht mit TMemInifile und der Methode setStrings

Edit: @NP: Ja, gabs. Ich hatte vorsichtshalber nochmal nachgesehen. :lol:

[Nuclear-Ping]

Hab grad mal in der Hilfe geguckt. Der Constructor erwartet auch 'nen Dateinamen.

Zitat:

Zitat von Delphi-Hilfe

TMemIniFile puffert im Gegensatz zum TIniFile-Objekt, das auch die Daten der INI-Datei kapselt, alle an der INI-Datei vorgenommenen Änderungen.

Scheint also auch nicht das richtige zu sein.

[hedie]

Jo

Also wenn ich TMemIniFile mache, dan kommt genau auch .Create(TFileName)

Somit is das nicht das richtige....

[marabu]

SetStrings() war schon richtig:

Delphi-Quellcode:

procedure LoadFromStream(ini: TMemIniFile; stream: TStream);
var
  s: TStrings;
begin
  s := TStringList.Create;
  try
    s.LoadFromStream(stream);
    ini.SetStrings(s);
  finally
    s.Free;
  end;
end;


var
  ini: TMemIniFile;
begin
  ini := TMemIniFile.Create('');
  // ...
end;

Freundliche Grüße

[Nuclear-Ping]

Funzt das mit nem leeren Dateinamen echt?

[hedie]

Ich hab das nun mal so getestet

Delphi-Quellcode:

procedure LoadFromStream(ini: TMemIniFile; stream: TStream);
var
  s: TStrings;
begin
  s := TStringList.Create;
  try
    s.LoadFromStream(stream);
    ini.SetStrings(s);
  finally
    s.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TMemIniFile;
  str:tfilestream;
begin
str := tfilestream.Create('test.ini',fmOpenRead);
LoadFromStream(ini,str);
ini := TMemIniFile.Create('');
edit1.Text := ini.ReadString('test','test','error');
ini.Free;
str.Free;
end;

Doch leider bekomme ich eine Zugrifsverletzung....

Über die verwendung von LoadFromStream bin ich mir nicht so ganz im klaren...
Was muss ich genau bei INI übergeben?

Danke schonmal... Und Danke für den Code

[DeddyH]

Zitat:

Delphi-Quellcode:

LoadFromStream(ini,str);
ini := TMemIniFile.Create('');

Fällt Dir etwas auf? Du versuchst, eine MemIniFile zu befüllen, bevor Du sie erzeugst ;)

[hedie]

tatsächlich... :D

Es hat geklappt...

Wer hätte das gedacht :D

Vielen Vielen Dank an alle....

[FrankBrin]

Hallo,
ich habe diese Funktion bei mir auch implementiert. Allerdings unter RAD2007.
Doch leider geschieht folgendes:
Stream wird korrekt an LoadFromStream übergeben.
s wird Created
und bei s.LoadFromStream(Stream) passiert einfach nix. s bleibt leer.

Keine Fehlermeldung, keine Exception - einfach nix.

Hat jemand eine Vorstellung woran das liegen könnte.

Gruß Frank.
P.S. Mein Stream kommt von einem IdFtpClient und ist ein StringStream!

[himitsu]

hast du auch die StreamPosition zurückgesetzt?

s.Position := 0; oder so

[FrankBrin]

Hallo himitsu,
du bist so gut zu mir.
Ein kleines

Stream.Position := 0;

und die Welt ist wieder in Ordnung.

Tausend Dank

Gruß
Frank