Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   event log, thread sin parar. (https://www.clubdelphi.com/foros/showthread.php?t=63963)

Kipow 11-03-2009 02:33:13

event log, thread sin parar.
 
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 11-03-2009 09:21:21

¿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 11-03-2009 11:49:57

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 11-03-2009 15:26:11

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 11-03-2009 21:28:32

En archivo viene la ruta completa

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

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

Saludos

duilioisola 12-03-2009 14:12:46

¿Estás seguro de este parámetro?
Código Delphi [-]
ZipMaster.DLLDirectory := ExtractFilename(Archivo);
Parece ser la ruta a una DLL.

Kipow 13-03-2009 09:40:57

Cita:

Empezado por duilioisola (Mensaje 341179)
¿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.


La franja horaria es GMT +2. Ahora son las 07:24:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi