Delphi 무제어로 마이크 오디오를 수집하고 UDP 로 송수신하는 코드를 구합니다.

연결

사용

창, 메시지, 시스템, 변수, 클래스, 그래픽, 컨트롤, 양식,

대화상자, mmsystem, StdCtrls.

유형

TForm 1 = class(TForm)

Button1:tbutton;

Button 2:t button；;

Button 4:t button；;

Savedialog1:tsavedialog;

프로그램 버튼 1Click (보낸 사람: to object);

절차 버튼 2Click (보낸 사람: to object);

프로시저 버튼 3Click (보낸 사람: to object);

프로시저 버튼 4Click (보낸 사람: to object);

개인

{개인 성명}

대중의

{공개 성명}

끝;

변수를 정의합니다

Form1:tform1;

수행

{$R *. Dfm}

프로그램 TForm 1. Button 1Click (보낸 사람: to object);

시작

MciSendString('close p 1', 0,0,0);

Mcisendstring a ('open new type wave audio alias p1',0,0,0);

MciSendString ('기록 p 1', 0,0,0);

끝;

프로그램 TForm 1. Button2Click (보낸 사람: to object);

시작

MciSendString('stop p 1', 0,0,0);

끝;

프로그램 TForm 1. Button3Click (보낸 사람: to object);

시작

MciSendString('play p 1', 0,0,0);

끝;

프로그램 TForm 1. Button4Click (보낸 사람: to object);

Var s: 문자열;

시작

SaveDialog 1 인 경우. 그런 다음 실행합니다

S: =' save p1'+save dialog1.filename;

MciSendString(pchar(s), 0,0,0);

끝;

끝내다.