Ist ServiceExecute im Hauptthread

[QuickAndDirty]

Edit: Delphi Version ist nicht 5 sondern 7 und 2007

Hallo ,
mal ne kleine Frage am Rande...
Die Methode ServiceExecute bei einem Dienst läuft die im Hauptthread?

Der Dienst reagiert auf Netzwerkanfragen und führt dann in den TCP/IP-Server-Unterthreads
Komponenten aus...und die sind zum Teil nicht threadsicher, deswegen werden sie mit der der Methode

Code:

TThread.Synchronize(Thread,TCmdData(cmdlist.Objects[cmdlist.IndexOf(cmd)]).ProcPointer);

ausgeführt. Nur bekomme ich ab und zu (und nur bei einem von vielen hundert Kunden) die Exception ins Lock
"CheckSynchronize wurde vom Thread $1084 aufgerufen, der NICHT der Haupt-Thread ist..." ...und das wars dann mit dem Dienst.



So rufe ich checksyncronize auf

Code:

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(True);
    Classes.CheckSynchronize;
  end;
end;

[QuickAndDirty]

Shameless selfbump

[QuickAndDirty]

Entschuldigung, .....

[s.h.a.r.k]

Ich weiß nicht, ob das was bringt, aber du kannst ja an passender Stelle mal folgenden Vergleich machen:

Delphi-Quellcode:

MainThreadID = GetCurrentThreadId()

[QuickAndDirty]

Super vielen mucho grande Danke schön für deinen Post.

Ich versuch es mal.
MainThreadID erhalte ich aus der Unit System, sehe ich gerade...

GetCurrentThreadID scheint es nicht zu geben...hier in Delphi7
Hast du noch eine Idee???

[QuickAndDirty]

Oh je gerade heraus gefunden....

Alles was in TService.Execute passiert passiert in einem Servicethread...nicht im hauptthread...

kann man "nicht-thread-sichere" Funktionen in einem thread per Criticalsection "sicher" aufrufen?

[Deep-Sea]

GetCurrentThreadId ist eine Windows-API-Funktion, die es seit 15 Jahren gibt. Die Delphiversion hat damit nicht viel zu tun. Siehe Unit Windows.

[QuickAndDirty]

Zitat:

Zitat von Deep-Sea (Beitrag 1068367)

GetCurrentThreadId ist eine Windows-API-Funktion, die es seit 15 Jahren gibt. Die Delphiversion hat damit nicht viel zu tun. Siehe Unit Windows.

Ok, habe mich bisher immer von der VCL und classes etc...bedienen lassen und kaum Ambitionen Richtung Windows API gehabt ^^ . My bad!

Aber es ist leider halt so das Execute in einer Schleife in einem Servicethread liegt...also muss ich wohl mit criticalsection arbeiten....