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:

zusammenfalten · markieren

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:

markieren

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?

Bitte mach aus der Adresse (http://www.delphipraxis.net/internal...ct.php?t=98507) mal nen link, dazu musse einfach oben auf URL clicken, rest wirsten dann schon sehen, siht hinterher ungefär so aus.

Habe es mal ohne Sharemem ausprobiert, dann wird alles korrekt beendet. Das kanns ja wohl nicht sein oder ?

No Ideas ? *push*

Moin xSkaschY,

hast Du Sharemem denn auch als ersten Eintrag in der Uses-Liste (gehabt)?

Jup, in der *.dpr und in der *.dll library file.

Ist schon seltsam, ich versteh das nicht wirklich.

BTW: Fröhliche Weihnachten an alle, lasst euch schön beschenken. Möge es eurer Familie gut gehen ! *HooHooHoo*