LiveUpdate. Downloads from web and updates multiple client files.

[Wokawidget]

Ok, finally I have produced some code that I can post here.

This software allows developers to add "Live Update" features to their applications.

Features:

• Multi app/file auto update at the same time
• Auto update silently in background
• Use wizard to control live update
• Retrieves remote file info before downloading
• Ability to add new, previously uninstalled, software components to server for download
• Make updates mandatory
• Allow users to select which updates they would like to download
• Progress status of downloads
• Notification of download problems.
• Ability to see which updates failed/passed download.
• Cancel update download
• Authenticate username and password

One thing you need to do is to go to this web site:

http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip

and download the 2 tlb files and install them using the instructions provided.

These tlb files are used for the call back to allow the download to be shown in a progress bar, and to allow the user to cancel the download.

In the example attached the app is looking at NoteMe's server...cheers to NoteMe for letting him use his server

Here's what to do.

If you want to use your own files, on your own server, and not use NoteMes test server then do the following:

Copy the files you want to download to your web server. If you have IIS on your PC you can create a virtual directory and then use:

http://LocalHost/MyVirtualDir/

as the remote path.

Then you need to copy a file called Update.txt to the same location as your files.
The update.txt file contains info about the updates on your server.
In the example I have posted the update.txt looks like:

MDACS;MDAC Setup v2.6;2.6.3;MDAC_Setup.exe;False;False
RESUME;Wokas Resume;4.1;ResumeTEST.doc;False;True
OFFICE;MS Office Components;3.1.0056;Office.exe;True;False
ACC;Accounting Software;1.0.5;AccSetup.exe;False;True
TICKICON;Tick Icon;3;TickIcon.gif;false;False

Each column is split in VB using the ;

The columns are: Key, App Desc, Version, Filename, Mandatory, New App

So, if we take the 1st line of that file:

MDACS - This is the application/file key of the components
MDAC Setup v2.6 - This is a short desc about the remote components
2.6.3 - This is the version number of the remote file
MDAC_Setup.exe - This is the remote file to download
False - This means the download is NOT mandatory
False - This means that a previous version of this app must be installed to download this update.

When my app starts in frmUpdate I load the cuurent installed apps into the auto updator:

    With mobjUpdate.Products
        .Clear
        .Add "MDACS", "MDAC Version v2.5", "2.5.1"
        .Add "RESUME", "Wokawidgets Resume", "2.5"
        .Add "IMAGE", "Splash Screen Image", "18"
        .Add "OFFICE", "MS Office Components", "3.1.0054"
        .Add "TICKICON", "Tick Icon", "5"
    End With

These values can be in a txt file on the local machine, in the reg or whereever you like. I've just added them in directly.

mobjUpdate.RetrieveUpdates

This downloads the update file from the server, and populates the update properties.
You can then select what updates you require.

In my example I have an live update wizard AND the quick auto update...however you can do ALL the updating with an interactive UI:

   mobjUpdate.RemotePath = "http://www.noteme.com/Wokawidget/"
   With mobjUpdate.Products        .Clear
        .Add "MDACS", "MDAC Version v2.5", "2.5.1"
        .Add "RESUME", "Wokawidgets Resume", "2.5"
        .Add "IMAGE", "Splash Screen Image", "18"
        .Add "OFFICE", "MS Office Components", "3.1.0054"
        .Add "TICKICON", "Tick Icon", "5"
    End With
    mobjUpdate.DownloadUpdates

And then just trap the UpdatesDownload event:

Private SUb mobjUpdate_UpdatesDownload()
   MsgBox "Updates Downloaded!"
End Sub

After this the InstallProductUpdates is fired:

Private Sub mobjLiveUpdate_InstallProductUpdates(ByVal Product As vbLiveUpdate.Product, Installed As Boolean)

End Sub

This is where you add code to copy files to a specific location, or launch setup applications etc. If the update passes then set Installed = True.

That's pretty much all the code is needed to download multi updates.
I have added a lot of fancy UI code into my app just to demo what can be done with the code.

If click Web Download then this just demos the vbDownload project, which can be used completely on it's own in other projects to download any files from the internet.

Any comments most welcome.

New version in Post #37!!!

Woka

PS Thanks to Klienma who stuck with me and put up with my annoying questions on how to get the URLDownload API to work with a progress bar. Cheers, this code would not be possible without your help

