Xailer & OZ Software

Hay manera de leer el volumen del disco del servidor desde las
estaciones de trabajo por medio de la red ?
Mil Gracias de ante mano...!
Diego Ferreira
Caracas / Venezuela

Gracias a los 2 no lo recordaba...! Ya lo probe y funciona con windows
con una unidad de disco bajo linux solo me devuelve FFFFFF supongo que
no lo soporta !
Diego Ferreira escribió:
> Hay manera de leer el volumen del disco del servidor desde las
> estaciones de trabajo por medio de la red ?
>
> Mil Gracias de ante mano...!
>
> Diego Ferreira
> Caracas / Venezuela

Puedes probar esta tambien
// USO
cSerial := abs( GetVolumeSerial(pad(GetWindowsDirectory(),3)) )
// FUNCION
//---------------------------------------------------------- --------------------
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
XA_FUNC( GETVOLUMESERIAL )
{
DWORD nSerial = 0;
GetVolumeInformation( hb_parc( 1 ), NULL, 0, &nSerial, NULL, NULL, NULL, 0 );
hb_retnl( nSerial );
}
XA_FUNC( GETDISKFREESPACE )
{
DWORD lpSectorsPerCluster; // address of sectors per cluster
DWORD lpBytesPerSector; // address of bytes per sector
DWORD lpNumberOfFreeClusters; // address of number of free clusters
DWORD lpTotalNumberOfClusters; // address of total number of clusters
hb_retl( GetDiskFreeSpace( hb_parc( 1 ),
&lpSectorsPerCluster,
&lpBytesPerSector,
&lpNumberOfFreeClusters,
&lpTotalNumberOfClusters ) );
hb_stornl( lpSectorsPerCluster, 2 );
hb_stornl( lpBytesPerSector, 3 );
hb_stornl( lpNumberOfFreeClusters, 4 );
hb_stornl( lpTotalNumberOfClusters, 5 );
}
#pragma ENDDUMP
Atte. Carlos Ortiz.
"Diego Ferreira" <diego.datamatic@hotmail.com> escribió en el mensaje news:4ae5d550$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hay manera de leer el volumen del disco del servidor desde las
> estaciones de trabajo por medio de la red ?
>
> Mil Gracias de ante mano...!
>
> Diego Ferreira
> Caracas / Venezuela
--

Diego,
> Hay manera de leer el volumen del disco del servidor desde las
> estaciones de trabajo por medio de la red ?
Puedes usar la función de xHarbour VolSerial( cDrive ) (recuerda añadir la
librerí­a CT.lib que está en xHarbourlib al proyecto):
L2Hex( VolSerial( "C:" ) )
Creo que es obligatorio añadir "" al nombre de la unidad, de modo que para
una unidad de disco se usa el formato "letra:" y para un disco de red el
formato "ServerCarpetaCompartida"
Saludos,
José Lalí­n

Diego,
La funcion es VolSerial( [<cDrive>] ) o
GetVolInfo( <cDrive> ) de la lib ct.lib
Un saludo
Pepe.

Diego,
> con una unidad de disco bajo linux solo me devuelve FFFFFF supongo que
> no lo soporta !
Pon esto después de la llamada a VolSerial:
MsgSysError( GetLastError() )
Y te mostrará la razón (el mensaje de error) por la que falla.
Saludos,
José Lalí­n

Funciona correctamente con el linux en algun momento meti la pata y no
me fije...!
Gracias !!!
Gracias Carlos tambien por tu respuesta lo probare tambien !
José Lalí­n escribió:
>
> Diego,
>
>> con una unidad de disco bajo linux solo me devuelve FFFFFF supongo
>> que no lo soporta !
>
> Pon esto después de la llamada a VolSerial:
>
> MsgSysError( GetLastError() )
>
> Y te mostrará la razón (el mensaje de error) por la que falla.
>
> Saludos,
> José Lalí­n