1 respuesta en este tema

[seoane]

Este es un pequeño código que hice cuando tuve que convertir una imagen cue/bin que me baje de internet al formato ISO.

Solo funciona para el "modo 1", así que para saber si es compatible con tu imagen abre el archivo con la extensión .cue con el "bloc de notas" y busca una linea como esta:

delphi

TRACK 01 MODE1/2352

El código es el siguiente (es una aplicación de consola)

delphi

program BinToIso;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, SysUtils;
 
const
  SectorSize = 2352;
 
var
  i: Integer;
  Src, Dst: File;
  Buffer: PByteArray;
begin
  if ParamCount < 2 then
    Exit;
  AssignFile(Src,ParamStr(1));
  AssignFile(Dst,ParamStr(2));
  {$I-}
    Reset(Src,1);
  {$I+}
  if IOResult = 0 then
  try
    {$I-}
      Rewrite(Dst,1);
    {$I+}
    if IOResult = 0 then
    try
      GetMem(Buffer,SectorSize);
      try
        BlockRead(Src,Buffer^,SectorSize,i);
        while i = SectorSize do
        begin
          BlockWrite(Dst,Buffer[16],2048);
          BlockRead(Src,Buffer^,SectorSize,i);
        end;
      finally
        FreeMem(Buffer);
      end;
    finally
      CloseFile(Dst);
    end;
  finally
    CloseFile(Src);
  end;
end.

Se usa de la siguiente manera:

delphi

bintoiso cpy-tp.bin img.iso

[ELKurgan]

Gracias por el aporte