Problema con funcion

[giulichajari]

Tengo una funcion asociada a un boton y los respectivos componentes pero me da un error en la tercera linea, dice "Declaration syntax error", es en la linea

Código Delphi [-]
unsigned int Drivetype = GetDriveType(Drive.c_str ());

Código Delphi [-]
AnsiString temp;
AnsiString Drive = AnsiString(DriveComboBox1->Drive) //EditDrive->Text;
unsigned int Drivetype = GetDriveType(Drive.c_str ());
switch (drivetype)
{
case 1 : temp = “No root directory”; return;
case DRIVE_REMOVABLE : temp = “Removable”; break;
case DRIVE_FIXED : temp = “Fixed”; break;
case DRIVE_REMOTE : temp = “Remote (network) drive”; break;
case DRIVE_CDROM : temp = “CD-ROM”; break;
case DRIVE_RAMDISK : temp = “RAM disk”; break;
default: temp = “Unknown”; return;
}
LabelDriveType->Caption = temp;
temp = “”;
DWORD VolumeSerialNumber = 0;
DWORD MaximumComponentLength = 0;
DWORD FileSystemFlags = 0;
char * volumeinfo = new char[255];
volumeinfo[0] = 0;
char* FileSystemNameBuffer = new char[255];
FileSystemNameBuffer[0] = 0;
GetVolumeInformation (Drive.c_str (), volumeinfo,
CHAPTER 14 Win32 API Functional Areas 530
255, &VolumeSerialNumber,
&MaximumComponentLength, &FileSystemFlags, 
?FileSystemNameBuffer,255);
if (strlen(volumeinfo) != 0)
EditVolumeInfo->Text = volumeinfo ;
else
EditVolumeInfo->Text = “- no label -”;
//Translate integer to chars for serial number
char string1[35];
char string2[35];
if (VolumeSerialNumber > 0)
{
unsigned int bottom = (LOWORD(VolumeSerialNumber));
unsigned int top = (HIWORD(VolumeSerialNumber));
sprintf(string1,”%04X”,top);
sprintf(string2,”%04X”,bottom);
LabelSerialNum->Caption = AnsiString(string1) + “-” + AnsiString(string2);
}
else
LabelSerialNum->Caption = “- unknown -”;
if (MaximumComponentLength > 0)
LabelMaxComponentLength->Caption = AnsiString(MaximumComponentLength) + “
?characters”;
else
LabelMaxComponentLength->Caption = “- unknown -”;
if (strlen(FileSystemNameBuffer) != 0)
LabelFileSystemNameBuffer->Caption = FileSystemNameBuffer;
else
LabelFileSystemNameBuffer->Caption = “- unknown -”;
LabelFileSystemFlags->Caption = “”; //AnsiString(FileSystemFlags);
if (FileSystemFlags & FS_CASE_IS_PRESERVED)
temp += AnsiString(“Filename case is preserved.\n”);
if (FileSystemFlags & FS_CASE_SENSITIVE)
temp += AnsiString(“Lookup is case-sensitive.\n”);
if (FileSystemFlags & FS_UNICODE_STORED_ON_DISK)
temp += AnsiString(“Supports Unicode in filenames.\n”);
if (FileSystemFlags & FS_PERSISTENT_ACLS)
temp += AnsiString(“Preserves and enforces ACLs.\n”);
if (FileSystemFlags & FS_FILE_COMPRESSION)
System Services 531
LISTING 14.6 Continued
temp += AnsiString(“Supports file-based compression.\n”);
if (FileSystemFlags & FS_VOL_IS_COMPRESSED)
temp += AnsiString(“Volume is compressed. (i.e., DoubleSpace).\n”);
LabelFileSystemFlags->Caption = temp;
DWORD spc = 0; //Sectors per cluster
DWORD bps = 0; //Bytes per cluster
DWORD cluster = 0; //clusters
DWORD freeclust = 0; //freeclusters
GetDiskFreeSpace (Drive.c_str (),&spc,&bps,&freeclust,&cluster) ;
unsigned long v1 = (unsigned long)cluster;
unsigned long v2 = (unsigned long) spc;
unsigned long v3 = (unsigned long) bps;
unsigned long volsize = (v1 * v2)/1024 * v3;
LabelVolumeSize->Caption = AnsiString(FormatSize(volsize));
unsigned long free_bytes = (freeclust * spc)/1024 * bps;
LabelFreeSpace->Caption = AnsiString(FormatSize(free_bytes));
if (volsize > 0)
LabelUsed->Caption = AnsiString(((volsize - free_bytes) * 100) / volsize) +
?“ %”;
else
LabelUsed->Caption = “n/a”;
}

Al parecer es la funcion Drive.c_str la que da el problema pero no logro darme cuenta que pasa.

Muchas gracias..
Saludos

[ecfisa]

Hola giulichajari.

El error que mencionas se produce por la falta de un punto y coma:

...
  AnsiString Drive = AnsiString(DriveComboBox1->Drive);  // <- Aquí !!
  unsigned int DriveType = GetDriveType(Drive.c_str());
...

Pero no será el único... a golpe de vista vas a tener que revisar:

GetVolumeInformation (
  Drive.c_str (),
  volumeinfo,
  CHAPTER 14 Win32 API Functional Areas 530255, // Esto no es C++... 
  &VolumeSerialNumber,
  &MaximumComponentLength,
  &FileSystemFlags,
  ?FileSystemNameBuffer,  // "?" error
  255
);

...
  wsprintf(string1,"%04X",top);  // En lugar de sprintf  
  wsprintf(string2,"%04X",bottom); 
...

...
  if (FileSystemFlags & FS_FILE_COMPRESSION)
    System Services 531  LISTING 14.6 Continued // Esto tampoco es C++ 
...

Saludos.

[Casimiro Notevi]

Me ha recordado el (fin de la cita) de Rajoy.

[ecfisa]

Empezado por Casimiro Notevi

Me ha recordado el (fin de la cita) de Rajoy.

.

Saludos.

[giulichajari]

Gracias por responder...

Bueno ya me di cuenta que faltaba el punto y coma, y a decir verdad copie el codigo de un libro, por eso tiene el numero de pagina y un titulo que no corresponde, ademas el programa no esta identado.
Pero acabo de hacerle muchas correciones.
Una cosa : la funcion sprintf si la pude utilizar incluyendo la libreria

Código Delphi [-]
#include stdio.h

lo que no me acepta ahora es:

Código Delphi [-]
LabelVolumeSize->Caption = AnsiString(FormatSize(volsize));

porque no me toma "FormatSize", pero no se que libreria o .h incluir para que lo tome.

Saludos

[ecfisa]

Hola giulichajari.

Empezado por giulichajari

Una cosa : la funcion sprintf si la pude utilizar incluyendo la libreria

Código Delphi [-]
#include stdio.h

Lo que decis es correcto, no fuí claro en ese punto. Sólo te aconsejaba el uso de wsprintf para evitar la inclusión del .h

lo que no me acepta ahora es:

Código Delphi [-]
LabelVolumeSize->Caption = AnsiString(FormatSize(volsize));

porque no me toma "FormatSize", pero no se que libreria o .h incluir para que lo tome.

Al menos yo no conozco ninguna función de Windows o Builder C++ con ese nombre, tal vez venga en una versión posterior de Builder C++ que la que dispongo. O también podría ser una función definida por el usuario en otra parte del código.

Saludos.