"Verschlüsselung"

[mkinzler]

Und stimmen auch die Typen? Unicode?

[himitsu]

Zitat von mkinzler:

Und stimmen auch die Typen? Unicode?

Ich weiß nun auch nicht wo AddModuleUnloadProc her kommt...

* entweder hast du eine alte Version erwischt. (Nicht-Unicode von vor Delphi 2009)
* oder es hat sich irgendwas im Delphi geändert (falls das eine Funktion von/zur RTL ist)

[VkPenguin]

Diese Stelle verursacht das Problem:

Delphi-Quellcode:

{$IFDEF VER_D3H}
procedure ModuleUnload(Instance: Integer);
var // automaticaly deregistration/releasing
  I: Integer;
begin
  if IsObject(FClasses, TList) then
    for I := FClasses.Count -1 downto 0 do
      if Integer(FindClassHInstance(TClass(FClasses[I]))) = Instance then
        FClasses.Delete(I);
end;

initialization
  AddModuleUnloadProc(ModuleUnload);
{$ELSE}
initialization
{$ENDIF}
  FClasses := TList.Create;
finalization
{$IFDEF VER_D3H}
  RemoveModuleUnloadProc(ModuleUnload);
{$ENDIF}
  FreeAndNil(FClasses);

Ich habe das neue Rad Studio XE7 und die neuste DEC Version (5.2). Ich kann mit dem Fehler ehrlichgesagt nichts anfangen, was soll ich denn da tun?

[himitsu]

Es gibt da doch irgendwo eine *.INC, wo diese VER_D3H-Definitionen drin definiert sind.

Wie sieht diese Datei denn aus?


Ich vermute mal, daß die Erkennung für die neusten Delphis fehlt.

[Jens01]

Krypto
Das funktioniert. Man muss sich aber einarbeiten. Der Autor läuft auch hier im Forum herum.

[Sherlock]

Für simples AES kann auch die winCrypt-Api herhalten. Wincrypt.pas gibts bei Rudy Velthuis. Dann ist es eigentlich nur noch eine Folge von ca. acht Befehlen. Für mehr würde ich sie aber nicht einsetzen... wirklich unhandlich das Monster.

Sherlock

[VkPenguin]

Hm.
@Himitsu:
Also ich habe "Embarcadero® RAD Studio XE7 Version 21.0.17017.3725".
In der "ver.inc" taucht folgendes auf:

Delphi-Quellcode:

{$IFDEF VER150} {Borland Delphi 7.0 }
  {$DEFINE VER_D7}
  {$DEFINE VER_D7H}
  {$DEFINE VER_D6H}
  {$DEFINE VER_D5H}
  {$DEFINE VER_D4H}
  {$DEFINE VER_D3H}
  {$DEFINE VER_D2H}
  {$DEFINE VER_D1H}
{$ENDIF}

Das müsste doch eigentlich Funktionieren, oder sehe ich das falsch?

@Jens/Sherlock: Ich werde mir auch eure Ideen mal ansehen und ausprobieren, vielen Dank schonmal!