CompressBuf, DeCompressBuf unter D2010?

[sko1]

Hallo,

folgendes lässt sich nicht compilieren:

Code:

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;

beide CompressBuf und DeCompressBuf sind, trotz eingebundener ZLib unbekannt!

Hat jemand einen Tip für mich?

Ciao
Stefan

[p80286]

Ich kenne die Zlib nicht aber ich vermute, daß sowohl InpBuf als auch OutBuf ein ^Array of Byte sein sollten.
Ausserdem solltest Du length(Input)*sizeof(char) falls Input nicht explizit ein Ansi- oder Shortstring ist.

Gruß
K-H

[ChrisE]

Hallo,

laut DocWiki von Emba gab es die Methoden auch in der VCL von Delphi 2010 nicht...
http://docwiki.embarcadero.com/VCL/2010/en/ZLib
Das wären da eher die ZCompress...-Methoden

Auch in Tokyo 10.2 sieht es da nicht anders aus (nur mehr Inhalt in der System.ZLib ).

Gruß, Chris

[sko1]

Danke für die Hinweise, mit ZCompressStr / ZDecompressStr funktioniert es wie erwartet...

Ciao
Stefan

[KodeZwerg]

In Tokyo finde ich zumindest beide Begriffe in dieser Datei "IdZLib.pas"