Yes, when you need the fastest speed fastCGI + mod_harbour is the way to go
many thanks for your great feedback!
Directory of c:\ModHarbour
31/05/2021 11:25 <DIR> .
31/05/2021 11:25 <DIR> ..
23/06/2015 08:00 1.757.136 ace64.dll
23/06/2015 08:21 2.418.640 adsloc64.dll
23/06/2015 07:44 2.394 adslocal.cfg
23/06/2015 07:57 2.696.656 aicu64.dll
23/06/2015 07:57 256.976 axcws64.dll
31/05/2021 09:46 3.405.824 libcrypto-1_1-x64.dll
31/05/2021 09:46 1.102.968 libcurl-x64.dll
31/05/2021 09:46 6.807.040 libharbour.dll
31/05/2021 09:46 681.472 libssl-1_1-x64.dll
31/05/2021 09:46 49.152 mod_harbour.dll
31/05/2021 11:19 <DIR> samples
#include "c:\include\ads.ch"
Static Ads_Handle
*************************************************
Function Main()
Setting_db()
IF !Connetti_db(@Ads_Handle,2)
Return nil
ENDIF
USE UTENTI ALIAS UTENTI SHARED NEW
SET ORDER TO TAG CODICE
Dbgotop()
Seek str(73,4) + str(240,6)
IF Found()
? UTENTI->UTENTE
ENDIF
Dbcloseall()
AdsDisconnect(Ads_Handle)
AdsApplicationExit()
Return nil
**************************************************************************
Function Connetti_db(Ads_Handle)
local str_conn:="" , lGo:=.F.
str_conn:="\\DBMASTER:8132\C$\DATABASE\DATABASE.ADD"
IF AdsConnect60(str_conn, 7,"user" , "PassWord",,@Ads_Handle)
lGo:=.T.
ENDIF
Return lGo
*********************
Function Setting_db()
REQUEST HB_LANG_IT
HB_LANGSELECT("IT")
REQUEST DBFCDX
REQUEST DBFFPT
REQUEST ADS
RddRegister( "ADS", 1 )
RddSetDefault("ADS")
SET SERVER REMOTE
SET FILETYPE TO ADT
SET(_SET_AUTORDER,1)
SET AUTOPEN ON
set(_SET_OPTIMIZE,.T.)
ADSLOCKING(.T.)
SET DATE BRITISH
SET DELETED ON
SET CENTURY ON
Return nil
Error: Unknown or unregistered symbol
operation: ADSDISCONNECT
called from: HB_HRBLOAD, line: 0
called from: ..\source\exec.prg, EXECUTE, line: 70
Source:
Users browsing this forum: No registered users and 2 guests