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ß

D6 Updates - Da sind jede menge Bugs vorhanden. D6 hat ohne Updates, durch den Umbau bezüglich CLX-Integration sehr viele, auch offensichtliche, Fehler. Also würde ich auf jedenfall den Update mal herunterladen (Kannst Du nicht zu einem Freund/Bekannten mit DSL gehen und dir die Updates herunterladen).

OK... Dann kann ich davon ausgehen daß der Fehler mit den Updates behoben ist... Muss mich dafür nur noch bis Freitag gedulden, dann hab ich die Möglichkeit an der Uni das Update zu ziehen...

Ich hab wohl gestern abend bischen überreagiert als ich mich über solche riesigen Updates aufregte. Aber wenns den Fehler damit behebt, ists schon ok.

Gruß,
Tom

Hallo,

hab mir das 30MB große Update jetzt doch mühsam über ISDN gesogen, und der Fehler in der Komponente ist behoben