Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 784

•  TDictionary Custom Sort  5 899

•  Fast Watermark Sources  5 694

•  3D Designer  8 469

•  Sik Screen Capture  6 031

•  Patch Maker  6 476

•  Айболит (remote control)  6 470

•  ListBox Drag & Drop  5 333

•  Доска для игры Реверси  94 932

•  Графические эффекты  6 675

•  Рисование по маске  5 791

•  Перетаскивание изображений  4 856

•  Canvas Drawing  5 231

•  Рисование Луны  4 954

•  Поворот изображения  4 501

•  Рисование стержней  3 186

•  Paint on Shape  2 431

•  Генератор кроссвордов  3 305

•  Головоломка Paletto  2 616

•  Теорема Монжа об окружностях  3 400

•  Пазл Numbrix  2 248

•  Заборы и коммивояжеры  2 908

•  Игра HIP  1 876

•  Игра Go (Го)  1 792

•  Симулятор лифта  2 126

•  Программа укладки плитки  1 857

•  Генератор лабиринта  2 296

•  Проверка числового ввода  1 983

•  HEX View  2 290

•  Физический маятник  1 955

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Определить длину WAV файла




type 
  EMyMCIException = class(Exception); 

var 
  FDeviceID: Word; 
  MyError, dwFlags: Longint; 

procedure TForm1.GetWaveLength; 
var 
  WaveLen: DWORD; 
begin 
  OpenMedia('C:\Hickory.wav'); 
  SetMediaTimeFormat; 
  WaveLen := GetMediaStatus(MCI_STATUS_LENGTH); 
  CloseMedia; 
  Form1.label1.Caption := IntToStr(WaveLen) + 'mS'; 
end; 

procedure TForm1.OpenMedia(FileName: string); 
var 
  MyOpenParms: TMCI_Open_Parms; 
begin 
  with MyOpenParms do 
  begin 
    dwCallback := Handle; // TForm1.Handle 
    lpstrDeviceType := PChar('WaveAudio'); 
    lpstrElementName := PChar(FileName); 
  end; {with MyOpenParms} 
  dwFlags := MCI_WAIT or MCI_OPEN_ELEMENT or MCI_OPEN_TYPE; 
  MyError := mciSendCommand(0, MCI_OPEN, dwFlags, Longint(@MyOpenParms)); 
  // one could use mciSendCommand(DevId, etc here to specify a particular 
  device 
  if MyError = 0 then 
    FDeviceID := MyOpenParms.wDeviceID 
  else 
    raise EMyMCIException.Create('Open Failed'); 
end; 

procedure TForm1.SetMediaTimeFormat; 
var 
  MySetParms: TMCI_Set_Parms; 
begin 
  if FDeviceID <> 0 then 
  begin 
    dwFlags := MCI_WAIT or MCI_SET_TIME_FORMAT; 
    MySetParms.dwCallback := Handle; // TForm1.Handle 
    MySetParms.dwTimeFormat := MCI_FORMAT_MILLISECONDS; 
    MyError := mciSendCommand(FDeviceID, MCI_SET, dwFlags, 
      Longint(@MySetParms)); 
    if MyError <> 0 then 
      raise EMyMCIException.Create('Status Failed'); 
  end; 
end; 

function TForm1.GetMediaStatus(StatusItem: DWORD): DWORD; 
var 
  MyStatusParms: TMCI_Status_Parms; 
begin 
  if FDeviceID <> 0 then 
  begin 
    dwFlags := MCI_WAIT or MCI_STATUS_ITEM; 
    MyStatusParms.dwCallback := Handle; // TForm1.Handle 
    MyStatusParms.dwItem := StatusItem; 
    MyError := mciSendCommand(FDeviceID, MCI_STATUS, dwFlags, 
      Longint(@MyStatusParms)); 
    if MyError = 0 then 
      Result := MyStatusParms.dwReturn 
    else 
    begin 
      raise EMyMCIException.Create('Status Failed'); 
    end; 
  end; 
end; 

procedure TForm1.CloseMedia; 
var 
  MyGenParms: TMCI_Generic_Parms; 
begin 
  if FDeviceID <> 0 then 
  begin 
    dwFlags := 0; 
    MyGenParms.dwCallback := Handle; // TForm1.Handle 
    MyError := mciSendCommand(FDeviceID, MCI_CLOSE, dwFlags, 
      Longint(@MyGenParms)); 
    if MyError = 0 then 
      FDeviceID := 0 
    else 
    begin 
      raise EMyMCIException.Create('Close Failed'); 
    end; 
  end; 
end;





Похожие по теме исходники

Wave Recorder

Haar Wavelet

Wave Recorder v2

Wave and MIDI In-Out

 

Example RIFF Wave

Wave

WAVE Tagger

Разбиение файла на части

 

Текст внутри файла




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте