Che cos'è TExternalThread? "Impossibile terminare un thread creato esternamente" quando si termina un timer basato su thread

Question

Ciò accade la metà del tempo in cui si chiude la mia applicazione in cui ho inserito un TLMDHiTimer sul mio modulo in fase di progettazione, Abilitato su true. Nel mio evento OnFormClose, chiamo MyLMDHiTimer.Enabled: = false. Quando viene chiamato, a volte (circa la metà delle volte) ottengo questa eccezione.

Ho eseguito il debug e sono entrato nella chiamata e ho rilevato che è la riga 246 in LMDTimer.pas a dare questo errore.

FThread.Terminate; 

Sto usando l'ultima versione di LMDTools. Ho fatto una reinstallazione completa degli strumenti LMD prima del fine settimana e ho rimosso e aggiunto nuovamente il componente al modulo correttamente.

Da quello che ho trovato, questo ha qualcosa a che fare con TExternalThread, ma non c'è documentazione su di esso da Embarcadero e non ho trovato nulla che faccia riferimento al codice sorgente LMDTools.

Uso completamente aggiornato RAD Studio 2010, Delphi 2010.

Ciò che mi sconvolge è che non c'è nessuna documentazione di sorta. Google yeilds un risultato di che effettivamente ne parla, in cui qualcuno dice che l'errore è causato dal tentativo di terminare un TExternalThread. Ma guardando il codice sorgente di questo LMDHiTimer, non una volta mira a fare altro che creare un TThread regolare. Il risultato di un google che ho trovato, Thread: Cannot terminate an externally created thread? su Embarcadero menziona utilizzando GetCurrentThread() e GetCurrentThreadId() per ottenere i dati necessari per collegarsi a un thread esistente, ma TLMDHiTimer non fa nulla del genere. Crea semplicemente il proprio discendente TThread con il proprio costruttore Create() (sovrascritto, ovviamente, e le chiamate ereditate all'inizio del costruttore)

Quindi ... Che diavolo è questo TExternalThread? Qualcun altro si imbatte in questo tipo di eccezione? E forse hai trovato una soluzione o una soluzione? Ho chiesto quasi la stessa identica domanda al supporto di LMDTools, ma non può far male chiedere in più posti.

Grazie in anticipo per qualsiasi assistenza.

Answer 1

TExternalThread avvolge una discussione che la RTL Delphi non ha creato. Potrebbe rappresentare un thread che appartiene al pool di thread del sistema operativo o forse un thread creato da un'altra DLL nel programma. Poiché il thread sta eseguendo il codice che non appartiene alla classe TExternalThread associata, il metodo Terminate non ha modo di notificare al thread che si desidera interrompere.

Un oggetto TThread Delphi imposterà la proprietà Terminated su True e il metodo Execute che viene sottoposto a override dovrebbe controllare periodicamente tale proprietà, ma poiché questo thread non è un codice Delphi, non esiste alcun metodo Execute e qualsiasi La proprietà terminata è entrata in vigore solo dopo il il codice del thread era già stato scritto altrove (non eseguendo l'override di Execute).

Il filo newsgroup suggerisce quello che sta probabilmente accadendo nel vostro caso:

memoria

... hai corrotto che causa il membro TThread.FExternalThread per diventare un valore diverso da zero.

Potrebbe essere dovuto a un bug nella libreria dei componenti, oppure potrebbe essere dovuto a un bug nel proprio codice.È possibile utilizzare i punti di interruzione del debugger per provare a scoprirlo. Imposta un punto di interruzione nel costruttore del thread del timer. Quando il programma si interrompe, utilizzare il comando "Aggiungi punto di interruzione" nel menu Esegui per aggiungere un punto di interruzione dati utilizzando l'indirizzo del campo FExternalThread del nuovo oggetto. Successivamente, se il valore di quel campo cambia, il debugger si fermerà e ti mostrerà cosa lo ha cambiato. (Il punto di interruzione dei dati verrà ripristinato ogni volta che si esegue il programma poiché l'IDE presuppone che l'oggetto non venga assegnato ogni volta allo stesso indirizzo.)

Answer 2

Il problema è che FExternalThread non è inizializzato su falso per impostazione predefinita quando si Stai creando l'istanza TThread. Quindi non puoi garantire quale valore si trovi in ​​questa variabile (a volte può essere vero, a volte falso).

Answer 3

C'è qualche possibilità che il codice stia provando a terminare un TThread già distrutto? Questo potrebbe facilmente accadere se hai impostato FreeOnTerminate.

Ho notato il tuo post durante la diagnosi di un errore simile (contrario?), "Impossibile chiamare Start su un thread in esecuzione o sospeso" nel costruttore di un componente inserito nel modulo principale. Quando ho rimosso Start(), quell'errore è stato sostituito da errori più eloquenti, ad es. "operazione puntatore non valida" e "violazione di accesso", nel distruttore corrispondente. Il componente stava cercando di manipolare il suo oggetto TThread dopo che TThread era stato liberato, lasciando così le cose alla legge di Murphy. Quando ho risolto ciò, sono stato in grado di sostituire la chiamata Start() senza l'errore "Impossibile richiamare l'avvio".

Per analogia, il problema potrebbe essere che l'indirizzo di FExternalThread era stato riciclato e scombussolato prima della chiamata distruttore/Terminare? Nel nostro caso, abbiamo implementato un buggy dello Singleton Instance Pattern; ma ancora, FreeOnTerminate sembra anche un probabile sospettato.

[FYI: Sto usando sto usando ++ C sotto RAD Studio XE]

Answer 4

Questo stesso problema mi ha spinto noci per diversi mesi. Ho approfondito il mio codice thread finchè non sono diventato quasi cieco.

Infine ho acquistato un buon sistema di eccezioni (EurekaLog) e mi ha indirizzato direttamente a un componente di terze parti che causava il problema. Questo componente, TAbLED, ha una proprietà per impostarlo a lampeggiare con una sorta di thread di temporizzazione. L'impostazione di non flash ha risolto il problema.