Создание нового Wav - файла, используя заголовок другого

Dmitry_DM · #31 10.08.2012, 14:45

Цитата:

Сообщение от poli-smen

Хм... Интересно ты программы пишешь...
Кстати пару ошибок я таки нашёл. Правда они редко будут проявляться, может даже почти никогда, но всё-же лучше без них

Вот здесь:

Код:

        if n>0 then
        begin
          f.Seek(wChankSize, soFromCurrent);
          Dec(wChankSize, n);
          if wChankSize<(SampleSize*Header.wChannels) then Break;
        end;

Должно быть так:

Код:

        if n>0 then
        begin
          n:=Header.wBlockAlign-n;
          f.Seek(n, soFromCurrent);
          Dec(wChankSize, n);
          if wChankSize<(SampleSize*Header.wChannels) then Break;
        end;

Теперь у меня с считыванием все в порядке! Спасибо! Хочу спросить: а можно ли как-то создать wav используя данные из Memo1 моей программы?

poli-smen · #32 10.08.2012, 15:11

Цитата:

Сообщение от Dmitry_DM

Теперь у меня с считыванием все в порядке! Спасибо! Хочу спросить: а можно ли как-то создать wav используя данные из Memo1 моей программы?

А какие данные у тебя в Memo1? Неужто звук в формате PCM?

Dmitry_DM · #33 10.08.2012, 15:37

Цитата:

Сообщение от poli-smen

А какие данные у тебя в Memo1? Неужто звук в формате PCM?

Как какие? Заголовок wav и его данные.

poli-smen · #34 10.08.2012, 16:02

Цитата:

Сообщение от Dmitry_DM

Как какие? Заголовок wav и его данные.

Это что-ли те которые недавно выводили в Memo1?

Можно конечно, но сложно. Ведь те данные оформлены для чтения человеком. А обычно чем лучше что-то читается человеком, тем хуже это получается у программ. И наоборот.

Dmitry_DM · #35 11.08.2012, 19:28

Цитата:

Сообщение от poli-smen

Это что-ли те которые недавно выводили в Memo1?

Можно конечно, но сложно. Ведь те данные оформлены для чтения человеком. А обычно чем лучше что-то читается человеком, тем хуже это получается у программ. И наоборот.

Ну а вообще каким образом можно создать программно wav файл, в каком формате должны быть представлены данные, для создания? Как это можно сделать? Мне это не меньше будет надо, после того, как я закончу колдовать над данными. И еще я хочу рассказать немного о моем проекте: значит я шифрую wav файл так, что его нельзя будет прослушать, допустим в нем содержалось сверхсекретная голосовая запись, потом его отправляю другому человеку на другой комп и он должен расшифровать этот файл, что бы узнать содержание. И расшифровать его может только он, зная секрет шифрования. Так я хочу создать новый защищенный метод передачи секретной информации. Подробности все сейчас не расскажу, а буду по ходу прогресса у вас консультироваться.

poli-smen · #36 11.08.2012, 20:16

Цитата:

Сообщение от Dmitry_DM

Ну а вообще каким образом можно создать программно wav файл, в каком формате должны быть представлены данные, для создания? Как это можно сделать? Мне это не меньше будет надо, после того, как я закончу колдовать над данными. И еще я хочу рассказать немного о моем проекте: значит я шифрую wav файл так, что его нельзя будет прослушать, допустим в нем содержалось сверхсекретная голосовая запись, потом его отправляю другому человеку на другой комп и он должен расшифровать этот файл, что бы узнать содержание. И расшифровать его может только он, зная секрет шифрования. Так я хочу создать новый защищенный метод передачи секретной информации. Подробности все сейчас не расскажу, а буду по ходу прогресса у вас консультироваться.

А зачем тебе тогда нужно знание формата wav-файла? Просто шифруй весь файл не разбираясь что там внутри него. Например можно зашифровать архиваторами WinRar или 7-zip - если пароль длинный из случайных символов, то расшифровать такой файл практически невозможно.
Ну а если хочешь чтобы твоя программа не зависела от сторонних утилит, то тебе нужно изучать алгоритмы шифрования, а вовсе не структуру wav-файла.
Если же хочешь изобрести свой алгоритм шифрования, то готовься к тому, что он скорее всего окажется не такой стойкий к взлому как общепринятые алгоритмы.

