How to download file

[Juanjogomez]

Hi,
I have marketed a warehouse management program made in QB64 and currently 14 companies have it. As each company has an average of 3 computers, the program is installed on 42 computers.
Every time I update the program for an improvement or correction of an error, I have to do it on all 42 computers one by one.
Is there a way to make when it enters the program, it will check for an update in a folder on my NAS and download it directly?
Thanks

[Juanjogomez]

Isn't it possible to do it?

[Petr]

It sounds interesting. I would divide it into several steps.
So first of all. Try writing a simple program with _OPENHOST and _OPENCLIENT and use the _FILEEXISTS function to see a specific file on the NAS. If this works, you can go to step 2.

Step 2 will be - write a program that will start again after its completion (the update will take place at startup, right?)

Here I wrote a quick look at how I would try to do it, I didn't even run the program. If you get on the NAS and if windows allows you to rename EXE files, you have win.

Code: QB64: [Select]

1.  
2.  
3. If _FileExists("//NAS/autoupdate.cfg") Then 'this file is on server NAS
4.     ff = FreeFile
5.     Open "//NAS/autoupdate.cfg" For Input As ff
6.     Input #ff, version
7.     Close ff
8. End If
9.  
10. Print "NAS version available is: "; version
11.  
12. Open "localversion.cfg" For Input As ff
13. Input ff, myversion
14. Close ff
15.  
16. Print "My version is: "; myversion
17.  
18. If myversion < version Then
19.  
20.     Open "Auto_update.bat" For Output As ff
21.     Print #ff, "@ECHO OFF"
22.     Print #ff, "TIMEOUT /T 3"
23.     Print #ff, "del oldversion.exe"
24.     Print #ff, "ren newversion.exe oldversion.exe" 'this maybe must be allowed in windows firewall
25.     Close ff
26.  
27.     'download newversion.exe from NAS here
28.  
29.     'open newversion.exe on NAS
30.     Open "//NAS/newversion.exe" For Binary As ff
31.     FileLenght$ = Space$(LOF(ff))
32.     Get ff, , FileLenght$
33.     Close ff
34.  
35.     'create new file in local computer
36.     Open "newversion.exe" For Binary As ff
37.     Put ff, , FileLenght$
38.     Close ff
39.  
40.     'write new version number to config file
41.     Open "localversion.cfg" For Output As ff
42.     Print ff, version
43.     Close ff
44.  
45.     'restart program and start new version
46.     Shell _DontWait "Auto_update.bat"
47.     System
48.  
49. End If
50.  

[Juanjogomez]

Thank you very much Petr.
I find the program that you attach very interesting.
What I really wouldn't know how to do is connect from an external computer and download the program.

[FellippeHeitor]

There's a simple download routine in our wiki at http://www.qb64.org/wiki/Downloading_Files

Notice it won't work over secure https connection though, but it can still be useful. It's the same base code we use in the IDE to download wiki pages and update information, as well as the same code InForm uses for its installer/autoupdater, so you know it works.

[SpriggsySpriggs]

I do have code for downloading HTTPS files and for FTP but it's been a while. Are you on Windows? If so, then it could be useful. Otherwise, no.

[Juanjogomez]

There's a simple download routine in our wiki at http://www.qb64.org/wiki/Downloading_Files

Notice it won't work over secure https connection though, but it can still be useful. It's the same base code we use in the IDE to download wiki pages and update information, as well as the same code InForm uses for its installer/autoupdater, so you know it works.

Thanks FellipeHeitor,
I will try everything you have told me

I do have code for downloading HTTPS files and for FTP but it's been a while. Are you on Windows? If so, then it could be useful. Otherwise, no.

Yes, I use Windows.
I would appreciate if you could pass me the code. See if I can do it.

[SpriggsySpriggs]

My FTP code is out of date but I can't get the current one now since my PC is out of commission. Here is the code I uploaded last year:
https://www.qb64.org/forum/index.php?topic=3263.msg125410#msg125410

For HTTP/HTTPS downloading, more updated (March of 2021):
https://www.qb64.org/forum/index.php?topic=3729.msg130859#msg130859

[Juanjogomez]

Thanks, i will try this.
This forum is wonderful and QB64 too