Free Plugin : RAR Plugin

[AMSWaves]

Originally Posted by Benjamin

Have a bad news for me. Sometimes(on win xp sp3 x86) when i try extract files program crash and not responding. On the win xp sp2 x64 it happen always :(



On previous version extract work normally.

please test it with this callback and see this work or not and report

Callback :

function callback(a, b, c, d)
	return true
end

Originally Posted by Benjamin

P.S. Rar.Close(); really removed? I still see it in actions.

oh yea it removed but i forget remove it from XML Actions

[Samio]

Thanks Dear AMSWaves.

[Benjamin]

On the XP x86 it work normally(At least any crash when i tried it). But always program not responding on x64.

Rar.Extract(_TempLaunchFolder .. "\\kolobok.tmp", {"*.*"}, _TempLaunchFolder .. "\\kolobok", true, false, "zalupa", RAR_OVERWRITE_NEVER, "callback");

function callback(a, b, c, d)
return true
end

[AMSWaves]

Originally Posted by Benjamin

On the XP x86 it work normally(At least any crash when i tried it). But always program not responding on x64.

please test old plugin in your windows 64 and say me it worked or not, i dont know maybe this version have some problem with X64.

[Benjamin]

Yes, it worked.

Originally Posted by AMSWaves

please test old plugin in your windows 64 and say me it worked or not

P.S. in new version: Interestingly that files are extracted from archive and are in destination folder.

[AMSWaves]

Originally Posted by Benjamin

Yes, it worked.




P.S. in new version: Interestingly that files are extracted from archive and are in destination folder.

so you want say plugin good worked on X64 but while extracting program not responded ?

[AMS7.5]

hi
first sorry for my english
waths problem ?

function test(Msg, Name, Percent, Size)
if Msg == "password" then
Folder.Rename(fol[x], path0.."\\$ "..name);
end
end

i want rename one folder if exm.rar is password protected !
but this script not work !
but if

function test(Msg, Name, Percent, Size)
if Msg == "password" then
Folder.Rename(fol[x], path0.."\\$ "..name);
end
end
Folder.Rename(fol[x], path0.."\\$ "..name);

my folder will rename !
how can i rename one folder if exm.rar is password protected ?

[kauster]

Hi All, first of all first pardon for my Englishman, I have a doubt with lso progresses of the amsrar, yoquiero use the dialogstatus not the object plugin, but never using the value percent it finishes the entire progress, this is the code that I have now:

function rar_Extract (Msg, Name, Percent, Size)
-- Progreso de extraccion de archivos
  if Msg == "process" then
 
   StatusDlg.Show(MB_ICONNONE, false);
   StatusDlg.SetMessage("Extrayendo...");
   StatusDlg.SetMeterRange(0, 100);
   StatusDlg.SetMeterPos(Percent);
   StatusDlg.SetStatusText(String.SplitPath(Name).Filename..String.SplitPath(Name).Extension.." : "..Math.Floor(Size/1024).." KB");
   

   

   return true;

Some suggestion?

[Benjamin]

StatusDlg.SetMeterRange(0, 100);

I think this line is not needed in callback function.

[kauster]

Originally Posted by Benjamin

StatusDlg.SetMeterRange(0, 100);

I think this line is not needed in callback function.

Thank you, already eliminate it but I continue with the same problem the progress it is closed before be completing

[rexzooly]

From what i can see your missing alot of your function this part seems on so it could be something else that is making the function brake.

[kauster]

Originally Posted by rexzooly

From what i can see your missing alot of your function this part seems on so it could be something else that is making the function brake.

Full code:

function rar_Extract (Msg, Name, Percent, Size)

  if Msg == "process" then
 
   StatusDlg.Show(MB_ICONNONE, false);
   StatusDlg.SetMessage("Extrayendo...");
      StatusDlg.SetMeterPos(Percent);
   StatusDlg.SetStatusText(String.SplitPath(Name).Filename..String.SplitPath(Name).Extension.." : "..Math.Floor(Size/1024).." KB");
   

   

   return true;
   

  elseif Msg == "volume" then
 	
 		result = Dialog.FileBrowse(true, "Locate Rar Part File", "'", "Rar Part Files(*part.rar)|*.part*.rar|", "", "", false, false)
		if result[1] == "CANCEL" then
			result[1] = ""
		end
		return result[1]


  elseif Msg == "password" then
 	
		return Dialog.PasswordInput("Contraseña", "El archivo esta protegigo, introduce la contraseña", MB_ICONQUESTION);
 
  end
end

if rar_File == nil then
  Dialog.Message("Error", "No has seleccionado un archivo .rar", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
 else

  sFolder = Dialog.FolderBrowse("Selecciona directorio donde extraer archivos", _DesktopFolder);
 
 if (sFolder ~= "CANCEL") then

  correcto = Rar.Extract(rar_File[1], {"*.*"}, sFolder, true, true, "", RAR_OVERWRITE_ALWAYS, "rar_Extract");
  
  if correcto == true then
   Dialog.Message("Extracción de archivos", "La Extracción se realizó correctamente.");
  else
   Dialog.Message("Extracción de archivos", "Ocurrió un problema en el proceso de copia.");
  end
 end
StatusDlg.SetMeterPos(0);
StatusDlg.Hide(); 
end

[rexzooly]

Does it still unrar the file?

[rexzooly]

this funtion seems little backwords to me.

I looked at it and i can see what your trying to do one funtion that will do it all call back and unrar and also if the details not there it will ask the user but its backwords.

can you show me a sinpit where you use the funtion so i can understand it little more.

[kauster]

Originally Posted by rexzooly

this funtion seems little backwords to me.

I looked at it and i can see what your trying to do one funtion that will do it all call back and unrar and also if the details not there it will ask the user but its backwords.

can you show me a sinpit where you use the funtion so i can understand it little more.

Sorry if I do not quite understand your answer, my English is low, do not understand what you mean sinpit but I guess you mean an example, if it is not so dimelo, I leave the APZ is what I'm doing haver if solved between all of the statusdialog, greetings