event log, thread sin parar.

[Kipow]

Mensaje en delphi.

Thread Start: Thread ID 8408 Process Kp_Update.exe (7284)
Thread Start: Thread ID Process Kp_Update.exe (7284)
Thread Start: Thread ID Process Kp_Update.exe (7284)
Thread Exit: Thread ID 8408 Process Kp_Update.exe (7284)

este mensaje no para de salir en el event log del IDE y por ende la aplicacion esta paralizada. alguien tiene idea, es una aplicacion bien sencilla y no utilizo thread creados por mi.

[[duilioisola]]

¿Y qué es lo que hace esa aplicación?
¿Qué componentes utilizas?
¿Tu aplicación se llama Kp_Update.exe?
¿Utiliza algún componente que pueda tener Threads?
¿Hay algún punto específico de la aplicación a parter del cual sale este error?
Postea código o parte de el donde se vea qué hace tu aplicación y genere errores

[Kipow]

La aplicacion se llama asi kp_update.exe
Componentes nada del otro mundo, buttons un tlist una progressbar y los zipmaster.

Código Delphi [-]
procedure TdmUpdate.DescomprimirDatos;
begin
   ZipMaster.DLLDirectory := ExtractFilename(Archivo);
   ZipMaster.ZipFileName := ExtractFilename(Archivo);
   CreateDir('C:\WINDOWS\TEMP\'+ExtractFilename(Archivo));
   ZipMaster.ExtrBaseDir := 'C:\WINDOWS\TEMP\'+ExtractFilename(Archivo);
   ZipMaster.Password := 'password';
    try
      ZipMaster.Extract;
   except
      ShowMessage( 'Error en la extraccion de datos');
   end;
end;

Código Delphi [-]
if FileOpenDialog.Execute then
      begin
         cxListBox.Items.Add('Descomprimiendo Datos');
         dmUpdate.Archivo := FileOpenDialog.FileName;
         DescomprimirDatos;
         cxListBox.Items.Add('Verificando Actualizacion Descargada');

Segun prueba que estoy haciendo al parecer es sl componente zipmaster el que tiene ese comportamiento, lo raro es que si descomprime pero se queda como en standby. Seguire buscando.

Lo raro es que aun despues de cerrar la aplicacion (forzadamente) el IDE se queda como esperando algo.

saludos.

[[duilioisola]]

No conozco el componente (nunca lo he usado), pero me resulta raro lo siguiente:

Creo que en vez de ExtractFilename deberías usar ExtractFilePath para las rutas
(DLLDirectory, CreateDir y ExtrBaseDir)

Código Delphi [-]
   ...
   //DLLDirectory será el nombre de Archivo
   ZipMaster.DLLDirectory := ExtractFilename(Archivo);
   //ZipFileName TAMBIEN será el nombre de Archivo
   ZipMaster.ZipFileName := ExtractFilename(Archivo);
   //Creas un directorio que se llama C:\WINDOWS\TEMP\NombreDeArchivo
   CreateDir('C:\WINDOWS\TEMP\'+ExtractFilename(Archivo));
   //Utilizas un directorio que se llama C:\WINDOWS\TEMP\NombreDeArchivo
   ZipMaster.ExtrBaseDir := 'C:\WINDOWS\TEMP\'+ExtractFilename(Archivo);
   ...

Si Archivo='ARCHIVO.TXT';

Código Delphi [-]
   ...
   ZipMaster.DLLDirectory := 'ARCHIVO.TXT';
   ZipMaster.ZipFileName := 'ARCHIVO.TXT';
   CreateDir('C:\WINDOWS\TEMP\ARCHIVO.TXT');
   ZipMaster.ExtrBaseDir := 'C:\WINDOWS\TEMP\ARCHIVO.TXT';
   ...

[Kipow]

En archivo viene la ruta completa

Archivo = 'c:\ruta\archivo.txt';

con ExtractFileName(Archivo) obtengo 'Archivo.Txt';

Saludos

[[duilioisola]]

¿Estás seguro de este parámetro?

Código Delphi [-]
ZipMaster.DLLDirectory := ExtractFilename(Archivo);

Parece ser la ruta a una DLL.

[Kipow]

Empezado por duilioisola

¿Estás seguro de este parámetro?
Código Delphi [-]ZipMaster.DLLDirectory := ExtractFilename(Archivo);

Parece ser la ruta a una DLL.

Sip es que la carpeta se llama igual que el archivo. bueno termine haciendo todo con los componentes Abbrevia tambien open pero me quedo con la duda del zipmaster.

Siempre gracias.