Re: Non Responsive Application after update comple (General questions)

by Rik Arpino, Wednesday, April 02, 2008, 10:29 (6079 days ago) @ woddrazen

Hi Drazen,

wodAppUp.dll = 1.2.9.77

Using COM interface, testing on Windows XP SP2

Been through examples, cant really see any major differences.

Here is the simple test app we have been using to diagnose:

Calling code:

[code]

Dim updater As New Core
updater.Start http://server/path/updates.txt

[/code]

Core Class:

[code]
Option Explicit

Private WithEvents updater As wodAppUpdateCom

Private Sub Logit(Optional Text As String = )

Dim fh As Long

fh = FreeFile

If Len(Text) = 0 Then
Open App.Path & init.log For Output As #fh
Text = -----------------------Start Init Logging-----------------------
Else
Open App.Path & init.log For Append As #fh
End If

Print #fh, Format(Now, yyyy-MM-dd HH:mm:ss ) & - & Text

Close fh

End Sub

Private Sub Class_Initialize()
Set updater = New wodAppUpdateCom
updater.Blocking = True
updater.LicenseKey = xxxxxxx
End Sub

Public Sub Start(URL As String)

Logit
Logit Check Called...

updater.Check URL, False

Logit End!

End

End Sub

Private Sub updater_CheckDone(ByVal NewFiles As Long, ByVal ErrorCode As Long, ByVal ErrorText As String)

If ErrorCode = 0 Then
Logit Check Done - & NewFiles & New Files Found
Logit Download Called...
updater.Download
Else
Logit Error with Check : & ErrorText
End If

End Sub

Private Sub updater_CloseApp()
Logit Close App
End
End Sub

Private Sub updater_DownloadDone(ByVal ErrorCode As Long, ByVal ErrorText As String)

If ErrorCode = 0 Then
Logit Download Done
Logit Update Started...
updater.Update
Else
Logit Error with Download : & ErrorText
End If

End Sub

Private Sub updater_FileDone(ByVal File As WODAPPUPDATECOMLib.IUpdFile, ByVal ErrorCode As Long, ByVal ErrorText As String)

If ErrorCode = 0 Then
Logit File Downloaded : & File.Name & , & File.NewVersion
Else
Logit Error with File Download : & ErrorText
End If

End Sub

Private Sub updater_FileStart(ByVal File As WODAPPUPDATECOMLib.IUpdFile)

Logit Starting Download of & File.Name & ...

End Sub

Private Sub updater_PrevDetected()

Logit Previous Downloads Detected...
Logit Update Called...
updater.Update

End Sub

Private Sub updater_UpdateDone(ByVal ErrorCode As Long, ByVal ErrorText As String)

If ErrorCode = 0 Then
Logit Update Complete!
Else
Logit Error with Update : & ErrorText
End If

End Sub

[/code]

After we see the End! message in log the application is still running, eventhough this is the last line of code that can be executed.

I would be interested if you could recreate the same problem.

Regards,

Rik