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

Question Another 'External:SIGSEGV' in ArchiveEdit utility

Start
Prev
1
Next
End

azrael11
Topic Author
Offline
Junior Member

8 years 3 weeks ago - 8 years 3 weeks ago #5559 by azrael11

Another 'External:SIGSEGV' in ArchiveEdit utility was created 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: 8 years 3 weeks ago by azrael11.

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

Start
Prev
1
Next
End