OpenDialog Problem

[himitsu]

Auch das ShowMessage gehört in den Haupt-/VCL-Thread rein.

Deine CS sichert ja nur diesen einen Aufruf ab, so daß man Diesen nur einmal gleichzeitig ausführen kann,
aber die VCL bekommt davon garnichts mit und wird demnach auch nicht gesperrt.


Und zum Thema Resourcen-Schutzlöcke solltest du dir dringend nochmal so Einiges anlesen.
Rate mal was passiert, wenn es zwischen Enter und Leave knallt (z.B. im RestoreFromFile) ... alles (diese CS) blockiert ... für immer.

[youuu]

Ah ok danke, dann bau ich das mal um

[himitsu]

Delphi-Quellcode:

...
TThread.Synchronize(nil, procedure
  begin
    try
      if frm_Start.OpenDialog.Execute then
        frm_Start.UniDump.RestoreFromFile(frm_Start.OpenDialog.Filename);
    except
      on E: Exception do
        ShowMessage(E.Message);
    end; 
  end;
...



...
TThread.Synchronize(nil, procedure
  begin
    doit := if frm_Start.OpenDialog.Execute;
    filename := frm_Start.OpenDialog.Filename;
  end;
if doit then
  try
    RestoreFromFile(filename);
  except
    on E: Exception do
      TThread.Synchronize(nil, procedure
        begin
          ShowException(E, nil);
        end;
  end;
...

bzw. wenn der Code in einem TThread-Execute steht, dann direkt

Delphi-Quellcode:

Synchronize(procedure
  begin

  end;

Sowas sollte man nur für kurze Funktionen nutzen, aber dafür kann man, bei diesen anonymen Methoden, auch lokale Variablen übergeben.