Page 1 of 1
Open web page
Posted: Tue Sep 30, 2014 6:20 am
by omni
Roger,
Guess this is simple, but I have never had a reason to use this.
I need to have a link on our main app to open our web page now that we have our support on our home page. For users to get quick access to ask a question,etc.
All we have ever done is direct links behind the scenes to web pages.
I just thought i may be a quick answer. Have not found anything in my looking around.
Thanks, and see you in a couple of weeks.
Fred
Omni
Re: Open web page
Posted: Tue Sep 30, 2014 6:47 am
by Tom
Hi, Fred.
Take a look at the HYPERLINK clause of DCSAY ... GET (page 2). The sample code there shows how to start a browser navigating to a given URL.
Re: Open web page
Posted: Tue Sep 30, 2014 6:55 am
by rdonnay
Yes, the HYPERLINK clause will work.
Another options is to use the DC_SpawnUrl() function.
You can call it from a pushbutton.
Re: Open web page
Posted: Tue Sep 30, 2014 7:21 am
by omni
Yep, I had already remembered the spawnurl() and it worked. Kept trying to use my loadfromurl and that was not the proper one to use.
Thanks
Re: Open web page
Posted: Tue Sep 30, 2014 10:18 am
by Eugene Lutsenko
FTP-client on xbase ++ download updates if they are. Requires Xb2NET.DLL.
Demo Xb2NET.DLL is here:
http://www.xb2.net/xb2net/FTPClient.htm
Code: Select all
PROCEDURE AppSys
// Рабочий стол остается окном приложения
RETURN
********************************************************************************
FUNCTION Main()
LOCAL GetList[0], GetOptions, nColor, oMessageBox, oMenuWords, oDlg, ;
oMenuBar,oMenu1,oMenu2,oMenu3,oMenu4,oMenu5,oMenu6,oMenu7,;
oMenu3_3
DC_IconDefault(1000)
SET DECIMALS TO 15
SET DATE GERMAN
SET ESCAPE On
SET COLLATION TO SYSTEM // Руссификация
*SET COLLATION TO ASCII // Руссификация
cGDServer:="http://lc.kubagro.ru"
Ftp_User :=’**********’
Ftp_Passw:= ’**********’
Ftp_File:="Downloads.exe"
*savepath:="c:\Downloads\"
oFtp := XbFTPClient():new()
IF oFtp:Connect(cGDServer) // Соединение
IF oFtp:Login(Ftp_User, Ftp_Passw) // Авторизация
oFtp:PassiveMode:=.T. // Пассивный режим
// Flag = 1. Если в текущей папке исполнимого файла системы нет, то скачивание и разархивирование полного архива и запуск системы на исполнение
IF Flag = 1
IF oFtp:GetFile(Ftp_File, "Aidos-x.exe")
* LB_Warning('Start and update System "Aidos-X++"', '(C) System "Aidos-X++"' )
ELSE
LB_Warning('Update file can not be found on the FTP server', '(C) System "Aidos-X++"')
ENDIF
ELSE
***** Проверка времени создания файла обновлений без его скачивания прямо на FTP-сервере
aFileUpd:=oFtp:Directory("Downloads.exe")
mDateUpd = CTOD(SUBSTR(aFileUpd[1], 4, 2) + "." + SUBSTR(aFileUpd[1], 1, 2) + ".20" + SUBSTR(aFileUpd[1], 7, 2))
StrFile(DTOC(mDateUpd), "DateUpd.txt") // Запись текстового файла параметров файла обновлений
** Flag = 2. Если система устарела - скачивание обновлений и запуск новой версии системы
IF mDateSys < mDateUpd // Исполнимый файл системы в текущей папке старее файла обновлений
Flag = 2 // Система устарела, надо скачать и развернуть обновления
IF oFtp:GetFile(Ftp_File, "Downloads.exe") // Скачивание файла обновлений
* LB_Warning('Start and update System "Aidos-X++"', '(C) System "Aidos-X++"' )
ELSE
LB_Warning('Update file can not be found on the FTP server', '(C) System "Aidos-X++"')
ENDIF
ELSE
Flag = 3 // Система не устарела, просто запустить ее
ENDIF
ENDIF
ELSE
LB_Warning('Authorization error with the FTP server', '(C) System "Aidos-X++"' )
ENDIF
ELSE
LB_Warning('Error connecting to FTP server', '(C) System "Aidos-X++"' )
ENDIF
oFtp:close()
oFTP:destroy()