ZLib - "CompressBuf"

[Aliobaba]

Hallo,

.... wahrscheinlich wieder 'mal nur ein banales Problem: Ich probiere gerade aus, einen String zu komprimieren, aber schon bei der Programm-Funktion erscheint folgende Fehlermeldung:

"Error: Identifier not found "CompressBuf" - (selbiges bei "DecompressBuf")

obwohl "ZLib" bei "uses" eingebunden ist.

Warum findet Lazarus "CompressBuf" nicht?
Was muss ich noch einbinden?

Danke!
Aliobaba

Code: Alles auswählen

 uses
  ... Zlib, ...;    
 
function CompressString(input:string):string;
var
  InpBuf, OutBuf: Pointer;
  OutBytes: Integer;
begin
  InpBuf := nil;
  OutBuf := nil;
  try
    GetMem(InpBuf, Length(input));
    Move(input[1], InpBuf^, Length(input));
    CompressBuf(InpBuf, Length(input), OutBuf, OutBytes);
    SetLength(result,OutBytes);
    Move(OutBuf^, result[1], OutBytes);
  finally
    if InpBuf <> nil then FreeMem(InpBuf);
    if OutBuf <> nil then FreeMem(OutBuf);
  end;
end;
 
function DeCompressString(input:string):string;
var
  InpBuf, OutBuf: Pointer;
  OutBytes: Integer;
begin
  InpBuf := nil;
  OutBuf := nil;
  try
    GetMem(InpBuf, Length(input));
    Move(input[1], InpBuf^, Length(input));
    DeCompressBuf(InpBuf, Length(input),0,OutBuf, OutBytes);
    SetLength(result,OutBytes);
    Move(OutBuf^, result[1], OutBytes);
  finally
    if InpBuf <> nil then FreeMem(InpBuf);
    if OutBuf <> nil then FreeMem(OutBuf);
  end;
end;      

http://www.delphipraxis.net/18249-strin ... ieren.html

[theo]

Glaskugel anwerf.....

Hmm, gibt es nicht. Gibt es auch bei Delphi nicht mehr. Sagt jedenfalls Tante Google, wenn man sie fragt.
http://embarcadero.newsgroups.archived. ... 52549.html

Probier mal was mit zstream oder so.

[Aliobaba]

Danke Theo,

... dass man bei der Suche nach "Zippen", "String" , "kompromieren" , "Lazarus" , "Delphi" usw. auch auf "veraltete" und nicht mehr gültige Einträge trifft - damit habe ich nicht gerechnet. Gerechnet habe ich allerdings mit (für mich) komplizierten Stream-Konstrukten

Gibt es tatsächlich keine einfache(!) Möglichkeit für einen "Anfänger", ganz schlicht einen Text-String zu komprimieren?

Ich denke da an sowas:

Code: Alles auswählen

String_2 := Jetzt-komprimiere_ich_ganz_toll(String_1);
String_3 := Jetzt-dekomprimiere_ich_ganz_toll(String_2);
 
Procedure Jetzt-komprimiere_ich_ganz_toll(Komp_String : String); 
begin
  ............
end;
 
Procedure Jetzt-dekomprimiere_ich_ganz_toll(De_Komp_String : String); 
begin
  ............
end;

Aliobaba
(Obige Prozeduren natürlich besser als Funktionen)

[Achtzig]

Wenn ich es richtig sehe, bietet die Einheit paszlib die gewünschten Funktionen:

function compress(dest:Pchar;var destLen:cardinal; source : Pchar; sourceLen:cardinal):longint;
function uncompress(dest:Pchar;var destLen:cardinal; source : Pchar; sourceLen:cardinal):longint;

Ich habe die aber noch nicht ausprobiert.

[theo]

Gibt es tatsächlich keine einfache(!) Möglichkeit für einen "Anfänger", ganz schlicht einen Text-String zu komprimieren?

Naja, du vergisst vielleicht, dass das ein so komprimierter String eigentlich keiner mehr ist. Er besteht auch aus Bytewerten, die nicht in einen String gehören.

Wenn du es einfach haben willst, kannst du z.B. meinen guten alten MemoryDataPacker verwenden.

http://www.theo.ch/lazarus/uDataPacker.pas

Das geht dann z.B. so:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var DP:TMemoryDataPacker;
  AString:String;
begin
  DP:=TMemoryDataPacker.Create(0);
  AString:='Dies ist ein Test, Dies ist ein Test, Dies ist ein Test, Dies ist ein Test';
  DP.AddString(AString);
  DP.Compress;
  //Writeln(Length(AString),' ',DP.Stream.Size);
  DP.Stream.SaveToFile('test.strm');
  DP.free;
  //--------------------------------------------
  DP:=TMemoryDataPacker.Create(0);
  DP.Stream.LoadFromFile('test.strm');
  DP.DeCompress;
  ShowMessage(DP.GetString());
  DP.free;