Dmitry_DM · #37 11.08.2012, 23:45

Цитата:

Сообщение от poli-smen

А зачем тебе тогда нужно знание формата wav-файла? Просто шифруй весь файл не разбираясь что там внутри него. Например можно зашифровать архиваторами WinRar или 7-zip - если пароль длинный из случайных символов, то расшифровать такой файл практически невозможно.
Ну а если хочешь чтобы твоя программа не зависела от сторонних утилит, то тебе нужно изучать алгоритмы шифрования, а вовсе не структуру wav-файла.
Если же хочешь изобрести свой алгоритм шифрования, то готовься к тому, что он скорее всего окажется не такой стойкий к взлому как общепринятые алгоритмы.

Я делаю научную работу, поэтому у меня есть чёткий план и чёткий алгоритм. И я уверен в 100% надежности моего метода шифрования. И еще такое: что такое значение оординат wav файла и как их найти с помощью делфи?

angvelem · #38 12.08.2012, 00:48

Цитата:

Сообщение от Dmitry_DM

... И я уверен в 100% надежности моего метода шифрования...

Мдя, уверенность хорошо, но как-то наивно.

Dmitry_DM · #39 12.08.2012, 02:05

Цитата:

Сообщение от angvelem

Мдя, уверенность хорошо, но как-то наивно.

Ну я серьезно! Метод заключается в приведение файла из относительного в абсолютное частотное звучание, таким образом файл будет не просто под паролем и целый себе, а иметь ровную линию частоты, типа "шшшшшш" или "пииии", а потом адресат звукового сообщения сможет восстановить целостность и спокойно услышать информацию. Но для реализации плана мне нужна ваша помощь! Как создать wav файл, используя данные, которые я, благодаря вам, могу читать?

poli-smen · #40 12.08.2012, 10:00

Цитата:

Сообщение от Dmitry_DM

Ну я серьезно! Метод заключается в приведение файла из относительного в абсолютное частотное звучание, таким образом файл будет не просто под паролем и целый себе, а иметь ровную линию частоты, типа "шшшшшш" или "пииии", а потом адресат звукового сообщения сможет восстановить целостность и спокойно услышать информацию. Но для реализации плана мне нужна ваша помощь! Как создать wav файл, используя данные, которые я, благодаря вам, могу читать?

Вот наваял (не проверял, но должно работать):

Код:

procedure WriteWav();
type
  TChunkID = packed array [0..3] of Char;

  THeader = packed record
    ChunkID       : TChunkID;
    ChunkSize     : Longword;
    Format        : TChunkID;
    Subchunk1ID   : TChunkID;
    Subchunk1Size : Longword;
    AudioFormat   : Word;
    NumChannels   : Word;
    SampleRate    : Longword;
    ByteRate      : Longword;
    BlockAlign    : Word;
    BitsPerSample : Word;
    Subchunk2ID   : TChunkID;
    Subchunk2Size : Longword;
  end;

var
  Header: THeader;
  NumSamples, BytsPerSample, Sample, I, J: Longword;
  fs: TFileStream;
begin
  NumSamples := ;// Здесь записываешь количество сэмплов у твоего звука

  BytsPerSample := 2; // Размер сэмплов в байтах твоего звука. Обычно 1 или 2, но можно и 3 и 4.

  Header.ChunkID       := 'RIFF';
  Header.Format        := 'WAVE';
  Header.Subchunk1ID   := 'fmt ';
  Header.Subchunk1Size := 16;
  Header.AudioFormat   := $0001; // Только PCM
  Header.NumChannels   := ;// Здесь записываешь число каналов своего звука. 1 - моно, 2 - стерео и т.д.
  Header.SampleRate    := ;// Здесь записываешь частоту дискретизации своего звука. Типа 8000, 44100 и т.п.
  Header.BitsPerSample := BytsPerSample * 8;
  Header.BlockAlign    := Header.NumChannels * BytsPerSample;
  Header.ByteRate      := Header.SampleRate * Header.BlockAlign;
  Header.Subchunk2ID   := 'data';
  Header.Subchunk2Size := NumSamples * Header.BlockAlign;
  Header.ChunkSize     := Header.Subchunk2Size + SizeOf(Header) - 8;

  fs := TFileStream.Create(Имя файла в который выводить, fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));
      
    for I := 1 to NumSamples do
    begin
      for J := 1 to Header.NumChannels do
      begin
        Sample := ;{ Здесь читаешь очередной сэмпл оттуда, куда их записывал
                     твой конвертор "из относительного в абсолютное частотное звучание"}
        fs.WriteBuffer(Sample, BytsPerSample);
      end;
    end;

  finally
    fs.Free;
  end;
