Ich mache folgendes :
Delphi-Quellcode:
type
TData=Array[0..12] of string;
TInfo=Array of TData;
var Info:TInfo;
PROCEDURE CompressInfo;
var i,j:integer; s:string; p:pointer; n:cardinal;
begin
for i:=0 to High(Info) do begin
s:=s+Info[i].data[Low(data)];
for j:=Low(TData)+1 to High(TData) do s:=s+#9+Info[i].data[j];
s:=s+#13#10;
end;
CompressBuf(@s[1],Length(s)*2,p,n);
...
FreeMem(p);
end;
... Und bekomme die Fehlermeldung :
Im Projekt xx ist eine
Exception der Klasse ECompressionException mit der Meldung '
ZLib-Fehler (-6)' aufgetreten
Was mache ich da falsch?
Kann es am Datenvolumen (4.5 MB) liegen?