end;

[Aliobaba]

Hallo Theo,

Whow!!! Exakt genau das, was ich die ganze Zeit gesucht habe: Funktionierte auf Anhieb!!
Vielen, vielen Dank!!

Aliobaba

Eine Frage noch: kann ich den komprimierten Stream auch in einem "Memo" oder Textfile Speichern ohne es vorher in ein File auf die Festplatte schreiben zu müssen?
... nachträglich - nach dem Nachdenken editiert:
Sorry war wahrscheinlich eine dumme Frage: geht offenbar nicht. Du sagtest ja deutlich genug: "Naja, du vergisst vielleicht, dass das ein so komprimierter String eigentlich keiner mehr ist."

[Aliobaba]

.... der Zweck meiner Anfrage:
In meinem Programm "MyMemoryDB" [ http://www.mymemorydb.n-bay.de/ ] würde ich gerne einzelne Memoinhalte "bei Bedarf" verschlüsseln können.
Dies ist weiter kein Problem; aber so richtig schön wäre dies halt, wenn man den Text vor dem Verschlüsseln auch noch komprimieren könnte.

Aliobaba

[theo]

In DP.Stream ist ein normaler MemoryStream mit den Daten.
Auf den kannst du zugreifen wie du willst, zB. Byteweise auslesen

Code: Alles auswählen

DP.Stream.ReadBuffer(AByte,1);

Aber da ist natürlich nichts menschenlesbares drin.

Oder DP.Stream.Memory ist der Zeiger auf die Daten.

Dies ist weiter kein Problem; aber so richtig schön wäre dies halt, wenn man den Text vor dem Verschlüsseln auch noch komprimieren könnte.

Ich würde das evtl. in der umgekehrten Reihenfolge machen, aber was hält dich davon ab?

[Aliobaba]

Hallo Theo,

jetzt klappt - Dank Deiner Hilfe - alles!

Ich würde das evtl. in der umgekehrten Reihenfolge machen, aber was hält dich davon ab?

Dazu noch eine kurze Anmerkung:
Bei verschlüsselten Texten ist eine Komprimierung nicht mehr möglich,
da "zuviel Durcheinander - keine "Regelmäßigkeiten".

Nochmals Danke!!

Aliobaba

[carli]

Danke Theo,

... dass man bei der Suche nach "Zippen", "String" , "kompromieren" , "Lazarus" , "Delphi" usw. auch auf "veraltete" und nicht mehr gültige Einträge trifft - damit habe ich nicht gerechnet. Gerechnet habe ich allerdings mit (für mich) komplizierten Stream-Konstrukten

Gibt es tatsächlich keine einfache(!) Möglichkeit für einen "Anfänger", ganz schlicht einen Text-String zu komprimieren?

Ich denke da an sowas:

Code: Alles auswählen

String_2 := Jetzt-komprimiere_ich_ganz_toll(String_1);
String_3 := Jetzt-dekomprimiere_ich_ganz_toll(String_2);
 
Procedure Jetzt-komprimiere_ich_ganz_toll(Komp_String : String); 
begin
  ............
end;
 
Procedure Jetzt-dekomprimiere_ich_ganz_toll(De_Komp_String : String); 
begin
  ............
end;

Aliobaba
(Obige Prozeduren natürlich besser als Funktionen)

Bitteschön: https://bitbucket.org/carli/toastengine ... at=default

(Hinweis: meine Unit kodiert die Stringlänge noch in die Zip-Daten ein, damit weniger alloziiert werden muss)

[Aliobaba]

Bitteschön: https://bitbucket.org/carli/toastengine ... at=default

Danke! ... aber der Zugang ist nur mit Passwort möglich

[hubblec4]

Wenn du es einfach haben willst, kannst du z.B. meinen guten alten MemoryDataPacker verwenden.

http://www.theo.ch/lazarus/uDataPacker.pas

Ich brauchte auch so einen Pack-Mechanismus und habe deinen uDataPacker genutzt.
Es ging alles sofort wie gewünscht.

Danke für diese feine Unit.

[theo]

Ich brauchte auch so einen Pack-Mechanismus und habe deinen uDataPacker genutzt.
Es ging alles sofort wie gewünscht.

Danke für diese feine Unit.

Freut mich, wenn dieser Code noch nützlich ist.
Der stammt noch aus Kylix Zeiten.