ProFox

profox@leafe.com

2704 discussions

AZURE and VFP
by Rafael Copquin 28 Jun '20

28 Jun '20

I just started a trial instance of SQL Server on Azure. My question is whether it is possible to upload a VFP exe into a Storage account on Azure and have it run from a local browser. I have this app that produces payroll receipts. I can generate the payroll receipts for each employee in a pdf format and would like to lodge them somewhere on Azure. The SQL Server on Azure contains all the data to generate the receipts on demand. So any employee, with hi/her applicable password could access the VFP exe and visualize their monthly payment receipt from his/her home just using a browser. I know it should be possible to do it with a VM, lodging a SQL Server instance on it and my app's exe, but my client does not want to pay for the VM, just use the above option. Is it at all possible? if so,how? Any leads? TIA Rafael Copquin -- El software de antivirus Avast ha analizado este correo electrónico en busca de virus. https://www.avast.com/antivirus

4 3

Greg Reichert / GLRsoftware.com
by Jürgen Wondzinski 25 Jun '20

25 Jun '20

Anybody knows what happened with Greg Reichert and his domain glrsoftware.com? He had some very nifty VFP code parts there. I'm looking for his SysObj class; because I have only a damaged zip from that ☹ wOOdy

6 8

SQLite
by John Weller 24 Jun '20

24 Jun '20

Has anyone used SQLite with VFP? I have always used DBFs as it seemed over-kill to use SQL Server for the small membership databases I've been using (2000 records) however I was introduced to SQLite as part of a Python course so thought I'd give it a try with VFP. John John Weller 01380 723235 07976 393631 --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

8 13

SetAll throws Variable Not Found
by Tracy Pearson 24 Jun '20

24 Jun '20

Hello everyone, This code has worked for years, now sadly it is failing intermittently. It's in an internal application. I think the error is invalid or the line number and what method the error occurs in is invalid. In a CommandGroup class, the INIT method calls the following SetChildColor method: * Set the forecolor property THIS.SETALL("ForeColor", ; EVALUATE( LEFT( RGBSCHEME(1,2), ; AT(',', RGBSCHEME(1,2), 3) -1)+')'), "CommandButton") THIS.SETALL("DisabledForeColor", ; EVALUATE( LEFT( RGBSCHEME(1,10), ; AT(",", RGBSCHEME(1,10), 3)-1)+")"), "CommandButton") Line four is throwing the error Variable is not found. To determine if it was odd timing related to the EVALUATE function we changed the code to: * Set the forecolor property LOCAL enabledColor, disabledColor enabledColor = EVALUATE( LEFT( RGBSCHEME(1,2), AT(',', RGBSCHEME(1,2), 3) -1)+')') disabledColor = EVALUATE( LEFT( RGBSCHEME(1,10), AT(",", RGBSCHEME(1,10), 3)-1)+")") THIS.SETALL("ForeColor", enabledColor, "CommandButton") THIS.SETALL("DisabledForeColor", disabledColor, "CommandButton") We now get the error on line 6. The stack shows the form is called, the commandgroup.init is running and calls this method. I'm looking for some additional ideas to find this intermittent problem. Thank you, Tracy

3 4

[ADMIN] Problem uploading file to ProFox downloads section
by MB Software Solutions, LLC 23 Jun '20

23 Jun '20

Hi Ed, Got this error when trying to upload a simple PRG: https://www.screencast.com/t/pKl9iQ5Rowst Not sure why? tia, --Mike -- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus

2 5

[NF] Recommendations on a balance board for standup desk use
by Malcolm Greene 23 Jun '20

23 Jun '20

Any of you stand-up desk users standing on a balance-board type contraption or using a specific mat? I'm at a standup desk 8-12 hours/day and looking to improve the ergonomics of this situation. Thanks! Malcolm --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

5 16

RE: This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?
by Jürgen Wondzinski 18 Jun '20

18 Jun '20

Here's another one without using any fancy IE or XML stuff. Just plain OS functions... CLEAR ? GetURLContent("http://www.atoutfox.org/ip.asp", .T.) ? GetURLContent("http://ipecho.net/plain") ************************************************************ FUNCTION GetURLContent ************************************************************ LPARAMETERS cURL, lBodyOnly LOCAL cFile, cResult cFile = REPLICATE(CHR(0), 260) cResult = "" DECLARE INTEGER URLDownloadToCacheFile IN urlmon; INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,; INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC IF URLDownloadToCacheFile(0, cURL, @cFile, LEN(cFile), 0,0) = 0 cFile = RTRIM(cFile) cResult = FILETOSTR(cFile) DELETE FILE (cFile) ENDIF IF lBodyOnly cResult = STREXTRACT(cResult, "<body>", "</body>",1,1) ENDIF RETURN cResult [excessive quoting removed by server]

