Prozedur und API

[MASH]

OK Danke

EDIT:

Code: Alles auswählen

Procedure RecordWav(filename$,ms) 
  buffer$=Space(128)
  DeleteFile(filename$) 
  mciSendString_("open new type waveaudio alias capture",buffer$,0) 
  mciSendString_("set capture samplesperbuffer 8000 bytesperbuffer 8000",0,0,0) 
  mciSendString_("record capture",buffer$,128,0) 
  Delay(ms)
  mciSendString_("save capture "+filename$,buffer$,128,0) 
EndProcedure 

MessageRequester("Info","Click OK to capture audio to c:\test.wav for 2 secs",0) 
RecordWav("c:\test.wav",2000) 
MessageRequester("Info","Done!",0) 

kann mir das mal jemand erklären?

Und wie funktioniert "mciSendString_()" ?

[torselet]

Ich habe kürzlich ein Programm für API-Erklärungen mit Beispielen gefunden. Es heisst API-Guide und steht steht auf der Seite
http://www.allapi.net

Hierzu habe ich eine deutsche Übersetzung der Bedienungsoberfläche und der enthaltenen Readme-Datei eingeschickt. Bis zur Veröffentlichung können die Dateien bei mir unter lscharf@teleos-web.de angefordert werden (133kB).