Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-05-2020
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Mira creo que Windows 10 gestiona los hilos de manera distinta porque si lo ejecuto en XP va bien pero si lo ejecuto en Windows 10 no va bien y ademas de repente me ha dejado de funcionar CreateProcess, OpenProcess, y fopen que los uso para abrir el archivo para depurarlo, atachearlo, y mirar su md5 respectivamente.
Ademas me he dado cuenta de que al atachear al proceso en xp tengo el control del mismo entrando el el bucle del hilo pero de los breakponts nada de nada.
Ademas ahora el antivirus que trae Windows 10 me lo reconoce como un virus "Trojan:Script/Conteban.A!ml" y de troyano no tiene nada jajaja. De locos vamos.
Os pongo el proyecto con una pequeña aplicación que lo unico que hace es mostrar un MessageBox al darle al botón y la idea es poner un Breakpoint en MessageBoxA y cuando pare mostrar yo un mensaje pero no para

https://mega.nz/file/Ukt0hSjZ#IKeNQt...6_XxZOLnthbibc
El hilo no lo creo suspendido pero se ve que tendrá menos prisa que el resto en Windows 10 porque tengo que andar poniendo pausas por doquier y ni así se espabila.
Responder Con Cita
  #2  
Antiguo 09-05-2020
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.211
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
No he visto ese código pero me inclino a pensar que estás usando variables compartidas entre threads lo que los convierte en inestables. LAs APIs CreateProcess, OpenProcess, y fopen son thread safe pero eso no implica que si compartes variables, provoquen el fallo. En el caso de abrir ficheros en modo no compartido está claro que distintos threads no los podarán tener abiertos al mismo tiempo. Si compartes los Handles, un thread pisa a otro. La comunicación d¡con a VCL no es ThreadSafe con lo que debes usar Synchronize. Tienes que ser muy cuidadoso y usar semáforos para sincronizarlo todo bien.


Saludos.
Responder Con Cita
  #3  
Antiguo 11-05-2020
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
A ver si me puedes ayudar, el caso es que solo hay dos hilos, el principal y el del debuger. El principal crea al hilo del debuger y posteriormente llama a métodos del hilo del debuger los cuales necesitan acceder a unas estructuras y variables que se crean al inicio del execute del hilo con lo que se da a veces el caso de que el hilo principal va más rápido que el secundario y accede a las variables sin haberse creado antes en el hilo secundario. He estado buscando la manera de solucionar eso y no me sirve waitfor porque espera a que acabe el hilo y en este caso el secundario contiene el bucle de eventos del debuger con lo que no acabará. La solución que encontré es usar TEvent y usarlo en la zona de código que quiero que se ejecute en el hilo secundario para que asigne la memoria a las variables y que una vez hecho eso ya continúe el hilo principal pero solo he encontrado esto en español: https://elvex.ugr.es/decsai/builder/...rdination.html
Y no tengo nada claro como hacerlo.
Responder Con Cita
  #4  
Antiguo 11-05-2020
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.211
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Pero quizás tengas que preguntarte primero si en realidad te hacen falta dos hilos.


En caso afirmativo, una solución rápida es que las variables se creen en la clase TDebugger y se asignen en execute. Las variables que necesita leer el hilo principal siempre deben leerse con un método de TDebuger y a ser posible no deben ser asignadas mientras TDebugger se ejecuta. Puedes saber si la variable leída es válida dándole determinado valor en caso de no ser válido. Por ejemplo, puede ser un puntero inicializado a NULL en cuyo caso no trataras de leerlo, pero puedes hacer un bucle (con un sleep corto) hasta tener un valor correcto. También puedes controlarlas con otra variable que se pone a true cuando el valor es válido...

WaitForSingleObject puede ser usado con otros tipos de Handle que no tienen que ser el Thread, puedes usar un Mutex o un Event. Estos también te pueden servir para poner el hilo a la espera. Todo depende de tu diseño particular.


Saludos.
Responder Con Cita
  #5  
