uses zlib compress Compiler normal but Run Error (SIGSEGV)
Original Reporter info from Mantis: greensoft
-
Reporter name:
Original Reporter info from Mantis: greensoft
- Reporter name:
Description:
LAZARUS Code
uses Zlib
procedure TForm1.Button7Click(Sender: TObject);
var
Spc,Xpl:pbytef;
Ax: array [0..51] of char ;
spl:uLong;
Dpl:puLongf ;
CI:longint;
begin
Ax:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
Spc:=@Ax;
spl:=52;
Dpl:=puLongf(compressBound(spl));
Ci:=compress(Xpl,Dpl,Spc,spl); //
{ Case Ci of
Z_OK : LabeledEdit3.Text := 'success;
Z_MEM_ERROR : LabeledEdit3.Text := 'not enough memory;
Z_BUF_ERROR : LabeledEdit3.Text := 'not enough room ;
else LabeledEdit3.Text := 'failure';
end; }
end;
Additional information:
my E-Mail : greensoft@139.com
Mantis conversion info:
- Mantis ID: 18310
- Version: 0.9.29 (SVN)