PowerBuilder Tip #7

¿Cómo conectarse a una unidad de red desde PowerBuilder?

Este tip muestra cómo usar el API de Windows para conectarse a una unidad de red desde PowerBuilder.

Declaración de la Función:

FUNCTION ulong WNetUseConnectionA (ulong hwndOwner, &
   REF s_netresource lpNetResource, string lpPassword, &
   string lpUsername, ulong dwFlags, REF string lpAccessName, &
   REF ulong lpBufferSize, REF ulong lpResult) library "mpr.dll"

Definición de la Estructura:

global type s_netresource from structure
 unsignedlong  dwScope
 unsignedlong  dwType
 unsignedlong  dwDisplayType
 unsignedlong  dwUsage
 string  lpLocalName
 string  lpRemoteName
 string  lpComment
 string  lpProvider
end type

Código para llevar a cabo la conexión:

CONSTANT ulong NO_ERROR = 0
CONSTANT ulong CONNECT_REDIRECT = 128
CONSTANT ulong RESOURCETYPE_DISK = 1

s_netresource lstr_netresource

String   ls_null
String   ls_buffer
String   ls_MappedDrive
 
uLong    ll_bufferlen
uLong    ll_null
uLong    ll_ErrInfo
uLong    ll_success
 
SetNull(ll_null)
SetNull(ls_null)
 
ls_buffer = Space(32)
ll_bufferlen = Len(ls_buffer)
 
lstr_netresource.dwType = RESOURCETYPE_DISK
lstr_netresource.lpLocalName = ls_null
lstr_netresource.lpRemoteName = "Aquí va la ruta del recurso"
lstr_netresource.lpProvider = ls_null
 
ll_ErrInfo = WNetUseConnectionA(ll_null, lstr_netresource, &
   'Contraseña', 'Usuario', &
   CONNECT_REDIRECT, ls_buffer, ll_bufferlen, ll_success)
 
IF ll_ErrInfo = NO_ERROR THEN
   MessageBox("Unidad de red", "La letra es " + ls_buffer)
   Return 1
ELSE
   MessageBox("La conexión falló", "El error es " + String(ll_ErrInfo))
   Return -1
END IF

Vea más Tips de PowerBuilder.