audioimage.pas

用于CD/DVD烧录的Delphi源码,包括source和demo

function TCDTrack.MP3Convert(FromMP3toPCM : Boolean): Boolean;
var
  NewData: Pointer;
  NewDataSize: DWORD;
  Converter : TMP3Convertor;
  HasConverted : Boolean;
begin
  Result := False;
  UpdateDetails;
  NewDataSize := 0;
  Converter := TMP3Convertor.Create(nil);
  try
  if FromMP3toPCM = False then
     HasConverted := Converter.ConvertToMP3Format(self.Memory,fDataSize,NewData,NewDataSize)
      else
      HasConverted := Converter.ConvertFromMP3Format(self.Memory,fDataSize,NewData,NewDataSize);
        try
          if HasConverted = True then
          begin
            self.Clear;
            self.Seek(soFromBeginning,0);
            self.Write(Newdata^,NewDataSize);
            Result := True;
          end;
        finally
          ReallocMem(NewData, 0);
        end;
   finally
    Converter.Free;
   end;
end;



function TCDTrack.ConvertToMP3(TargetFormat: TPCMFormat): Boolean;
var
  NewWaveFormat: TWaveFormatEx;
begin
  Result := False;
  if TargetFormat <> nonePCM then
  begin
    SetPCMAudioFormatS(@NewWaveFormat, TargetFormat);
    Result := MP3Convert(False);
  end;
end;


function TCDTrack.ConvertFromMP3(TargetFormat: TPCMFormat): Boolean;
var
  NewWaveFormat: TWaveFormatEx;
begin
  Result := False;
  if TargetFormat <> nonePCM then
  begin
    SetPCMAudioFormatS(@NewWaveFormat, TargetFormat);
    Result := MP3Convert(True);
  end;
end;




function TCDTrack.Delete(Pos, Len: DWORD): Boolean;
var
  Index: DWORD;
  NewWave: TCDTrack;
  ckInfo, ckData: TMMCKInfo;
  mmIO: HMMIO;
begin
  Result := False;
  if Valid and (Len > 0) and (Pos < Length) then
  begin
    NewWave := TCDTrack.Create;
    try
      mmIO := CreateStreamWaveAudio(NewWave, fWaveFormat, ckInfo, ckData);
      try
        Index := MSecToByte(Pos);
        if Index > fDataSize then
          Index := fDataSize;
        if Index > 0 then
          mmioWrite(mmIO, fData, Index);
        Inc(Index, MSecToByte(Len));
        if Index < fDataSize then
          mmioWrite(mmIO, Pointer(DWORD(fData) + Index), fDataSize - Index);
      finally
        CloseWaveAudio(mmio, ckInfo, ckData);
      end;
      LoadFromStream(NewWave);
      Result := True;
    finally
      NewWave.Free;
    end;
  end;
end;

function TCDTrack.Insert(Pos: DWORD; Wave: TCDTrack): Boolean;
var
  Index: DWORD;
  NewWave: TCDTrack;
  ckInfo, ckData: TMMCKInfo;
  mmIO: HMMIO;
begin
  Result := False;
  if SameFormat(Wave) then
  begin
    NewWave := TCDTrack.Create;
    try
      mmIO := CreateStreamWaveAudio(NewWave, fWaveFormat, ckInfo, ckData);
      try
        Index := MSecToByte(Pos);
        if Index > fDataSize then
          Index := fDataSize;
        if Index > 0 then
          mmioWrite(mmIO, fData, Index);
        mmioWrite(mmIO, Wave.fData, Wave.fDataSize);
        if Index < fDataSize then
          mmioWrite(mmIO, Pointer(DWORD(fData) + Index), fDataSize - Index);
      finally
        CloseWaveAudio(mmio, ckInfo, ckData);
      end;
      LoadFromStream(NewWave);
      Result := True;
    finally
      NewWave.Free;
    end;
  end;
end;

function TCDTrack.InsertSilence(Pos, Len: DWORD): Boolean;
var
  Index: DWORD;
  SilenceBytes: DWORD;
  Silence: Byte;
  NewWave: TCDTrack;
  ckInfo, ckData: TMMCKInfo;
  mmIO: HMMIO;
begin
  Result := False;
  if (PCMFormat <> nonePCM) and (Len > 0) then
  begin
    NewWave := TCDTrack.Create;
    try
      mmIO := CreateStreamWaveAudio(NewWave, fWaveFormat, ckInfo, ckData);
      try
        Index := MSecToByte(Pos);
        if Index > fDataSize then
          Index := fDataSize;
        if Index > 0 then
          mmioWrite(mmIO, fData, Index);
        if fWaveFormat.wBitsPerSample = 8 then
          Silence := 128
        else
          Silence := 0;
        SilenceBytes := MSecToByte(Len);
        while SilenceBytes > 0 do
        begin
          mmioWrite(mmIO, PChar(@Silence), 1);
          Dec(SilenceBytes);
        end;
        if Index < fDataSize then
          mmioWrite(mmIO, Pointer(DWORD(fData) + Index), fDataSize - Index);
      finally
        CloseWaveAudio(mmio, ckInfo, ckData);
      end;
      LoadFromStream(NewWave);
      Result := True;
    finally
      NewWave.Free;
    end;
  end;
end;

// CDTracks

constructor TCDTrackItem.Create;
begin
  inherited Create;
  FCDTrack := TCDTrack.Create;
end;

destructor TCDTrackItem.Destroy;
begin
  FCDTrack.Free;
  inherited Destroy;
end;

