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