Delphi 6 Prof. und Threads

**Jelly**

Hallo,

ich krieg bald nen Rappel. Jetzt hab ich Delphi 6 Prof. aufgespielt, und plötzlich spielt eine Komponente von mir verrückt. In einem Thread der Kompo wird plötzlich Synchronize nicht mehr aufgerufen. Oder zumindest krieg ich in der Methode keine Haltepunkt mehr gesetzt, stattdessen friert mir aber die gesamte Anwendung ein? Das lief vorher mit Delphi 6 Enterprise einwandfrei...

Ich tippe also mal auf ein Delphi Update, was eventuell nötig ist. Ich auf die HP von Borland, und wollts mir saugen... Satte 35MB und mehr hat das Teil. Ich krieg nen Rappel. Das ist ja schon Microsoft Manier, davon auszugehen daß jeder daheim ein DSL Anschluss hat... Also, bevor ich jetzt gezwungenermassen das Update runterlade, liegt das Problem ja vielleicht woanders begraben.

Es handelt sich bei der Komponente um

InternetUpdate, und der Fehler tritt irgendwie in der Methode

markieren

Delphi-Quellcode:

			procedure TPingThread.SetEventNr(const Value: integer);

begin

  AOwner.FEventNr := Value ;

  FEventNr := Value;

  Synchronize (EventSynch) ;

  //EventSynch ;

end;

auf... In EventSynch scheint er mir nicht mehr sauber reinzuspringen.
Zur Vervollständigung hier noch EventSynch:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TPingThread.EventSynch ;

begin

     { if EventNr = csText

     then if Assigned (AOwner.OnText)

          then AOwner.OnText (AOwner,AOwner.MessageText) ; }

     if EventNr = AOwner.csDownloadStart

     then if AOwner.DefaultEvents

          then AOwner.Default_DownloadStart(Aowner)

          else if Assigned (AOwner.OnDownloadStart)

               then AOwner.OnDownloadStart (AOwner) ;

     if FEventNr = AOwner.csDownloadProgress

     then if AOwner.DefaultEvents

          then AOwner.Default_DownloadProgress(Aowner,FTotalSize,FReaded)

          else if assigned (AOwner.OnDownloadProgress)

               then AOwner.OnDownloadProgress (AOwner,FTotalSize,FReaded) ;

     if FEventNr = AOwner.csStart

     then if AOwner.DefaultEvents

          then AOwner.Default_OnStart(Aowner)

          else if assigned (AOwner.OnStart)

               then AOwner.OnStart (AOwner) ;

     if FEventNr = AOwner.csContactingHost

     then if AOwner.DefaultEvents

          then AOwner.Default_ContactingHost(Aowner)

          else if Assigned (AOwner.OnContactingHost)

               then AOwner.OnContactingHost (AOwner) ;

     if FEventNr = AOwner.csHostNotFound

     then if AOwner.DefaultEvents

          then AOwner.Default_HostNotFound(Aowner)

          else if Assigned (AOwner.OnHostNotFound)

               then AOwner.OnHostNotFound (AOwner) ;

     if FEventNr = AOwner.csHostContacted

     then if AOwner.DefaultEvents

          then AOwner.Default_HostContacted(Aowner)

          else if assigned (AOwner.OnHostContacted)

               then AOwner.OnHostContacted (Aowner) ;

     if FEventNr = AOwner.csUpdateFound

     then if AOwner.DefaultEvents

          then AOwner.Default_UpdateFound(AOwner,AOwner.LocalVersion,AOwner.RemoteVersion,AOwner.Download,FDoDownload,FDestination)

          else if assigned (AOwner.OnUpdateFound)

               then AOwner.OnUpdateFound (AOwner,AOwner.LocalVersion,AOwner.RemoteVersion,AOwner.Download,FDoDownload,FDestination) ;

     if FEventNr = AOwner.csNoUpdate

     then if AOwner.DefaultEvents

          then AOwner.Default_NoUpdate(Aowner)

          else if Assigned (AOwner.OnNoUpdate)

               then AOwner.OnNoUpdate (AOwner) ;

     if FEventNr = AOwner.csDownloadComplete then begin

        if FileExists (FFilename)  then begin

            if AOwner.DefaultEvents

              then AOwner.Default_DownloadComplete(Aowner,FFileName)

              else if assigned (AOwner.OnDownloadComplete)

                   then AOwner.OnDownloadComplete (AOwner,FFilename) ;

        end else begin

           EventNr := AOwner.csDownloadError ;

        end ;

     end ;

     if FEventNr = AOwner.csDownloadError

     then if AOwner.DefaultEvents

          then AOwner.Default_DownloadError(Aowner)

          else if assigned (AOwner.OnDownloadError)

               then AOwner.OnDownloadError (AOwner) ;

end ;

Vielleicht ist dieses Threadproblem ja allgemein bekannt und jemand kann mir helfen.

Gruß

Delphi 6 Prof. und Threads

Delphi 6 Prof. und Threads

Forumregeln