Open web page

[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

[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.

[rdonnay]

Yes, the HYPERLINK clause will work.

Another options is to use the DC_SpawnUrl() function.
You can call it from a pushbutton.

[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

[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()