end;

Dmitry_DM · #41 12.08.2012, 13:44

Цитата:

Сообщение от poli-smen

Вот наваял (не проверял, но должно работать):

Код:

procedure WriteWav();
type
  TChunkID = packed array [0..3] of Char;

  THeader = packed record
    ChunkID       : TChunkID;
    ChunkSize     : Longword;
    Format        : TChunkID;
    Subchunk1ID   : TChunkID;
    Subchunk1Size : Longword;
    AudioFormat   : Word;
    NumChannels   : Word;
    SampleRate    : Longword;
    ByteRate      : Longword;
    BlockAlign    : Word;
    BitsPerSample : Word;
    Subchunk2ID   : TChunkID;
    Subchunk2Size : Longword;
  end;

var
  Header: THeader;
  NumSamples, BytsPerSample, Sample, I, J: Longword;
  fs: TFileStream;
begin
  NumSamples := ;// Здесь записываешь количество сэмплов у твоего звука

  BytsPerSample := 2; // Размер сэмплов в байтах твоего звука. Обычно 1 или 2, но можно и 3 и 4.

  Header.ChunkID       := 'RIFF';
  Header.Format        := 'WAVE';
  Header.Subchunk1ID   := 'fmt ';
  Header.Subchunk1Size := 16;
  Header.AudioFormat   := $0001; // Только PCM
  Header.NumChannels   := ;// Здесь записываешь число каналов своего звука. 1 - моно, 2 - стерео и т.д.
  Header.SampleRate    := ;// Здесь записываешь частоту дискретизации своего звука. Типа 8000, 44100 и т.п.
  Header.BitsPerSample := BytsPerSample * 8;
  Header.BlockAlign    := Header.NumChannels * BytsPerSample;
  Header.ByteRate      := Header.SampleRate * Header.BlockAlign;
  Header.Subchunk2ID   := 'data';
  Header.Subchunk2Size := NumSamples * Header.BlockAlign;
  Header.ChunkSize     := Header.Subchunk2Size + SizeOf(Header) - 8;

  fs := TFileStream.Create(Имя файла в который выводить, fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));
      
    for I := 1 to NumSamples do
    begin
      for J := 1 to Header.NumChannels do
      begin
        Sample := ;{ Здесь читаешь очередной сэмпл оттуда, куда их записывал
                     твой конвертор "из относительного в абсолютное частотное звучание"}
        fs.WriteBuffer(Sample, BytsPerSample);
      end;
    end;

  finally
    fs.Free;
  end;
end;

Это очень даже неплохо! Должно работать, но есть некие вопросы: для начала хочу спросить чего не хватает, чтобы файл создавался сохранением через SaveDialog2, который я кинул на форму, а SaveDialog2 вызывался нажатием Button4Click, которую я тоже кинул на форму? Ну и второй вопрос содержится в коде (строка 58)

Код:

procedure TForm1.Button4Click(Sender: TObject);


procedure WriteWav();
type
  TChunkID = packed array [0..3] of Char;

  THeader = packed record
    ChunkID       : TChunkID;
    ChunkSize     : Longword;
    Format        : TChunkID;
    Subchunk1ID   : TChunkID;
    Subchunk1Size : Longword;
    AudioFormat   : Word;
    NumChannels   : Word;
    SampleRate    : Longword;
    ByteRate      : Longword;
    BlockAlign    : Word;
    BitsPerSample : Word;
    Subchunk2ID   : TChunkID;
    Subchunk2Size : Longword;
  end;

var
  Header: THeader;
  NumSamples, BytsPerSample, Sample, I, J: Longword;
  fs: TFileStream;