[mike2]

Very nice

I have a question:
If I want to send my program to someone, will I have to send him the tlb files too?

[Wokawidget]

err...yea.
The app above requires the following to be registered on the PC.

olelib.tlb
olelib2.tlb

This are installed by office though, so if the PC has office I believe this arn't needed.

Then you need to register

vbDownload.dll

and

vbLiveUpdate.dll

I am currently rewritting vbDownload.dll as I found a slightly better method that runs asynchronously. Hopefully I will get this done tonight, but not promising anything.

I take it the code worked on your PC?

Did you email me today?

Woka

[mike2]

Yeah, worked fine on my PC
Well actually, I dont need the live update feature, I might need in the future the WebDownload one.
I have seen you post this somewhere else...
I see that this version requiers the download.dll file...
If I need the WebDownload, I'll search the forums and I'll find it
I'll currently use the URLDownloadToFile api...
If I have time, and I'm not bored, I might update to yours...

[Wokawidget]

I use the URLDownload API function too.
I use the tlb files for a call back so that I can control a progress bar with it.

I am not happy with this function though as it's not asynchronous

The web download is the vbDownload.dll
If you don't want to use the dll just add the download class directly into your app.

Woka

[tbyrne]

I want to do a little more with the liveupdate. On my web site I sell subscriptions to updated drug formularies. Users subscribe at different rates to get access to more or less informaton. My .asp download pages on the web are protected by an MS-Access password file. Code on each page checks that users are registered and allows access based on subscription level. Is there a way to have the update script in my program check the password file on my web site before allowing the download process to proceed? Examples?

Thanks
tbyrne

[BrailleSchool]

err...yea.
The app above requires the following to be registered on the PC.

olelib.tlb
olelib2.tlb

This are installed by office though, so if the PC has office I believe this arn't needed.

Then you need to register

vbDownload.dll

and

vbLiveUpdate.dll

I am currently rewritting vbDownload.dll as I found a slightly better method that runs asynchronously. Hopefully I will get this done tonight, but not promising anything.

I take it the code worked on your PC?

Did you email me today?

Woka

How are you able to register the .DLL files when they arent even present in the download?

[Wokawidget]

Errr...the VB projects do exist. U need to compile the projects into DLLs.

Woka

[BrailleSchool]

Errr...the VB projects do exist. U need to compile the projects into DLLs.

Woka

Ok. I compiled the group project and found a few problems that you might not be aware of.

When you click on Live Update button, and use the Wizard.
When you get the msgbox saying "Remote Information Not Found." you then get a run-time error '91': Object variable or With block variable not set. and then you get run-time error '440': Automation error.

The run-time error '91' highlights:

Private Sub UpdateInstallStatus()
    txtStatus.Text = lvwResults.SelectedItem.Tag
End Sub

in frmWizard.frm

[DJHotIce]

What would be the best way to add this to my application.

[Wokawidget]

hi. i am travelling europe at the noment and am in a cafe using a silly french keyboard.
there is no vb oàn this machine either.
I will be bqck in just over a week where I will be able to hlp you oot:

woka

[DJHotIce]

Thanks Much Woka! I love the app though!

[Wokawidget]

Sorry for the late replies

To add this to your app just compile the vbLiveUpdate dll, and then reference this into your app and then use it like I have in my demo app.

You app would then add products and control the functions in the dll.

Is that what you mean?

This project isn't easy. It really isn't for people who don't know VB

I can't really give huge chats on how it works etc, and how to get it running in everyones apps, as I would be doing this full time.

If you have any questions can you make them I little bit more specific as it's much easier for me to answer them then

Wooof

[adamm83]

Hey Woka,

The 2 tlb files you refer to at the beginning, but im a little confused?!

I downloaded the link you provided (http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip) which contained a whole bunch of *.inc files, olelib.tlb, olelib.odl, a folder named "Implements" with some more *.inc files, olelib2.tlb, olelib2.odl.

Now, I assume the 2 tlb files you were referring to are olelib.tlb and olelib2.tlb, but would I copy these to my system directory and register them there, or copy them to my app directory and reg them there?

A little help please

[Wokawidget]

Copy them to the system directory.
Instructions are on that web site...arn't they?

I think I may have a newer version that doesn't require the tlbs. I'll ses if I can dig it out.

WOka

[adamm83]

A newer version of the live update?

