------------ Дoбавленo в 22.19:
Вот еще кое-что нашел:
Add(Button,13708268,259,126)
{
Left=10
Top=10
Caption="Record"
link(onClick,5066922:doStart,[])
}
Add(Button,14140950,259,175)
{
Left=75
Top=10
Caption="Stop"
link(onClick,5066922:doStop,[(375,181)(375,139)])
}
Add(BASS_RecordStart,5066922,406,126)
{
Freq=44100
Mode=1
link(onStart,8212518:doOpen,[])
link(onData,8212518:doSend,[(478,139)(478,146)])
}
Add(BASS_Version,10183901,392,280)
{
link(onCheckOk,12302345:doInit,[])
link(onCheckFailed,109118:doMessage,[(436,293)(436,335)])
}
Add(Message,11232751,392,329)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,448,329)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(MainForm,16358250,259,266)
{
Width=511
Height=274
Caption="BASS sockets demo"
Point(Handle)
link(onCreate,4252681:doInit,[])
}
Add(BASS_Init,4252681,336,280)
{
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(380,293)(380,335)])
link(Handle,16358250:Handle,[(356,268)(310,268)(310,310)(265,310)])
}
Add(BASS_RecordCenter,12302345,448,280)
{
link(onInit,10295078:doOpen,[])
link(onError,11713735:doMessage,[(492,293)(492,335)])
}
Add(Message,11713735,504,329)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(TCP_Server,10295078,609,280)
{
Port=152
DataType=3
link(onRead,3011513:doEvent1,[])
link(onConnect,14476773:doCreate,[(654,293)(654,349)])
}
Add(TCP_Client,8212518,518,126)
{
Port=152
IP="127.0.0.1"
DataType=3
}
Add(Grapher,13475393,770,287)
{
Left=10
Top=35
Width=485
Height=200
MaxH=0
LeftMargin=0
RightMargin=0
TopMargin=0
BottomMargin=0
}
Add(BASS_StreamCreate,14476773,714,343)
{
DataType=1
Name="MainSound"
link(onCreate,3047460:doPlay,[])
link(Data,14690913:Stream,[])
}
Add(BASS_ChannelPlay,3047460,770,343)
{
Channel="MainSound"
}
Add(Hub,3011513,658,280)
{
link(onEvent1,14690913:doAdd,[])
link(onEvent2,13475393:doAdd,[])
}
Add(VolumeSummator,7708361,469,168)
{
Level=20
Mode=1
}
Add(SoundBuffer,14690913,714,280)
{
Size=200000
}
Add(Label,11744101,945,343)
{
Left=315
Top=10
Width=10
Height=17
Caption="0"
}
Add(Timer,9591408,847,343)
{
link(onTimer,1010683:doData,[])
}
Add(DoData,1010683,896,343)
{
link(onEventData,11744101:doText,[])
link(Data,14690913:FullState,[(902,327)(727,327)])
}
Add(Label,6671871,945,392)
{
Left=245
Top=10
Width=67
Height=17
Caption="Buffer usage:"
}
только тут наоборот,из микрофона звук.