Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#1

Delphi 6 Prof. und Threads

  Alt 2. Nov 2004, 21:04
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
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:
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ß
  Mit Zitat antworten Zitat