Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
23. Mai 2005
Hallo Florian,
tatsächlich hat dein Code bei mir mit 'the quick brown fox jumps over the lazy dog' funktioniert, aber das war reiner Zufall. Dein Problem ist, dass du natürlich nur solche Strings komprimieren darfst, die im resultierenden Byte-Strom keinen low value (#0) aufweisen. Oder du musst mit short strings arbeiten, da diese #0 nicht zur Terminierung benötigen. Macht auch nicht so...
Forum: Sonstige Fragen zu Delphi
Delphi
by marabu,
22. Mai 2005
Abgesehen von ein paar überflüssigen Statements funktioniert der Code, aber statistische Komprimierung verkehrt sich bei zu kleinen Datenmengen leicht ins Gegenteil. Ich nehme an, dass du keine konkrete Anwendung im Sinn hast und mehr die Funktionalität der Library ausloten willst.
function CompressString(input: string): string;
var
OutBuf: Pointer;
OutBytes: Integer;
begin
try
...