Indy stottert

[goose33]

Hallo nochmal,

irgendwie bekomm ich das mit dem Thread nicht gebacken.

Also folgendes soll :

Die DLL wird vom MainProgramm initialisiert. Wenn man die DLL
braucht wird sie das erste mal gestartet und bekommt vom Mainprogramm gesagt
das sie das erste mal aufgerufen wird.
Ist dies der Fall, dann wird eine Procedure ( die darf sowieso nur einmal aufgerufen werden )
aufgerufen.

Genau in dieser Procedure ( RegisterDLL ) möchte ich das der Thread gestartet wird.
Der thread muss dann solange das MainProgramm läuft ausgeführt werden !
Im Thread selber müssen immer wieder verschieden andere Proceduren aufgerufen werden
( Internet Checken, Daten an Webseite senden [per Indy eben] usw )

Wenn das MainProgramm beendet wird soll auch der Thread beendet werden.

Ich hab das Tutorial gelesen und bin auch so halbwegs durchgestiegen, aber irgendwie bekomm ich es nicht gebacken.
Immer wenn ich das MainProgramm beende kommt entweder ne Fehlermeldung oder
das hauptprogramm hängt noch im taskanager.

Thread starten :

Delphi-Quellcode:

procedure Tf_main.RegisterDLL;
begin
  hMainThreadHandle:=BeginThread(nil, 0, TFNThreadStartRoutine(@TMainThread),
    nil, 0, dwMainThreadID);
  if hMainThreadHandle<>0 then CloseHandle(hMainThreadHandle);
end;

Der Thread selber :

Delphi-Quellcode:

function Tf_main.MainThread: Boolean;
begin
  Result := True;
    mDebug.Lines.Add('Checking Inet');
    bInet := f_main.CheckInet;    // internet Connection prüfen
    mDebug.Lines.Add('Check Inet fertig');
  if FsEnde = True then
    Result := false;
end;

// MainThread
function TMainThread(zahl: Pointer): LongInt;
begin
  Result:=0;
  repeat
    f_main.MainThread;
  until f_main.MainThread = false;
  ShowMessage('Thread Ende');
end;

FsEnde ist eine Variable die ich im MainProgramm auf True setze sobal
WM_CLOSE gesendet wird.
War so ein Versuch unter vielen....sehr vielen

Kann mir vielleicht einer sagen was hier schief geht ?

"" ShowMessage('Thread Ende') "" wird nicht aufgerufen
"" Das MainProgramm bleibt im TaskManager ""

Dank Euch
Matthias