Debugging Hilfe bei Hagens DEC, hier LHSZ.pas

**Assertor**

Hallo DPler,

ich arbeite gerade etwas an der DEC. Aktuell Sitze ich vor der LHSZ.pas. Für alle, die es nicht wissen: Es ist eine schlanke, effektive Unit für Hufmann-Kompression mit optionaler Verschlüsselung.

Die original Unit läuft nur bis ~ D7, darüber knallt es mit AVs, die ich soweit beheben konnte: Im Vergleich zu Hagens Original habe ich die Chars-Deklaration auch im Inflate Record hinzugefügt, da dieser hier fehlte.

Das Problem ist nun, daß die Inflate-Funktion scheinbar einen Bug hat, der nur > D7 zum Tragen kommt. Im Debugger sehe ich schon mal, daß in LH.Data nie ein Wert geschrieben wird. Die Frage ist, warum?

Kann das bitte mal jemand Testen?

Code zum Testen der LHSZ.pas:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Test;

var

  Key, PlainText: String;

  CipherText: String;

  Data: Pointer;

  Res: Integer;

begin

  PlainText := 'יהורם גאון test test test test test test test test test test test test';

  Key := 'testpw';

  try

    Res := LHCheck(LHEncodeBuffer(Key, PlainText , Length(PlainText) * SizeOf(PlainText[1]), Data));

    try

      SetString(CipherText, PChar(Data), Res);

      ShowMessage(CipherText);

    finally

      FreeMem(Data);

    end;

  except

    on E: Exception do

      ShowMessage('Error: ' + E.Message);

  end;

  try

    Res := LHCheck(LHDecodeBuffer(Key, CipherText , Length(CipherText) * SizeOf(CipherText[1]), Data));

    try

      SetString(PlainText, PChar(Data), Res);

      ShowMessage(PlainText); // hier wird nur ein sehr großer ~ 1400/6000 Char großer Leertext ausgegeben, da Data leer ist

    finally

      FreeMem(Data);

    end;

  except

    on E: Exception do

      ShowMessage('Error: ' + E.Message);

  end;

end;

Anbei auch meine Testversion der LHSZ.pas.

Gruß Assertor

Debugging Hilfe bei Hagens DEC, hier LHSZ.pas

Debugging Hilfe bei Hagens DEC, hier LHSZ.pas

Forumregeln