Manipular un CD

[[cHackAll]]

Bueno... carlocf, con respecto a lo que dices no creo necesario llamar a las viejas interrupciones, puedes acceder con las APIs CreateFile y _lopen al dispositivo de almacenamiento (igual que con un CD).

Ahora, hablas de marcar... BAD sectors? osea que estas interactuando con el sistema de archivos del medio; si es asi, ya habras definido la forma de marcarlo considerando que es un cd-Rom ?

Si me equivoco, aclaranos.

Saludos

[[Lepe]]

Empezado por cHackAll

osea que estas interactuando con el sistema de archivos del medio; si es asi, ya habras definido la forma de marcarlo

mmmm.... ha dicho marcar físicamente, supongo que usará un clavo y arañará el CD

PD: Si os hace falta un martillo, ¡¡ yo tengo uno !!

[carlocf]

Gracias por el Tiempo que se dan

Efectivamente mi intencion es marcar un CD. No usare un Clavo ni tampoco arañare el CD (las uñas las tengo cortas y esperar a que me crezcan no me servira) por supuesto tampoco usare un martillo (les comento que lo use y la verdad que los resultados no me convencen de pronto a Lepe le sirve marcar un Cd de esa forma aunque tambien imagino que deber marcar sus pertenencias usando el metodo del martillo) . Sabes cHackAll pienso utilizar una aguja fina calentada previamente para hacer una pequeña marca y luego tratar de ubicar donde se puso la marca.

Gracias por la ayuda saludos nuevamente
Atentamente Carlo

[CrazySoft]

Carlof podrias compartir el codigo me mencionas para el marcado y lectura de Discos o dar una mayor esplicacion de como hacerlo

Gracias

[[seoane]]

¿Con ubicar te refieres a saber que sectores machaco la marca o a situarla fisicamente sobre el disco (en milimetros)? Lo primero es sencillo, como ya te dijo chackall, Createfile y a leer. Lo segundo ya puede ser bastante mas complicado

[carlocf]

Nuevamente Saludos y mil gracias por el tiempo que se toman.

1.- Por supuesto que puedo explicarlo CrazySoft sin embargo quiero ver en que parte del Club puedo colocar esta explicacion que creo que seria como un pequeño manual.

2.- Estimado seoane mi intencion es marcar mediante una aguja fina y caliente a 5 mm del borde del agujero central, luego saber que sectores y pistas fueron malogradas.

Imagino que un CD totalmente limpio no tiene ni sectores ni pistas y que estas se crean al momento de grabar informacion en tal sentido, imagino tambien, que antes debo grabar informacion para crear pistas y sectores (claro que estoy asumiendo que un CD se organiza en pistas y sectores, si no es asi por favor corrijanme)

Ahora si hago una lectura del archivo desde el CD saltara un error al no poder leer la parte del CD que esta marcada. Sin embargo hace algun tiempo intente leer un CD que tenia partes malogradas y la verdad que la PC se colgo. Ahora mis dudas son:

a.- Usar CreateFile sobre un CD ya marcado en limpio, me permitira saber en que Sector y Pista no se pudo escribir?

b.- Y si primero grabo la información y luego marco el CD (tratando que la marca se coloque en las areas grabadas), lopen me dira en que sector y pista no se pudo leer?

Nuevamente mil gracias por el tiempo y por la ayuda prestada.
Atentamente
Carlo

[[cHackAll]]

Aunque se adelantaron a preguntarlo, debo acotar algo que me inquieta en el sentido practico); tienes un CD (grabado o no) y digamos que podemos detectar el sector da­ñado y resulta ser el #666 .

Bien! tenemos el sector 666 dañado y el resto perfecto; de paso en el software mostramos un par de circulitos en representacion del CD y utilizando algo de trigonometria y tomando un angulo X marcamos con un "punto" el lugar donde se encuentra el "alfilerazo", el usuaro lo ve y todos felices

Ahora mi duda; cómo podemos saber comparando visualmente dónde está dicho sector dañado? como sabemos (girando X grados el CD) dónde esta el "punto" que vemos en la pantalla???

Paisano CrazySoft: aqui va un codigo que puedes(n) utilizar para dicho caso;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 
var
 hDevice, Dummy, Sectors, Sector: Cardinal;
 Buffer: array [0..$FFFF] of Byte;
 Geometry: record
  Cylinders: Int64;
  MediaType,
  TracksPerCylinder,
  SectorsPerTrack,
  BytesPerSector: Cardinal;
 end;
 
begin
 SetErrorMode(SEM_FAILCRITICALERRORS);
 hDevice := CreateFile('\\.\g:', GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
 if hDevice <> INVALID_HANDLE_VALUE then
  begin
   DeviceIoControl(hDevice, $70000{IOCTL_DISK_GET_DRIVE_GEOMETRY}, nil, 0, @Geometry, SizeOf(Geometry), Dummy, nil);
   Sectors := Geometry.SectorsPerTrack * Geometry.TracksPerCylinder * Geometry.Cylinders;
   for Sector := 0 to Sectors - 1 do
    begin
     Label1.Caption := 'Leyendo el sector #' + IntToStr(Sector) + '...';
     Application.ProcessMessages; // Use a thread !!!
     if not ReadFile(hDevice, Buffer, Geometry.BytesPerSector, Dummy, nil) then
      ShowMessage('El sector #' + IntToStr(Sector) + ' esta dañado !');
    end;
   CloseHandle(hDevice);
  end;
end;

Saludos