Opportunistic lock
Publicado: Vie Dic 03, 2004 12:34 pm
Usuarios de Xailer,
Se ha comentado en el foro de xHarbour la necesidad de tocar el registry
tanto del server como de los clientes para que funcionen correctamente los
RDD nativos. Un usuario posteo el otro día todas las modifaciones que había
que hacer y parece que está bastante puesto en el asunto. Adjunto con este
Email dicho mensaje. Yo me he hecho una pequeña función para arreglarlo del
lado del cliente que sencillamente llamo al empezar la aplicación. Por si os
interesa aquí la dejo:
#include "WinReg.api"
FUNCTION SetNetworkClientScheme()
With Object TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
if :OpenKey(
" SystemCurrentControlSetServicesLanmanWorkStationParamete rs " ) == 0
if :GetNumeric( "EnableOpLocksForceClose" ) == 1
:CloseKey()
return nil
endif
:SetNumeric( "UseOpportunisticLocking", 0 ) // por defecto no
existe la clave
:SetNumeric( "EnableOpLocks", 0 ) // por defecto no
existe la clave
:SetNumeric( "EnableOpLocksForceClose", 1 ) // por defecto no
existe la clave
:SetNumeric( "UtilizeNtCaching", 0 ) // por defecto no
existe la clave
:SetNumeric( "UseLockReadUnlock", 0 ) // por defecto no
existe la clave
:CloseKey()
endif
if :OpenKey( "SystemCurrentControlSetServicesMRXSmbParameters" )
== 0 // XP
:SetNumeric( "OpLocksDisabled", 1 ) // por defecto no
existe la clave
:CloseKey()
elseif :OpenKey( "SystemCurrentControlSetServicesVxDVREDIR" ) == 0
// Win9x
:SetNumeric( "DiscardCacheOnOpen", 1 ) // por defecto ni idea
:CloseKey()
endif
End With
RETURN nil
Un saludo,
--
Ignacio Ortiz
www.xailer.com
Attached files Re_ Network problems on XPsp2 - solution.nws (2.7 KB)Â
Se ha comentado en el foro de xHarbour la necesidad de tocar el registry
tanto del server como de los clientes para que funcionen correctamente los
RDD nativos. Un usuario posteo el otro día todas las modifaciones que había
que hacer y parece que está bastante puesto en el asunto. Adjunto con este
Email dicho mensaje. Yo me he hecho una pequeña función para arreglarlo del
lado del cliente que sencillamente llamo al empezar la aplicación. Por si os
interesa aquí la dejo:
#include "WinReg.api"
FUNCTION SetNetworkClientScheme()
With Object TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
if :OpenKey(
" SystemCurrentControlSetServicesLanmanWorkStationParamete rs " ) == 0
if :GetNumeric( "EnableOpLocksForceClose" ) == 1
:CloseKey()
return nil
endif
:SetNumeric( "UseOpportunisticLocking", 0 ) // por defecto no
existe la clave
:SetNumeric( "EnableOpLocks", 0 ) // por defecto no
existe la clave
:SetNumeric( "EnableOpLocksForceClose", 1 ) // por defecto no
existe la clave
:SetNumeric( "UtilizeNtCaching", 0 ) // por defecto no
existe la clave
:SetNumeric( "UseLockReadUnlock", 0 ) // por defecto no
existe la clave
:CloseKey()
endif
if :OpenKey( "SystemCurrentControlSetServicesMRXSmbParameters" )
== 0 // XP
:SetNumeric( "OpLocksDisabled", 1 ) // por defecto no
existe la clave
:CloseKey()
elseif :OpenKey( "SystemCurrentControlSetServicesVxDVREDIR" ) == 0
// Win9x
:SetNumeric( "DiscardCacheOnOpen", 1 ) // por defecto ni idea
:CloseKey()
endif
End With
RETURN nil
Un saludo,
--
Ignacio Ortiz
www.xailer.com
Attached files Re_ Network problems on XPsp2 - solution.nws (2.7 KB)Â