2 1

This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?
by MB Software Solutions, LLC 17 Jun '20

17 Jun '20

The code below I have run since years ago when I got it from Dave Crozier here on ProFox. I think it's a firewall issue. The oIE.Navigate command returns .NULL. Your thoughts as to what it might be? He's got IE11 on his machine. I went into IE11 and it works fine. (BIG THANKS to Ed for the vRunFox that is helping me remote sleuth this issue!) * Taken from http://leafe.com/archives/msg/493379, courtesy Dave Crozier for the ProFox post!! WAIT WINDOW TIMEOUT 1 "Retrieving IP address for security verification...please wait." LOCAL oIE as InternetExplorer.Application, nStart as Number TRY oIE = createobject("internetexplorer.application") CATCH TO loException llFail = .T. lcIP = 'error' this.Alert(loException.Message,16,"Could not invoke Internet Explorer",.T.) ENDTRY IF NOT llFail THEN *** mjb 06/16/2020 - added TRY TRY oIE.Navigate("http://www.atoutfox.org/ip.asp") nStart = SECONDS() DO WHILE oIE.ReadyState<>4 AND (seconds()-nStart) <= IP_TIMEOUT DOEVENTS ENDDO IF oIE.ReadyState<>4 lcIP = "" && "0.0.0.0" ELSE lcIP = oIE.document.nameprop() ENDIF CATCH TO loException MESSAGEBOX(loException.Message,16,"Problem with first IP site") ENDTRY TRY IF EMPTY(lcIP) THEN && try the alternative site per Stephen Russell oIE.Navigate("http://ipecho.net/plain") nStart = SECONDS() DO WHILE oIE.ReadyState<>4 AND (seconds()-nStart) <= IP_TIMEOUT DOEVENTS ENDDO IF oIE.ReadyState<>4 lcIP = "" && "0.0.0.0" ELSE lcIP = oIE.document.body.innerHTML ENDIF ENDIF && EMPTY(lcIP) RELEASE oIE CATCH TO loException MESSAGEBOX(loException.Message,16,"Problem with second IP site") ENDTRY ENDIF && NOT llFail -- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus

3 6

RE: This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?
by Jürgen Wondzinski 17 Jun '20

17 Jun '20

Maybe test with this code: CLEAR ? GetHTTPContent("http://www.atoutfox.org/ip.asp", .T.) ? GetHTTPContent("http://ipecho.net/plain") ******************************************* FUNCTION GetHTTPContent ******************************************* LPARAMETERS cURL, lBodyOnly LOCAL oHTTP as Msxml2.ServerXMLHTTP, cErrorText, cHTML, lErrorState STORE "" TO cErrorText, cHTML TRY ohttp = CREATEOBJECT("Msxml2.ServerXMLHTTP") CATCH cErrortext = "Cannot instanciate MSXML2" lErrorstate = .t. ohhtp = .NULL. ENDTRY IF VARTYPE(oHTTP) = "O" TRY oHTTP.OPEN("GET",cUrl,.F.) oHTTP.SEND() CATCH lErrorState = .T. cErrortext = "Open/Send failed" ENDTRY ENDIF IF NOT lErrorState cHtml = oHTTP.responseBody IF NOT INLIST(VARTYPE(cHTML),"Q","C") OR EMPTY(cHTML) lErrorState = .T. cErrortext = "error on response" ELSE * convert unicode to utf cHtml = STRCONV(cHTML,9) ENDIF ENDIF IF lErrorState cHTML = "Error: " + cErrorText ELSE IF lBodyOnly cHTML = STREXTRACT(cHTML, "<body>", "</body>",1,1) ENDIF ENDIF RETURN cHTML

3 3

Blast from the Past
by Ed Leafe 11 Jun '20

11 Jun '20

I was cleaning up some dead links in my browser’s bookmarks, and came across this blog post: http://jim.roepcke.com/blog/archives/2003/04/18/ms-says-no-to-foxpro-on-lin… The linked article for The Register is still live. My site hasn’t run on Zope, though, for a dozen years or so. :) -- Ed Leafe

5 6

Jump to page:

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox