I've uploaded this to the ProFox downloads page in a text file, pending approval. I think I've got all the components included in that text file. Works well for me.
-------- Original Message -------- Subject: RE: VFP9SP2 apps on Citrix Date: 2017-08-14 13:30 From: mbsoftwaresolutions@mbsoftwaresolutions.com To: ProFox Email List profox@leafe.com Reply-To:
On 2017-08-14 10:59, Richard Kaye wrote:
Having a great deal of respect for your VFP chops, is your loader something you can share, Dave? I'm always curious about the mechanics of these types of things.
--
rk
Here's a copy/paste from FabNet, called from my Main.prg:
PROCEDURE CheckForNewerVersion() LOCAL lcServerVersion as String, lcLocalVersion as String, lcLANFile as String, loData as _dataVersions OF .\progs_dataVersions.prg, ; loShell as _ShellExecute OF HOME()+"ffc\environ.vcx", loRec as Object, llUpdateLAN as Logical, llMissing as Logical, lcLANVersion as String LOCAL ARRAY laInfo[1] lcLocalVersion = _screen.cversion && SetVersion() lcLANFile = ReadINI("General","SetupFile",'') loShell = NEWOBJECT("_ShellExecute", "_environ.vcx")
*** mjb 09/18/2015 - updated for Admin user, plus grabbing EXE from cloud *** mjb 02/17/2016 - DEV NOTE: This needs work yet to grab latest installer from web database and put in lcLANFile location; will finish later IF NOT EMPTY(lcLANFile) THEN WAIT WINDOW NOWAIT "Checking master source for latest update..." loData = NEWOBJECT("_dataVersions",".\progs_dataVersions.prg") *** mjb 02/17/2016 - moved this next IF block outside the next IF block after that so as to get lcLANVersion for the 3rd IF block IF FILE(lcLANFile) THEN && see if LAN version is the cLatestVersion lcLANVersion = GetVersion(lcLANFile) CopyInstallerLocally(lcLANFile,ALLTRIM(lcLANVersion)) && mjb 05-11-16 llUpdateLAN = loData.ConvertVersionToNumber(lcLANVersion) <> loData.ConvertVersionToNumber(oUtils.oClient.cLatestVersion) ELSE && update LAN with latest from web database llMissing = .T. llUpdateLAN = .T. ENDIF *** mjb 02/17/2016 - added iNetwork = 1 to only run this IF block for MBSS Cloud clients IF oUtils.iNetwork = 1 AND loData.ConvertVersionToNumber(lcLocalVersion) < loData.ConvertVersionToNumber(oUtils.oClient.cLatestVersion) THEN && verify update exe's version is as expected *** mjb 12/28/2015 - added check to only run this for PRODUCTION run IF oUtils.oConnection.Descript = "Production" AND llUpdateLAN THEN *** mjb 12/18/2015 - for now, just alert them IF llMissing THEN MESSAGEBOX(oUtils.Get_Translation("Your network installation file appears to be missing. This is not critical; this just allows you to have your computers update from a common spot on your network rather than the internet. Contact MBSS if you need assistance."),16,oUtils.Get_Translation("Update file missing")) ELSE MESSAGEBOX(oUtils.Get_Translation("Your network installation file (" + ALLTRIM(lcLANFile) + ") appears to be outdated (version " + ALLTRIM(lcLANVersion) + "). Contact MBSS if you need assistance."),48,oUtils.Get_Translation("Update file out of date")) ENDIF && llMissing ENDIF && llUpdateLAN ENDIF && loData.ConvertVersionToNumber(lcLocalVersion) < loData.ConvertVersionToNumber(oUtils.oClient.cLatestVersion)
IF FILE(lcLANFile) THEN lcServerVersion = GetVersion(lcLANFile) IF NOT EMPTY(lcServerVersion) THEN IF lcServerVersion > lcLocalVersion THEN IF MESSAGEBOX(oUtils.Get_Translation("An update is available for this application (version") + " " + lcServerVersion + "). " + oUtils.Get_Translation("Do you want to upgrade?"),4+32+0,oUtils.Get_Translation("Upgrade available.")) = 6 THEN && launch setup from server and quit this app *** mjb 02/17/2016 - changed next line to lcLANFile instead of lcFile loShell.ShellExecute(FULLPATH(lcLANFile)) RELEASE loShell oUtils.Shutdown_System() && mjb 05-13-16 was QUIT ENDIF && msgbox = 6 ENDIF && lcServerVersion > lcLocalVersion ELSE SET STEP ON ENDIF && NOT EMPTY(lcServerVersion) ENDIF && FILE(lcLANFile) ENDIF && NOT EMPTY(lcLANFile) ENDPROC && CheckForNewerVersion()
FUNCTION GetVersion(tcFile as String) as String *** mjb 09/24/2015 - created to quickly check version # on files LOCAL ARRAY laInfo[1] LOCAL lcVersion as String, loException as Exception TRY lcVersion = '' IF FILE(tcFile) THEN AGETFILEVERSION(laInfo,tcFile) lcVersion = laInfo[4] ENDIF CATCH TO loException lcVersion = '' ENDTRY RETURN lcVersion ENDFUNC && GetVersion(tcFile as String) as String
from my data object: FUNCTION ConvertVersionToNumber(tcVersion) as Number LOCAL lnNumber as Number, liMajor as Integer, liMinor as Integer, liRevision as Integer, liMultiplier as Integer IF NOT EMPTY(tcVersion) THEN liMultiplier = 10000 liMajor = VAL(GETWORDNUM(tcVersion,1,".")) liMinor = VAL(GETWORDNUM(tcVersion,2,".")) liRevision = VAL(GETWORDNUM(tcVersion,3,".")) lnNumber = (liMajor * liMultiplier^2) + (liMinor * liMultiplier^1) + (liRevision * liMultiplier^0) && could have skipped liMultiplier^0 but kept for logical flow ELSE lnNumber = 0 ENDIF && NOT EMPTY(tcVersion) RETURN lnNumber ENDFUNC && ConvertVersionToNumber(tcVersion) as Number
[excessive quoting removed by server]
I am experimenting with cloud computing.
A client of mine who is currently using a Microsoft SQL Server based application, wishes to have the SQL Server database in the cloud so it can be accessible by all his company's branches.
I would like to know if Amazon is offering SQL Server as a service. I am aware that if you contract a Virtual Machine with SQL Server inside you would have the problem solved, but I wonder if it is possible to use SQL Server without the need to have a VM as well
In the case of Google Cloud Computing, you must have a virtual machine and SQL Server inside
I have tried Azure and I've seen that they offer SQL Server as a service, but if you want to get in a single select statement data from two different databases, that is not possible, unless you try a convoluted solution that I got from the web and that would involve modifying my application code a lot. This I will not do (the client won't pay for the time involved in reprogramming)
OTOH, the information provided in any of those sites is so huge and confusing, that I do not know what to choose, where to look and......too much for this old programmer.
Can anybody enlighten me, please?
Remember, I am looking for a simple SQL Server as a service solution, without the need to get a VM as well. Is this possible?
Rafael Copquin
--- Este correo electrónico ha sido comprobado en busca de virus por AVG. http://www.avg.com
Yes, this is possible. Look at AWS RDS (Relational Database Services). https://aws.amazon.com/rds/
Malcolm
It is not as simple as hosting your db in a rack that someone else maintains for you.
There is a fee for bits going in and coming out so it gets costly depending on the data you have and what you might be doing.
You might find that getting a rackspace virtual server or a GoDaddy site may be better for you compared to AWS. As an Amazon investor I want more people to get into AWS but in your case, it is probably a bad fit.
On Tue, Aug 15, 2017 at 7:39 AM, Rafael Copquin rafael.copquin@gmail.com wrote:
I am experimenting with cloud computing.
A client of mine who is currently using a Microsoft SQL Server based application, wishes to have the SQL Server database in the cloud so it can be accessible by all his company's branches.
I would like to know if Amazon is offering SQL Server as a service. I am aware that if you contract a Virtual Machine with SQL Server inside you would have the problem solved, but I wonder if it is possible to use SQL Server without the need to have a VM as well
In the case of Google Cloud Computing, you must have a virtual machine and SQL Server inside
I have tried Azure and I've seen that they offer SQL Server as a service, but if you want to get in a single select statement data from two different databases, that is not possible, unless you try a convoluted solution that I got from the web and that would involve modifying my application code a lot. This I will not do (the client won't pay for the time involved in reprogramming)
OTOH, the information provided in any of those sites is so huge and confusing, that I do not know what to choose, where to look and......too much for this old programmer.
Can anybody enlighten me, please?
Remember, I am looking for a simple SQL Server as a service solution, without the need to get a VM as well. Is this possible?
Rafael Copquin
Este correo electrónico ha sido comprobado en busca de virus por AVG. http://www.avg.com
[excessive quoting removed by server]
A different opinion: Who wants to worry about OS/database patches/upgrades, optimized database configuration, security, and then be responsible for monitoring this environment as well?? There's no way you're going to do a better job at these tasks than a team of professionals focused 24x7 on these specific concerns ... all from a best practice perspective. Your value-add is your application and customer support - not haphazardly configuring and maintaining infrastructure in your spare(?) time.
----- Original message ----- From: Stephen Russell srussell705@gmail.com To: profoxtech@leafe.com Subject: Re: [NF] Amazon Web Services/Azure/Google Cloud Computing Date: Tue, 15 Aug 2017 08:39:19 -0500
It is not as simple as hosting your db in a rack that someone else maintains for you.
There is a fee for bits going in and coming out so it gets costly depending on the data you have and what you might be doing.
You might find that getting a rackspace virtual server or a GoDaddy site may be better for you compared to AWS. As an Amazon investor I want more people to get into AWS but in your case, it is probably a bad fit.
On Aug 15, 2017, at 8:55 AM, Malcolm Greene profox@bdurham.com wrote:
our value-add is your application and customer support - not haphazardly configuring and maintaining infrastructure in your spare(?) time.
This.
If all you’re doing is moving your workload from an in-house machine to a remote machine, you’re really not getting much benefit beyond reduced capex costs.
-- Ed Leafe
On 2017-08-15 10:15, Ed Leafe wrote:
On Aug 15, 2017, at 8:55 AM, Malcolm Greene profox@bdurham.com wrote:
our value-add is your application and customer support - not haphazardly configuring and maintaining infrastructure in your spare(?) time.
This.
If all you’re doing is moving your workload from an in-house machine to a remote machine, you’re really not getting much benefit beyond reduced capex costs.
But saving money on not having to have an in-house DBA, letting the vendor take care of the 24/7 and patches etc....isn't that a good thing?
Knowing that backups are made and being able to restore from one because your testing just destroyed key data is always a nice thing. Not that ANYONE would ever test against PROD data.......
Allowing them to roll patches is good when those patches are safe. SQLServer2014 SP2 in particular.
When you are in the Rented space you don't get the awesome tools that are FREE from M$. Analysis Services, Integration Services, and Report Services unless you specify them on the front end.
You also cannot have an always-on environment that some people pay for because this insurance for the business is justifiable.
On Wed, Aug 16, 2017 at 7:48 AM, < mbsoftwaresolutions@mbsoftwaresolutions.com> wrote:
On 2017-08-15 10:15, Ed Leafe wrote:
On Aug 15, 2017, at 8:55 AM, Malcolm Greene profox@bdurham.com wrote:
our value-add is your application and
customer support - not haphazardly configuring and maintaining infrastructure in your spare(?) time.
This.
If all you’re doing is moving your workload from an in-house machine to a remote machine, you’re really not getting much benefit beyond reduced capex costs.
But saving money on not having to have an in-house DBA, letting the vendor take care of the 24/7 and patches etc....isn't that a good thing?
[excessive quoting removed by server]
thank you all for your replies
Rafael Copquin
--- Este correo electrónico ha sido comprobado en busca de virus por AVG. http://www.avg.com
On Aug 16, 2017, at 7:48 AM, mbsoftwaresolutions@mbsoftwaresolutions.com wrote:
our value-add is your application and customer support - not haphazardly configuring and maintaining infrastructure in your spare(?) time.
This. If all you’re doing is moving your workload from an in-house machine to a remote machine, you’re really not getting much benefit beyond reduced capex costs.
But saving money on not having to have an in-house DBA, letting the vendor take care of the 24/7 and patches etc....isn't that a good thing?
That’s just what I said: the gain by using cloud services is that you don’t have to spend your own time on the stuff that you mentioned, and can instead focus on providing value by developing applications.
-- Ed Leafe
byethost.com
Shai / שי Charles Hart Enzer, M.D., FAACAP Aliyah: Cincinnati to Jerusalem's German Colony May, 2017
Volunteer Associate Professor of Psychiatry University of Cincinnati Medical Center WebSite: http://EnzerMD.com
May all of us merit endless generations to live and thrive in the Holy Land
On Aug 15, 2017 3:40 PM, "Rafael Copquin" rafael.copquin@gmail.com wrote:
I am experimenting with cloud computing.
A client of mine who is currently using a Microsoft SQL Server based application, wishes to have the SQL Server database in the cloud so it can be accessible by all his company's branches.
I would like to know if Amazon is offering SQL Server as a service. I am aware that if you contract a Virtual Machine with SQL Server inside you would have the problem solved, but I wonder if it is possible to use SQL Server without the need to have a VM as well
In the case of Google Cloud Computing, you must have a virtual machine and SQL Server inside
I have tried Azure and I've seen that they offer SQL Server as a service, but if you want to get in a single select statement data from two different databases, that is not possible, unless you try a convoluted solution that I got from the web and that would involve modifying my application code a lot. This I will not do (the client won't pay for the time involved in reprogramming)
OTOH, the information provided in any of those sites is so huge and confusing, that I do not know what to choose, where to look and......too much for this old programmer.
Can anybody enlighten me, please?
Remember, I am looking for a simple SQL Server as a service solution, without the need to get a VM as well. Is this possible?
Rafael Copquin
Este correo electrónico ha sido comprobado en busca de virus por AVG. http://www.avg.com
[excessive quoting removed by server]
-
Charles Hart Enzer, M.D. -
Ed Leafe -
Malcolm Greene -
mbsoftwaresolutions＠mbsoftwaresolutions.com -
Rafael Copquin -
Stephen Russell