- Posts: 59
- Thank you received: 0
- Forum
- CodeTyphon Studio
- CodeTyphon Studio Components and Libraries
- Graphics 3D Development
- Another 'External:SIGSEGV' in ArchiveEdit utility
×
Components and Libraries for Graphics 3D Development, discussions, problems and suggestions
Question Another 'External:SIGSEGV' in ArchiveEdit utility
- azrael11
-
Topic Author
- Offline
- Junior Member
-
Less
More
6 years 8 months ago - 6 years 8 months ago #5559
by azrael11
Free minds... with focus in future...
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
And here is in the AddFiles procedure
Thank you...
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.