procedure TCDTrackItem.LoadWaveFile(Filename: string);
begin
  if FileExists(Filename) then
  begin
    CDTrack.LoadFromFile(Filename);
    CDTrack.TrackFileName := Filename;
    CDTrack.TrackName := ExtractFileName(Filename);
    SongTitle := CDTrack.TrackName;
    WavFileName := Filename;
    CDTrack.UpdateDetails;
  end
  else
    CDTrack.Clear;
end;

procedure TCDTrackItem.SaveWaveFile(Filename: string);
begin
  CDTrack.SaveToFile(Filename);
  CDTrack.TrackFileName := Filename;
  CDTrack.TrackName := ExtractFileName(Filename);
end;

{procedure TCDTrackItem.ReadData(Stream: TStream);
begin
   CDTrack.LoadFromStream(Stream);
end;

procedure TCDTrackItem.WriteData(Stream: TStream);
begin
   CDTrack.SaveToStream(Stream);
end;
}

function TCDTrackItem.GetDisplayName: string;
var
  WaveInfo: string;
begin
  if (CDTrack <> nil) and (CDTrack.Size <> 0) then
  begin
    if CDTrack.Valid then
      WaveInfo := CDTrack.AudioFormat + ', ' +
        IntToStr(CDTrack.BitRate) + ' kbps, ' +
        MS2Str(CDTrack.Length, msAh) + ' sec.'
    else
      WaveInfo := 'Invalid Content';
  end
  else
    WaveInfo := 'Empty Wave File';
  Result := Name + ' (' + WaveInfo + ')';
end;

{ TAudioImage }

constructor TAudioImage.Create;
begin
  inherited Create;
  FTrackList := TClassList.Create;
  FCUESheet := TStringList.Create;
  ImageType := ITAudioImage;
end;

destructor TAudioImage.Destroy;
begin
  EmptyTrackList;
  FCUESheet.Free;
  FTrackList.Free;
  inherited Destroy;
end;



procedure TAudioImage.EmptyTrackList;
var
  Index: Integer;
begin
  try
    for Index := 0 to (FTrackList.Count - 1) do
      TCDTrackItem(FTrackList.Items[Index]).Destroy;
  finally
    FTrackList.Clear;
  end;
end;

procedure TAudioImage.ClearAllTracks;
begin
  EmptyTrackList;
end;

function TAudioImage.GetLastError: string;
begin
  Result := FLastError;
end;

function TAudioImage.TrackCount: Integer;
begin
  Result := FTrackList.Count;
end;

function TAudioImage.Add: TCDTrackItem;
var
  NewTrackItem: TCDTrackItem;
begin
  Result := nil;
  try
    NewTrackItem := TCDTrackItem.Create;
    FTrackList.Add(TClass(NewTrackItem));
    Result := NewTrackItem;
  except
    on e: exception do
      FLastError := e.Message;
  end;
end;

function TAudioImage.Insert(Index: Integer): TCDTrackItem;
var
  Track: TCDTrackItem;
begin
  Result := nil;
  try
    if Index <= (FTrackList.Count - 1) then
    begin
      Track := TCDTrackItem.Create;
      FTrackList.Insert(Index, TClass(Track));
      Result := Track;
    end
    else
      FLastError := 'Insert Index Too Large!';
  except
    on e: exception do
      FLastError := e.Message;
  end;
end;

function TAudioImage.GetItem(Index: Integer): TCDTrackItem;
var
  Track: TCDTrackItem;
begin
  Result := nil;
  try
    if Index <= (FTrackList.Count - 1) then
    begin
      Track := TCDTrackItem(FTrackList.Items[Index]);
      result := Track;
    end
    else
      FLastError := 'Item Index Too Large!';
  except
    on e: exception do
      FLastError := e.Message
  end;
end;

procedure TAudioImage.SetItem(Index: Integer; Value: TCDTrackItem);
var
  Track: TCDTrackItem;
begin
  if Index <= (FTrackList.Count - 1) then
  begin
    try // remove the track
      Track := TCDTrackItem(FTrackList.Items[Index]);
      Track.Destroy;
    except
      on e: exception do
        FLastError := e.Message
    end;

    try
      FTrackList.Insert(Index, TClass(Value));
    except
      on e: exception do
        FLastError := e.Message;
    end;
  end
  else
    FLastError := 'Item Index Too Large!';
end;




procedure TAudioImage.CreateCUEFile(TrackID : Integer);
var
  Gap: integer;
  k : string;
begin
  FCUESheet.Add(' TITLE "'+Tracks[trackid].SongTitle+'"');
  FCUESheet.Add(' PERFORMER "'+Performer+'"');
  FCUESheet.Add(' SONGWRITER "'+Songwriter+'"');
  FCUESheet.Add('');
  FCUESheet.Add('FILE "' + Tracks[trackid].CDTrack.TrackFileName + '" WAVE');
  k := Format('%02.02d', [TrackID + 1]);
  FCUESheet.Add('  TRACK ' + k + ' AUDIO');
  Gap := Tracks[trackid].PreGap;
  if (TrackID <> 0) then
      FCUESheet.Add('    PREGAP ' + LBA2HMSF(Gap));
  Gap := Tracks[trackid].TrackIndex;
  FCUESheet.Add('    INDEX 01 ' + LBA2HMSF(Gap));
  Gap := Tracks[trackid].PostGap;
  FCUESheet.Add('    POSTGAP ' + LBA2HMSF(Gap));
end;




function TAudioImage.GetCUESheet : TStringlist;
var
   Index : Integer;
begin
  FCUESheet.Clear;
  For Index := 0 to Self.TrackCount -1 do
   CreateCUEFile(Index);
  FCUESheet.SaveToFile('C:\BurnCUE.cue');
  Result := FCUESheet;
end;



end.