Record .wav file met mciSendString..

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

Record .wav file met mciSendString..

Berichtdoor FrederikPot » za aug 23, 2008 4:09 pm

CODE:
Code: Selecteer alles

WindowWidth = 300
WindowHeight = 500
nomainwin

    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)




    button #main.button1,"Record start",[button1Click], UL, 35, 120,  242,  25
    button #main.button2,"Stop & Play",[button2Click], UL, 35, 392,  242,  25


    open "Record .wav file" for window as #main


[loop]
wait
[button1Click]
CallDLL #winmm, "mciSendStringA","open new type waveaudio alias track1" as Ptr,0 as long,0 as long,0 as long,r as long
CallDLL #winmm, "mciSendStringA","set track1 bitspersample 8" as Ptr,0 as long,0 as long,0 as long,r as long
CallDLL #winmm, "mciSendStringA","set track1samplepersec 11025" as Ptr,0 as long,0 as long,0 as long,r as long
CallDLL #winmm, "mciSendStringA","record track1" as Ptr,0 as long,0 as long,0 as long,r as long


wait


[button2Click]
''hier het pad van het bestand
CallDLL #winmm, "mciSendStringA","save track1 C:\test.wav" as Ptr,0 as long,0 as long,0 as long,r as long
playwave "C:\test.wav", async
wait

[quit]
  close #main
  end



FrederikPot
 
Berichten: 14
Geregistreerd: vr aug 15, 2008 11:31 pm

Re: Record .wav file met mciSendString..

Berichtdoor anthonio » zo aug 24, 2008 2:50 am

Hoi frederic,

Ik vind het altijd tof als mensen nieuwe API calls posten.
Ik wist niet dat de "MCISentStringA" zoveel mogelijkheden had.
Zo zie je maar dat eenzelfde API, verschillende mogelijkheden bied.
Zeer mooi gevonden.
Kan zeker nog van pas komen.

Andy

Note: Ik ben even de code aan het doornemen en het valt me op dat er nergens een declaratie is voor de tijdsduur van het opgenomen bestand.
Zeer raar.
Vind momenteel men microfoon niet dus het testen zal voor morgen zijn.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Re: Record .wav file met mciSendString..

Berichtdoor FrederikPot » zo aug 24, 2008 7:57 am

Ja, oke dank je..
Veel code die ik hier heb geplaatst zijn 'oude' stukjes code om een messenger te maken...daar heb ik veel tijd in zitten ..maar na jaren wel gelukt inclusief voip !.
Dus zou je ook zoiets willen maken ,doe er je voordeel mee... :P
Groeten,

Frederik
FrederikPot
 
Berichten: 14
Geregistreerd: vr aug 15, 2008 11:31 pm

Re: Record .wav file met mciSendString..

Berichtdoor anthonio » wo aug 27, 2008 12:09 pm

Heb juist ff je code getest met men microfoon frederic en inderdaad het doet wat het moet doen.
Mooi gevonden.

Andy
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm


Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron