CreateThread Win7

[EWeiss]

Seltsames problem

Beim erstellen eines Threads beendet meine Anwendung ohne eine Meldung auszugeben innerhalb der IDE beim debuggen.
Stelle ich den Kompatibilitätsmodus der bds.exe auf WinXp servp.3 dann funktioniert alles so wie gewohnt.

Kennt das jemand?

gruss

[daywalker9]

Wie siehts bei BeginThread aus?

Edit: Mal schnell was gebastelt, funktioniert bei mir auch Win7 im Debugger.

[EWeiss]

Zitat von daywalker9:

Wie siehts bei BeginThread aus?

Edit: Mal schnell was gebastelt, funktioniert bei mir auch Win7 im Debugger.

Man achte auf meine Delphi Version
BeginThread funktioniert nicht so wie mit CreateThread

Delphi-Quellcode:

ThreadHandle := CreateThread(nil, 0, @BassVisNewThread, pointer(ModuleNum),
                             0, DriveThreadId);

Mit eingestellten Kompatibilitätsmodus geht es ja aber dann ist mein Window = Xp wenn ich das OS gegenprüfen will.

Also sobald ich in der EXE ein Plugin oder aber nur einen Ordner mit Dateien öffnen will
wird das Debuggen beendet ohne das die IDE abstürzt oder irgendeine Meldung kommt.

Da stellt sich die Frage... Ob es überghaupt mit dem Thread zu tun hat.
Beendet ja schon wie gesagt bei der auswahl eines Ordners. bzw. beim Klick auf meinem Add-Button.
Hmmm ...

gruss

[Luckie]

Zitat von EWeiss:

BeginThread funktioniert nicht so wie mit CreateThread

Falsch. BeginThread ruft auch nur unter anderem CreateThread. Setzt habe noch IsMultiThread auf True, um den Heap Threadsafe zu machen:

Delphi-Quellcode:

function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord;
  ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord;
  var ThreadId: LongWord): Integer;
var
  P: PThreadRec;
begin
  if Assigned(SystemThreadFuncProc) then
    P := PThreadRec(SystemThreadFuncProc(ThreadFunc, Parameter))
  else
  begin
    New(P);
    P.Func := ThreadFunc;
    P.Parameter := Parameter;
  end;
  IsMultiThread := TRUE;
  Result := CreateThread(SecurityAttributes, StackSize, @ThreadWrapper, P,
    CreationFlags, ThreadID);
end;

[EWeiss]

Und wo ist PThreadRec Definiert so das ich das mal testen kann?

gruss

[Luckie]

In der gleiche Unit.Wenn du die Sourcen hast, sollte das schnell zu finden sein.

[EWeiss]

Zitat von Luckie:

In der gleiche Unit.Wenn du die Sourcen hast, sollte das schnell zu finden sein.

Sorry hab den Source nicht von dem Wrapper..

gruss

[Luckie]

Bei der Architect Version sind keine Quellen dabei?

[EWeiss]

Zitat von Luckie:

Bei der Architect Version sind keine Quellen dabei?

Jetzt läßt du mich aber Raten
Ich habe keine Samples installiert wenn du das meinst.

Ansonsten habe ich es in der System.pas gefunden.
Aber die muss doch nicht extra eingebunden werden oder?

Wird auf jedenfall bei mir nicht erkannt.

gruss

[Luckie]

Delphi-Quellcode:

type
  PThreadRec = ^TThreadRec;
  TThreadRec = record
    {
      WARNING: Don't change these fields without also changing them in
      the C++ RTL : winrtl/source/vcl/crtlvcl.cpp
    }
    Func: TThreadFunc;
    Parameter: Pointer;
  end;

Strg drücken und auf den Datentpy klicken. Funktioniert auch bei BeginThread.