begin
  NumSamples := 22050;// Здесь записываешь количество сэмплов у твоего звука

  BytsPerSample := 2; // Размер сэмплов в байтах твоего звука. Обычно 1 или 2, но можно и 3 и 4.

  Header.ChunkID       := 'RIFF';
  Header.Format        := 'WAVE';
  Header.Subchunk1ID   := 'fmt ';
  Header.Subchunk1Size := 16;
  Header.AudioFormat   := $0001; // Только PCM
  Header.NumChannels   := 1;// Здесь записываешь число каналов своего звука. 1 - моно, 2 - стерео и т.д.
  Header.SampleRate    := 44100;// Здесь записываешь частоту дискретизации своего звука. Типа 8000, 44100 и т.п.
  Header.BitsPerSample := BytsPerSample * 8;
  Header.BlockAlign    := Header.NumChannels * BytsPerSample;
  Header.ByteRate      := Header.SampleRate * Header.BlockAlign;
  Header.Subchunk2ID   := 'data';
  Header.Subchunk2Size := NumSamples * Header.BlockAlign;
  Header.ChunkSize     := Header.Subchunk2Size + SizeOf(Header) - 8;




 //fs := TFileStream.Create('Writen.wav', fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));

    for I := 1 to NumSamples do
    begin
      for J := 1 to Header.NumChannels do
      begin
        Sample := что сюда записать, чтобы для начала и для моего понимания, в файл шли теперешние сэмплы (не измененные)?    ;{ Здесь читаешь очередной сэмпл оттуда, куда их записывал
        твой конвертор "из относительного в абсолютное частотное звучание"}
       fs.WriteBuffer(Sample, BytsPerSample);

if SaveDialog2.Execute then
Form1.fs.SaveToFile(Form1.SaveDialog2.FileName + '.wav');

   fs.Free;
  end;
  end;
  finally
  end;
  end;
end.

poli-smen · #42 12.08.2012, 14:49

Цитата:

Сообщение от Dmitry_DM

Это очень даже неплохо! Должно работать, но есть некие вопросы: для начала хочу спросить чего не хватает, чтобы файл создавался сохранением через SaveDialog2, который я кинул на форму, а SaveDialog2 вызывался нажатием Button4Click, которую я тоже кинул на форму? Ну и второй вопрос содержится в коде (строка 58)

Код:

 //fs := TFileStream.Create('Writen.wav', fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));

Это ты что, закомментировал создание объекта и тут же пытаешься работать с этим несозданным объектом???

Цитата:

Сообщение от Dmitry_DM

Код:

        Sample := что сюда записать, чтобы для начала и для моего понимания, в файл шли теперешние сэмплы (не измененные)?

Так откуда же я знаю куда ты записывал "теперешние сэмплы"? Куда записывал оттуда и считывай. Я рекомендую записывать в массив, тогда считываешь так:

Код:

        Sample := Massiv[I, J];

Цитата:

Сообщение от Dmitry_DM

Код:

if SaveDialog2.Execute then
Form1.fs.SaveToFile(Form1.SaveDialog2.FileName + '.wav');

Это уже совсем не в ту степь влезло. Делай так:

Код:

procedure TForm1.Button4Click(Sender: TObject);
begin
  if SaveDialog2.Execute then
  begin
    WriteWav(SaveDialog2.FileName);
  end;
end;

Ну и соответственно в процедуру WriteWav добавь параметр для имени файла, который будешь использовать при создании потока TFileStream.

Dmitry_DM · #43 12.08.2012, 14:58

Цитата:

Сообщение от poli-smen

Так откуда же я знаю куда ты записывал "теперешние сэмплы"? Куда записывал оттуда и считывай. Я рекомендую записывать в массив, тогда считываешь так:

Код:

        Sample := Massiv[I, J];

А перед этим выполнить операцию „Запись буфера в массив”? Правильно?

poli-smen · #44 12.08.2012, 15:19

Цитата:

Сообщение от Dmitry_DM

А перед этим выполнить операцию „Запись буфера в массив”? Правильно?

Совершенно верно

Dmitry_DM · #45 12.08.2012, 16:04

Цитата:

Сообщение от poli-smen

Совершенно верно

Странно, но я не могу найти как записать буфер в массив. Когда-то видел статью, но не помню по какому запросу. Не подскажите как сделать эту операцию?

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Dmitry_DM (12.08.2012)