DGL • Thema anzeigen - Threads & Exception beim Programmende...

Threads & Exception beim Programmende...

Moderator: DGL-Team

Seite 1 von 1

[ 9 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

SonicFX

Betreff des Beitrags: Threads & Exception beim Programmende...

Verfasst: Mo Dez 19, 2005 18:46

DGL Member

Registriert: So Okt 23, 2005 08:45
Beiträge: 9
Wohnort: Dresden

Ich Bastel in meinem aktuellem Project das erste mal mit Threads rum, und Wenn ich darin Showmessage(...) oder Ein Selbst gebautes Message-Form verwende (einfach nur zeigen oder erstellen und zeigen und danach wieder zerstören... selber Effect) wenn ich dann das Programm schliesse bekomm ich eine Exception durch die TWinControl.DestroyWindowHandle... Kann mir jemand sagen woran das liegt und wie ich das verhinder?
Ich bin mir auch sehr sicher das alle Threads beim schliessen schon beendet sind (alle Threads tragen sich in eine TList ein und kurz vorm Terminieren wieder aus und beim schliessen des Hauptforms frag ich den Count der TList ab)

Ich hoffe Ihr könnt mir helfen, schonmal Danke an alle die es versuchen :wink:

_________________
MfG SonicFX

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Mo Dez 19, 2005 19:27

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

Ich glaube du solltest erst mal ein wenig ueber Threads nachlesen:
http://www.pergolesi.demon.co.uk/prog/threads/ToC.html

Du darfst nicht von verschiedenen Threads aus auf gleiche Resourcen zugreifen ohne dass das synchronisiert wird.

Nach oben

SonicFX

Betreff des Beitrags:

Verfasst: Mo Dez 19, 2005 20:02

DGL Member

Registriert: So Okt 23, 2005 08:45
Beiträge: 9
Wohnort: Dresden

Wenn ich aber wenn ich ein Form create is das doch nicht die selbe Resource...

Code:

procedure TMyThread.Meldung(Text: String);
var MF: TMeldungForm;
begin
     MF := TMeldungForm.Create(nil);
     try
        MF.Label1.Caption := Text;
        MF.ShowModal;
     finally
        MF.free;
        MF := nil;
     end;
end;

und ich denk nicht das das bei Showmessage anders ist...

[EDIT] Das mit den Threads funtzt alles einwandfrei (auch gemeinsam genutzte Variablen) ausser ich versuche aus dem Threads heraus eine Nachricht anzuzeigen...

_________________
MfG SonicFX

Nach oben

SonicFX

Betreff des Beitrags:

Verfasst: Mo Dez 19, 2005 20:12

DGL Member

Registriert: So Okt 23, 2005 08:45
Beiträge: 9
Wohnort: Dresden

Ich hab Obrigen code nochmal ausprobiert und festgestellt das eine andere Exception in dem fall aufgerufen wird.
TCanvas.RequiredState ruft eine EInvalidOperation.CreateRes auf... ich denk mal dies liegt am nil als Create Argument.

_________________
MfG SonicFX

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Di Dez 20, 2005 02:04

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

SonicFX hat geschrieben:

Wenn ich aber wenn ich ein Form create is das doch nicht die selbe Resource...

Und wo denkst du werden die Messages fuer diese Form behandelt?

SonicFX hat geschrieben:

[EDIT] Das mit den Threads funtzt alles einwandfrei (auch gemeinsam genutzte Variablen) ausser ich versuche aus dem Threads heraus eine Nachricht anzuzeigen...

Das ist mit Threads immer so, alles funtzt einwandfrei bis zum crash

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Dez 20, 2005 12:06

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Tokter etwas ähnliches gibt es bei uns im Wiki auch in Deutsch. Mag vielleicht nicht ganz so umfangreich sein aber ich denke doch mal ausreichend.

SonicFX: Wie Tokter schon sagte. Wenn du auch verschiedene Variablen oder Klassen zugreifst, dann solltest du dir genau überlegen was alles synchronisiert werden muss. Und vor allem wann etwas Synchronisiert werden muss. OnTerminate einer Threadklasse wird von Hause aus schon synchronisiert.

Fenster und Threads gehen grundsätzlich. Wenn du ein Fenster in einem neuen Thread erstellst werden die Nachrichten dann in diesem Thread abgearbeitet. Allerdings sobald du komplexere Fenster hast in denen auch noch mit Bitmaps (GDI) gearbeitet wird, dann gibt es nach einer Zeit Fehler. Aber prinzipiell sollte sowohl ein ShowMessage als auch ein TForm.Create funktionieren. Dabei spielt es auch keine Rolle ob du bei Create ein Nil übergeben hast oder nicht. Habe so etwas selber schon häufig genug gemacht. Allerdings wäre ich immer sehr vorsichtig damit. Und nach möglichkeit würde ich die Fenster aus Threads raus lassen.

Je nachdem was du vor hast würde es sich aber sowieso auch anbieten ein Event zu machen welches Synchronisiert aufgerufen wird und welches dann die Meldung anzeigt. Aber da stellt sich mir wie üblich die Frage was genau du damit vor hast?

Nach oben

SonicFX

Betreff des Beitrags:

Verfasst: Di Dez 20, 2005 13:28

DGL Member

Registriert: So Okt 23, 2005 08:45
Beiträge: 9
Wohnort: Dresden

Ich umgeh das Problem jetzt einfach indem ich Die Meldungen in eine Liste, eines Forms welches immer da ist, schreiben lass.
Da das eh nur für den User is damit ers Sieht und nicht damit arbeite sollte das weniger Problematisch sein.

_________________
MfG SonicFX

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Di Dez 20, 2005 14:59

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

Lossy eX hat geschrieben:

Fenster und Threads gehen grundsätzlich. Wenn du ein Fenster in einem neuen Thread erstellst werden die Nachrichten dann in diesem Thread abgearbeitet.

Diese Aussage stimmt nur wenn du das Fenster von Hand mittels Win32 API calls selbst erzeugt hast und dann auch deine eigene Message Loop in dem Thread durchlaeufst. Wenn du von TForm sprichst ist das falsch, erstens ist die VCL nicht thread safe und zweitens behandelt ein Thread von sich aus ueberhaubt keine Nachrichten. Wenn das bei dir nicht abgestuerzt ist dann ist das pures Glueck. Wenn du das sauber machen willst dann erstellst du alles VCL verwannte im Haupt Thread und alle anderen Thread greifen synchonisiert darauf zu wenn sie was angezeigt haben moechten.

Wenn du unbedingt Fenster in einem Thread erzeugen willst dann must du das so machen:
Hab den Beispiel code hier gefunden: http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_21595998.html

Code:

 
type
  TShowWndThread = class(TThread)
  private
    FMsg1: String;
  protected
    procedure Execute; override;
  public
    constructor Create(const Msg: String);
    destructor Destroy; override;
  end;
 
 
// / / / / / / / / / / / / /  / / /
 
 
implementation
 
{$R *.DFM}
 
 
const
ID_OKBut = 100;
 
var
aSelf: TShowWndThread;
hThreadWnd: THandle = 0;
 
function WndProc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall;
begin
case Msg of
  WM_DESTROY: PostQuitMessage(0);
  WM_COMMAND: if LOWORD(wParam) = ID_OKBUT then PostMessage(hWnd,WM_CLOSE,0,0);
  end;
Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;
 
constructor TShowWndThread.Create(const Msg: String);
begin
FreeOnTerminate := True;
inherited Create(False);
if aSelf <> nil then
  Raise Exception.Create('Create Failed - There can only be one instance of TAskThread');
aSelf := Self;
FMsg1 := Msg;
end;
 
destructor TShowWndThread.Destroy;
begin
aSelf := nil;
inherited Destroy;
end;
 
 
procedure TShowWndThread.Execute;
var
wClass:   TWndClass;
mainMsg: TMSG;
begin
ZeroMemory(@wClass, SizeOf(wClass));
 
with wClass do
  begin
  hInstance := sysInit.hInstance;
  hIcon := LoadIcon(0,IDI_QUESTION);
  lpfnWndProc := @WndProc;
  hbrBackground := COLOR_BTNFACE+1;
  lpszClassName := 'TMW Class';
  hCursor := LoadCursor(0,IDC_ARROW);
  end;
 
Windows.RegisterClass(wClass);
 
hThreadWnd := CreateWindowEX(0,wClass.lpszClassName,'No See',
          WS_SYSMENU or WS_DLGFRAME or WS_CAPTION or WS_VISIBLE,
          140,140,180,110,0,0,hInstance,nil);
 
CreateWindow('BUTTON', 'O K',
    WS_VISIBLE or WS_CHILD or BS_PUSHBUTTON or WS_TABSTOP,
    57,50,66,24,hThreadWnd,ID_OKBut,hInstance,nil);
 
SendMessage(CreateWindow('STATIC', PChar(FMsg1), WS_VISIBLE or WS_CHILD or SS_CENTER,
    1,1,173,46,hThreadWnd,46,hInstance,nil),
    WM_SETFONT,GetStockObject(ANSI_VAR_FONT),0);
 
 
// IMPORTANT
// below is the GetMessage loop for this thread, which does ONLY window message for this thread
// without it the CreateWindow( ) functions abouve are useless
// the ShowMessage( ) procedure does NOT place this in any thread
if hThreadWnd <> 0 then
  while GetMessage(mainMsg,0,0,0) do
    if not IsDialogMessage(hThreadWnd, mainMsg) then
      begin
      TranslateMessage(mainMsg);
      DispatchMessage(mainMsg);
      end;
end;
 
// / / / / / / / / / / / / / / / /
 
 
procedure TForm2.but_ThreadSendMsgClick(Sender: TObject);
begin // button click
TShowMsgThread.Create(Handle);
end;
 
initialization
 
finalization
PostMessage(hThreadWnd, WM_DESTROY, 0,0);
 
end.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Dez 20, 2005 15:35

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Ich weiß, dass die VCL nicht Threadsafe ist. Deswegen sagte ich ja auch einfache Fenster. Das war ein Erfahrungbericht und keine technische Sache. So lange die Fenster (TForm) einfach gehalten sind kannst du es durchaus in einem Thread erstellen. Auch wenn man es nach möglichkeit vermeiden sollte. Sich deswegen auf die WindowsAPI zu stürzen halte ich persönlich auch nicht unbedingt für sinnvoll. Das ist aber reine Gschmackssache und bisher habe ich es auch ohne hinbekommen. Das meist in dem man alleine schon die Struktur der Anwendung verändert hat.

Nach oben

Seite 1 von 1

[ 9 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.