I Build the ArchiveEdit utility in CodeOcean examples of GLScene...
Build ok...
Create the zlib file ok....
But
When i try to Add a folder or a file inside then i get a 'External:SIGSEGV'
Here is the problem... in create folder
procedure TForm1.Createfolder1Click(Sender: TObject);
var
F: TMemoryStream;
begin
if not Assigned(Archive) then Exit;
if FDialog.ShowModal=mrOk then begin
F := TMemoryStream.Create;
try
Archive.AddFromStream('temp.tmp', CurPath+FDialog.Edit1.Text+'/', F); // <--- Something with path... ...
finally
F.Free;
end;
TreeViewRefresh;
end;
end;
And here is in the AddFiles procedure
procedure TForm1.Addfiles1Click(Sender: TObject);
var
i: integer;
begin
if not Assigned(Archive) then Exit;
OpenDialog1.DefaultExt:='';
OpenDialog1.Filter:='All Files|*.*';
OpenDialog1.Options:=OpenDialog1.Options+[ofAllowMultiSelect];
if OpenDialog1.Execute then begin
for i:=0 to OpenDialog1.Files.Count-1 do
if ExtractFileName(OpenDialog1.Files[i])<>'' then
Archive.AddFromFile(OpenDialog1.Files[i],CurPath); //<-- here when it tries to add the file in archive..
TreeViewRefresh;
end;
end;
Thank you...