Antiguo 11-05-2020
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
creo que TEvent es lo mejor pero no se como se usa. Tengo esto.
En el archivo TDebuger.h:
Código PHP:
TEvent *EventoVariablesArmadas; 
En el TDebuger.cpp:
Código PHP:
bool TDebugger::InitDebug(AnsiString Path, int mode, AnsiString WName, DWORD PID)
{
        ...
        ... 
    
EventoVariablesArmadas = new TEvent(false);
    return 
retval;
} 
Código PHP:
void TDebugger::LoopDebug(void)
{
        
HiloDepuracion = new(std::nothrow) THiloDebugger(false,Mode,PathFile,NameWindow,pid,this); // no me gusta no hay control de PathFile en este método.
        
EventoVariablesArmadas->WaitFor(INFINITE);
        if(
HiloDepuracion == NULL)
        {
        ...
                ...
} 
En el THiloDebuger.cpp:
Código PHP:
void __fastcall THiloDebugger::Execute()
{
    
DEBUG_EVENT DebugEv;
        
HANDLE CurrentExceptionThread;
        
DWORD dwContinueStatus;
        
int Error;
        
TDll *ItemDLL;
        
bool salir=false;

        
ListaBPs = new TList;
        
ListaDlls = new TList;
        
ListaThreads = new TList;

        
//Synchronize(OnInitLoopDebugThread); //Usaremos este evento para inizialización de variables en la clase usuario si se requiere.

        
si.cb = sizeof(STARTUPINFO);
        
GetStartupInfo(&si);

        
// El proceso se tiene que crear en la misma función donde está el hilo del depurador sino no vale
        
switch(Mode){
                case 
MODE_NORMAL:
                        
CreateProcess(PathFile.c_str(),NULL, NULL, NULL, FALSE, DEBUG_PROCESS | DEBUG_ONLY_THIS_PROCESS, NULL, NULL, &si, &pi);
                        break;
                case 
MODE_ATACH_BY_WINDOW_NAME:
                        if(!
AtachProcessByNameWindow(WindowName.c_str(),Error)){
                                return;
                        }else{
                                
//Aqui Obtengo informacion del proceso
                                
EnumerarModulos( pi.dwProcessId );
                                
SystemEntryPoint=0;
                        }
                        break;
                case 
MODE_ATACH_BY_PID:
                        if(!
AtachProcessById(pid,Error)){
                                return;
                        }else{
                                
//Aqui Obtengo informacion del proceso
                                
EnumerarModulos( pi.dwProcessId );
                                
SystemEntryPoint=0;
                        }
                        break;
                default:
                        return;
        }

        
InfoProcess.hProcess = pi.hProcess;
        
InfoProcess.ProcessID = pi.dwProcessId;

        
EventoVariablesArmadas->SetEvent();
               ...
               ...
        if(
EventoVariablesArmadas != NULL)
            
delete EventoVariablesArmadas;
} 
No se porque al llamar al constructor del TEvento me da NULL pero si en vez de declararlo en TDebugger.h lo hag en TDebugger.cpp ahi si me asigna bien pero claro, no puedo acceder desde THiloDebugger.
Responder Con Cita
  #6  
Antiguo 11-05-2020
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.211
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
SetEvent lo señaliza de forma que WaitForSingleObject(hEvent, INFINITE) deja de esperar. por ejemplo.
Si usas TEvent, WaitFor haría lo mismo.


Es una forma de hacer esperar hasta que algo señaliza el evento.


Saludos.
Responder Con Cita
  #7  
Antiguo 12-05-2020
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Si, eso ya lo vi pero el caso es que al ejecutar el constructor me da NULL si lo declaró en TDebugger.h y me da un valor diferente de NULL si lo hago en TDebugger.cpp. No entiendo porque pasa eso sí Tdebugger.h se incluye en TDebugger.cpp.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas para acceder a componenente de un Form desde un Hilo NEG1414 C++ Builder 3 05-02-2015 11:19:10
Problemas con ejecución de hilo GerTorresM OOP 3 23-10-2014 19:01:12
Problemas con un Hilo aguml C++ Builder 10 08-03-2014 00:20:58
cuando llamo ejecutar un hilo dentro del proceso del hilo no lo hace robertosc Varios 1 14-08-2007 22:11:09


La franja horaria es GMT +2. Ahora son las 16:27:32.


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