Hallo zusammen,
ich habe schon hier im Forum nach meinem Problem gesucht.
In
diesem Thread habe ich gelesen das man alle vorhanden Objecte releasen/free'en sollte, dies habe ich schon überprüft.
Aber trotzdem läuft das Programm im Hintergrund weiter.
Programm:
Ich lade amfang ein paar
DLL's in mein Programm, statisch. Ich habe auch schon ausprobiert an welche
DLL's liegt, und habe herraus gefunden das es an meiner update.dll liegt.
In der aufzurufenden procedure (createUpdateForm) wird ledglich ein TidHTTP Object initialisiert und geprüft ob ein Update verfügbar ist.
der Code:
Delphi-Quellcode:
{**
createUpdateForm - 22.12.2006 - 18:10
-----------------------------------------
Zeigt das Updateformular an.
**}
procedure createUpdateForm(Owner: TForm); stdcall;
begin
initializeHTTPObject(Owner);
pcApplicationPath := PChar(ExtractFilePath(ParamStr(0)));
if checkVersion() = true then begin
autoUpdateQuick := TautoUpdateQuick.Create(Owner);
try
autoUpdateQuick.ShowModal;
finally
autoUpdateQuick.Release;
end;
end else httpObject.Free;
end;
{**
initializeHTTPObject - 21.12.2006 - 16:57
-----------------------------------------
Initzialisiert das TidHTTP - Object
**}
procedure initializeHTTPObject(Owner: TForm); stdcall;
begin
httpObject := TidHTTP.Create(Owner);
end;
{**
checkVersion - 23.12.2006 - 20:01
-----------------------------------------
Überprüft Versionen
-----------------------------------------
neue Version verfügbar true
andernfalls false
**}
function checkVersion(): boolean;
var Ini: TIniFile;
updateavailable, currentVersion: string;
begin
getUpdateServerURL();
updateavailable := httpObject.Get(pcUpdateserver + 'update.inf');
Ini := TIniFile.Create(pcApplicationPath + 'product.ini');
try
currentVersion := Ini.ReadString('product', 'version', '');
finally
Ini.Free;
if (updateavailable > currentVersion) then Result := True
else Result := false;
end;
end;
Die Procedure createUpdateForm wird im Hauptprogramm so eingebunden:
procedure createUpdateForm(Owner: TComponent); stdcall; external 'update.dll';
Und im FormCreate aufgerufen:
Delphi-Quellcode:
procedure Tmain.FormCreate(Sender: TObject);
var thisProduct: product;
Ini: TIniFile;
componentStyle : styleInfo;
begin
createUpdateForm(Application);
{** Code Entfernt da nicht Themen relevant **}
end;
Ich weiss nicht was da los ist?
