ich hatte die Tage mit Threads schon Probleme und da gabs hier ne Disskussion: http://www.c-plusplus.net/forum/viewtopic.php?t=90808

Nun habe ich meine Threads umgestellt, das FreeOnTerminate = false ist.

Meine Threads werden weiterhin so erzeugt:

TMyThread *thread = new TMyThread(true); 
MyThreadList->Add(thread);

Da ich die Threads nun ja selbst freigeben muss, habe ich mein OnForm Destroy entsprechend angepasst:

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   for (int i = 0; i < MyThreadList->Count; i++)
   {
      delete (TMyThread*)MyThreadList->Items[i];
   }

   delete MyThreadList;
}

Beim beenden der Anwednung, kommt nun wieder eine Zugriffverletzung. Es wird kein Thread vorzeitig beendet!!!

Nachdem Fehler findet sich der sich in Execute Funktion des Threads eine Markierung. Kann es sein, dass der Thread erst durchlaufen muss? Ich will den Thread aber sofort beenden.

Mache ich da noch was falsch?

Kevin

MyThread->Terminate();
MyThread = NULL;

funtzt soweit, nur das = NULL; setzen geht nicht, das habe ich erstmal weggelassen. Aber wird so auch wirklich der ganze Speicher wieder freigegeben?

Immerhin wird der Thread ja nicht mittels delete gelöscht.

Kevin

...Aber wird so auch wirklich der ganze Speicher wieder freigegeben? Immerhin wird der Thread ja nicht mittels delete gelöscht.
Kevin

IMHO, ja!

MyThread->WaitFor(); //Wartet auf Beendigung des Threads
delete MyThread;

Setzt natürlich voraus das der Thread beendet wird wenn man Terminate() aufruft.

z.B. Mittels einer while(!Terminated) schleife

ich habe in mein FormDestroy nun dies hier stehen:

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   for (int i = 0; i < MyThreadList->Count; i++)
   {
      ((TMyThread*)MyThreadList->Items[i])->Terminate();
      ((TMyThread*)MyThreadList->Items[i])->WaitFor();
      delete ((TMyThread*)MyThreadList->Items[i]);
   }

   delete MyThreadList;
}

Hier ist das Problem, dass die Anwendung zwar beendet wird, weil sie nicht mehr zu sehen ist, aber anstelle des grünen Pfeils zum starten der Awendung im BCB wird immer noch der blaue Pfeil angezeigt. Anscheinend, werden die Threads nicht sofort beendet. Ich möchte diese aber sofort beenden und die Anwendung verlassen.

Kevin

Du kannst auch mal versuchen zuerst alle Threads zu 'suspenden' und dann gezielt einzelne weiter laufen zu lassen und zu terminieren:

Aus der Form::CloseQuery() in einem meiner Projekte:

bool DoClose = true;

if (MyThreads)
{
	try
	{
		TList* pList = MyThreads->LockList();
		if (pList->Count)
		{
			if (Application->MessageBoxA("Abbrechen?", "Abbruchanforderung", MB_YESNO) == IDYES)
			{
				for (int i = 0; i < pList->Count; i++)
				{
					TTestThread* pThread = (TTestThread*) pList->Items[i];
					if (!pThread->Suspended)
						pThread->Suspend();
				}
				for (int i = 0; i < pList->Count; i++)
				{
					TTestThread* pThread = (TTestThread*) pList->Items[i];
					pThread->Priority = tpNormal;
					if (pThread->Suspended)
						pThread->Resume();
					pThread->Terminate();
					Application->ProcessMessages();
					pThread->WaitFor();
				}
				DoClose = true;
			}
			else
			{
				DoClose = false;
			}
		}
		else
		{
			DoClose = true;
		}
	}
	__finally
	{
		MyThreads->UnlockList();
	}
}

CanClose = DoClose;

mein Thread Execute sieht so aus:

void __fastcall TMyThread::Execute()
{
   AnsiString back;

   while(!Terminated)
   {
      back = GetValues(para);

      if (back == "ok")
      {
         Synchronize(AddValue);
      }
      else
      {
         Synchronize(AddError);
      }

      // Bis zum nächsten Seitenwechsel abwarten
      Sleep(int(random(8)+2)*1000);
   }
}

Ich führe permanent Berechnungen durch und speicher die in Variablen meines Formes.

Deinen Code kann ich nicht ganz nachvollziehen, erst pausierst du alle Threads und in der nächsten Schleife hast du wieder:

if (pThread->Suspended)
pThread->Resume();

Wieso nicht die Threads direkt nach dem pausieren beenden?

Kevin

Diese Vorgehensweise soll nur dafür sorgen, dass die Threads keine unnötige Rechenzeit mehr verbrauchen und der Thread, der gerade beendet werden soll, die maximal verfügbare Rechenzeit erhält.

egal was ich mache, ich bekomme immer irgendwelche zugriffsverletzungen. Also immer wenn ich WaitFor mache kommt immer eine. Ich verzweifle langsam echt. Kann es vielleicht auch an meinem Execute liegen?

Oder das irgendwie das Form vor den Threads beendet wird? Habe echt keine Ahnung mehr.

Kevin

// Bis zum nächsten Seitenwechsel abwarten 
     Sleep(int(random(8)+2)*1000);

zuunterst in Deiner TMyThread::Execute() gar nicht ausgeführt, wenn Du das Formular zu machst und so das Programm terminierst. Kann sein, dass ich mich täusche und das nur dann der Fall ist, wenn man den Thread selbst gar nie explizit beendet. Aber ich erinnere mich, dass ich mal einen Breakpoint dort hinsetzte und der nie angesprungen wurde obschon das Programm korrekt beendet wurde... nur so als Hinweis...

- Adrian

wie kann ich denn dann ein Sleep in der Execute Funktion reinmachen, also ein Sleep der geht? Vielleicht mit ein Syntesize?

Kevin

Gib mir mal Deine E-Mail-Adresse.

warum schreibst du es nicht einfach hier, damit es auch andere nutzen können?