[BrailleSchool]

Copy them to the system directory.
Instructions are on that web site...arn't they?

I think I may have a newer version that doesn't require the tlbs. I'll ses if I can dig it out.

WOka

If there is a newer version that doesnt require the TLB files then i would definately be interested in it for my new app.

Also, what I would be looking to do with your code is to update the complete program (exe) can your app do this? i am sure it can. Same for .chm files.

[Wokawidget]

I'll see if I can post it tonight, but can't promise anything as the computer is out of bounds when the girlfriend is round

The app can update anything. It can simpley download a txt file and copy it into a folder if you want, or it can download a setup.exe (this is what you would do)
Once you download teh setup.exe, you launch the exe, and at the same time you close down your app and the liveupdate window.

Woka

[BrailleSchool]

I'll see if I can post it tonight, but can't promise anything as the computer is out of bounds when the girlfriend is round

hehehe! whipped i see! lol!

The app can update anything. It can simpley download a txt file and copy it into a folder if you want, or it can download a setup.exe (this is what you would do)
Once you download teh setup.exe, you launch the exe, and at the same time you close down your app and the liveupdate window.

Woka

Sounds like a plan. I hope to get to your level of expertise one day

[adamm83]

Hey Woka,

Just wondering if you got around to digging up the files for liveupdate. Don't mean to rush you.

Thanks

[Wokawidget]

Sorry. Just got back from Dublin, Ireland. Had mad weekend for my birthday. GF suprised me with tickets.

Anyways, the code is attached below
Woof

[Wokawidget]

New Version
Uses winsock to download the files instead of the URLDownload API.
This gives you true async download.
The code is exactly the same as b4, apart from the vbDownloader project has been altered to use winsock instead of the API.

Woka

[adamm83]

Thanks woka!!! and happy (belated) birthday!!

[adamm83]

Sorry, one more question. Does this source require the 2 .tlb files?

edit:
and can the liveupdate download from an FTP server?

[adamm83]

Hey Woka,

I've been testing out the liveupdate and I have run into some problems:

1) Whenever I set the .SaveTo path to a subfolder of a drive, or any folder OTHER THAN the root path of a drive, I get a path not found error.

