× Components and Libraries for Graphics 3D Development, discussions, problems and suggestions

Question Another 'External:SIGSEGV' in ArchiveEdit utility

  • azrael11
  • azrael11's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
More
6 years 8 months ago - 6 years 8 months ago #5559 by azrael11
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...

Free minds... with focus in future...
Last edit: 6 years 8 months ago by azrael11.

Please Log in or Create an account to join the conversation.