home *** CD-ROM | disk | FTP | other *** search
/ Chip: Special Sound & MIDI / Chip-Special_Sound-und-Midi-auf-dem-PC.bin / dosprog / playvoc.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-21  |  2KB  |  57 lines
  1. (***C*H*I*P***S*P*E*C*I*A*L**************************************************)
  2. (*                                                                          *)
  3. (*                     Anwendung der Unit VOC: VOC-Player                   *)
  4. (*                                                                          *)
  5. (*   (c) 1993 Rainer Reusch & Vogel Verlag München                          *)
  6. (*                                                                          *)
  7. (*   Turbo Pascal 7.0                                                       *)
  8. (*                                                                          *)
  9. (***V1.0*********************************************************************)
  10.  
  11. {$A+,B-,D-,E-,F-,G+,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X+}
  12. {$M 16384,0,655360}
  13.  
  14. program PlayVOC;
  15.  
  16. uses
  17.   Crt, VOC;
  18.  
  19. var
  20.   MySample : tHandle;
  21.  
  22. begin   { Hauptprogramm }
  23.   writeln;
  24.   writeln('CT-Voice Player for DOS   V1.0');
  25.   writeln('(c) 1993 R. Reusch & Chip Special');
  26.   writeln;
  27.   if not SoundBoardInstalled then   { Prüfung, ob Soundkarte installiert }
  28.   begin
  29.     writeln('Keine Sound-Karte installiert!');
  30.     Halt(1);
  31.   end;
  32.   if ParamCount>0 then
  33.   begin
  34.     if LoadVOCFile(ParamStr(1),MySample) then   { VOC-Datei laden }
  35.     begin
  36.       SetVolume(176);   { Lautstärke setzen }
  37.       if PlaySound(MySample) then writeln('Wiedergabe läuft...')   { Wiedergabe }
  38.                              else writeln('Fehler bei der Wiedergabe!');
  39.       writeln('  <P>ause');
  40.       writeln('  <R>estart');
  41.       writeln('  <S>top');
  42.       repeat
  43.         if KeyPressed then
  44.           case Upcase(ReadKey) of
  45.             'P' : PauseSound;      { Pause }
  46.             'R' : RestartSound;    { Weiter }
  47.             'S' : StopSound;       { Stop }
  48.           end { case };
  49.       until not SoundPlaying;   { warten, bis Wiedergabe beendet ist }
  50.       writeln('...beendet.');
  51.       UnloadVOCFile(MySample);   { durch Sample belegten Speicher freigeben }
  52.     end
  53.     else writeln('Fehler beim Laden der Datei!');
  54.   end
  55.   else writeln('VOC Datei muß in der Kommandozeile angegeben werden!');
  56. end { PlayVOC }.
  57.