2) I have made a folder on my server (at {link removed}). This folder contains Updates.txt, with the necessary information in it, as well as 2 exe files that i would like to download in the liveupdate (which are referenced in the Updates.txt file. When I run the liveupdate, it seems to find the Updates.txt file properly, but doesnt seem to download anything, and it finishes with a successful message. No downloads though.

This is the code I changed in the liveupdate demo source you supplied with the zip file:

Form_load event:

Private Sub Form_Load()
    Set mobjLiveUpdate = New LiveUpdate
    mobjLiveUpdate.server = "www.acmdesigns.ca"
    mobjLiveUpdate.RemotePath = "clients/sss_lu/"
    mobjLiveUpdate.SaveTo = "C:\"
End Sub

AddProducts sub routine:

Private Sub AddProducts()
Dim x As Integer
Dim arrProducts() As String
x = 1
 
    With mobjLiveUpdate.Products
        .Clear
        Do Until GetSetting("TrinityScheduler", "LiveUpdate", x) = ""
            'arrProducts = Nothing
            arrProducts = Split(GetSetting("TrinityScheduler", "LiveUpdate", x), ";")
            .Add arrProducts(0), arrProducts(1), arrProducts(2)
            x = x + 1
        Loop
    End With
    
End Sub

The rest is the same as the demoUI code from the example vb project you made.

Any help would be appreciated! Thanks.

[tony007]

Hi all. I am trying to use the first LiveUpdate.zip file projects and when ever i try compile and run them i get the following erros:


Error1:test and vbDownload project error:

compile error:

can not find project or library

ok help

points to :
Private mobjBinding As IBinding


-----------
Error2:vbLiveUpdate project error

compile error:

can not find project or library

ok help

points to :
WithEvents mobjDownload As Download

-----------------------------------
Error2emo UI project error

compile error:

can not find project or library

ok help

points to

Private WithEvents mobjDownload As Download

I be happy if any of u guys show me how to fix these errors and be abel to test the program.Thanks

[zeem]

goood work

[Wokawidget]

I am not sure I follow you.
I can't do much from info of "an error".
Have you stepped through the code line by line to see exactly what it's doing.
As for the 1st error. That's extremely simple to fix. However, if you are unable to fix this, then I am 110% sure that this code is a little difficult for you to implements.

Since you didn't give me the err num, or desc, I am going to assume that the error is because I am not adding "\" to the path.

Woka

[Flattery]

I can get your LiveUpdate to work for one program at a time but if there are multiple programs in the list I can only get it to update the one at the top of Updates.txt

I put this in:
LC2DOC;LiveDocs v2.1.0;2.1.0;LC2DOC.exe;False;True
LC2;LiveClient2 v2.1.0;2.1.0;LC2.exe;False;True
LU;LiveUpdate v2.1.0;2.1.0;LU.exe;False;True

and it will always say they are upto date but if I add ; at the end of the lines like:
LC2DOC;LiveDocs v2.1.0;2.1.0;LC2DOC.exe;False;True;
LC2;LiveClient2 v2.1.0;2.1.0;LC2.exe;False;True;
LU;LiveUpdate v2.1.0;2.1.0;LU.exe;False;True;

what ever program I put first in the Updates.txt list is the only one that will check for updates.

Any help? This a bug or am I doing something wrong.

[Wokawidget]

Can you post the lines of code where you add your products to the Products object?

Woka

[Flattery]

.Add "LC2", "LiveClient2 Version v1.0.0", "1.0.0"
.Add "LC2DOC", "LiveDocs v1.0.0", "1.0.0"
.Add "LU", "LiveUpdater Version v1.0.0", "1.0.0"

If I change the order in Updates.txt it will update what ever file is at the top.

[Flattery]

even if I use the default program only changing the domain and then put your example Updates.txt into domain/TestFiles/Updates.txt

It still doesn't work right. Says everything is upto date...

[Flattery]

OK... some reason it was not seeing the newline as vbNewLine.
I just did a little work around by putting ;; at the end of a line and then changing
strData() = Split(pstrData, vbNewLine, , vbTextCompare)
to
strData() = Split(pstrData, ";;", , vbTextCompare)

Thanks for the cool program


P.S. Perhaps it was the text editor I was using. I was using Pico right on the server (a simple linux text editor).

[Wokawidget]

Yes that would explain both errors u explained above, and why adding ; at the end would fix it.
I just used notepad

I really should write this in .NET?

I think you're the 1st person to use it properly. I take it it works then?

Woka

[Flattery]

Seems to work.. still putting some finishing touches...
Not sure what it is but I get a type mismatch sometimes... I delete a line in Updates.txt and then it may work... then I put it back in and it can still work.

I will just need to fine tune my Updates.txt file... maybe I should just use notepad... hehe

[Flattery]

Ok... few small issues I am having. It all works fine when ran as a group project but as soon as it gets compiled I have a few issues.
1. The last screen where it says Thank you for using LiveUpdate. The following Wokawidget products... up-to-date. The lvwData and txtStatus widgets are empty but should have the updated files and txtStatus should say "LiveUpdates successfully... this update.

2. It seems that the StartProductInstall and the UpdatesDownloaded events are not being raised either.

Been looking into this for a few hours, but haven't figured it out yet.

[Flattery]

Well I got it to work for me but not exactly how it was suppose to. Seems like the Raised Events in the dll's didn't want to get raised to the main exe when compiled so I just changed the .dll to do the installing part for me too.

works...

[Wokawidget]

Sry for my late reply. Been really snowed under with work.

You need to compile the seperate projects 1st. Then reference the dll from the client app instead of the vb project.

Woka

[tony007]

Sry for my late reply. Been really snowed under with work.

You need to compile the seperate projects 1st. Then reference the dll from the client app instead of the vb project.

Woka

Many thanks for u reply. could be more specific which one should i compile first. i tried all of them one by one and i got those errors!!

pic of the files in zip file
.

could u tell me which one u mean by client app so that i need to refrence the dll from ? do i need change what line to make it refrence to dll?Thanks

[Wokawidget]

Also, there is a better version at post 37, that doesn't use 3rd party components.
The new version in post 37 uses winsock, and is much more "friendly" imo.

So, if you download the zip from post 37.

Then compile vbWinsock project.
Open vbDownload project and ref vbWinsock.dll instead of the vbp and then compile
Open vbLiveUpdate project, reference vbDownloade.dll. Compile.
Open client app. Ref vbLiveUpdate.dll. compile.
Run.

Woka