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ß