OSDN > Find Software > sample-delphi > SCM > git > sample-DELPHI > Commit

sample-delphi
Fork

sample-DELPHI: Commit

開発終了しました
クロスフェードをかける方法がよく用いられているように感じました、pyaudioでも簡単にできそうです。実際にPythonで書かれたコードもウェブで見つかりました。
自分のやってることにあんまり価値がなかったのでほどほどでほかのことに映ります。

wavソフトがコマンドラインからGUIアプリに変化しました。

--- a/Unit1.fmx

+++ b/Unit1.fmx

		@@ -134,4 +139,10 @@ object Form1: TForm1
134	139	Left = 344
135	140	Top = 320
136	141	end
	142	+ object SaveDialog1: TSaveDialog
	143	+ DefaultExt = '.wav'
	144	+ Filter = '.wav'
	145	+ Left = 624
	146	+ Top = 200
	147	+ end
137	148	end

--- a/Unit1.pas

+++ b/Unit1.pas

		@@ -29,6 +29,8 @@ type
29	29	GroupBox2: TGroupBox;
30	30	Label2: TLabel;
31	31	Timer1: TTimer;
	32	+ Label3: TLabel;
	33	+ SaveDialog1: TSaveDialog;
32	34	procedure Button1Click(Sender: TObject);
33	35	procedure Button2Click(Sender: TObject);
34	36	procedure TrackBar1Change(Sender: TObject);

		@@ -80,17 +82,18 @@ procedure TForm1.Button4Click(Sender: TObject);
80	82	begin
81	83	if FileExists(Edit1.Text) = true then
82	84	fileName := Edit1.Text
	85	+ else if FileExists('temp.wav') = true then
	86	+ begin
	87	+ Edit1.Text := 'temp.wav';
	88	+ fileName := Edit1.Text;
	89	+ end
83	90	else
84		- if FileExists('temp.wav') = true then
85		- begin
86		- Edit1.Text := 'temp.wav';;
87		- fileName := Edit1.Text;
88		- end
89		- else
90		- begin
91		- Edit1.Text:='';
92		- Exit;
93		- end;
	91	+ begin
	92	+ Edit1.Text := '';
	93	+ Exit;
	94	+ end;
	95	+ if MediaPlayer1.Media <> nil then
	96	+ MediaPlayer1.Clear;
94	97	if wavHdrRead(PChar(fileName), sp) < 0 then
95	98	Exit;
96	99	if readWav(fileName, pMem) = false then

		@@ -101,6 +104,11 @@ begin
101	104	pMem.SaveToFile('effect.wav');
102	105	MediaPlayer1.fileName := 'effect.wav';
103	106	MediaPlayer1.Play;
	107	+ if SaveDialog1.Execute = true then
	108	+ begin
	109	+ Edit1.Text := SaveDialog1.fileName;
	110	+ pMem.SaveToFile(Edit1.Text);
	111	+ end;
104	112	end;
105	113	pMem.Free;
106	114	Finalize(sp.pWav^);

		@@ -113,13 +121,14 @@ begin
113	121	Exit;
114	122	mic.fileName := 'temp.wav';
115	123	mic.StartCapture;
	124	+ Edit1.Text:=mic.FileName;
116	125	end;
117	126
118	127	procedure TForm1.Button6Click(Sender: TObject);
119	128	begin
120	129	if MediaPlayer1.State = TMediaState.Playing then
121	130	MediaPlayer1.Stop
122		- else
	131	+ else if mic.State = TCaptureDeviceState.Capturing then
123	132	begin
124	133	mic.StopCapture;
125	134	MediaPlayer1.fileName := 'temp.wav';

		@@ -139,10 +148,11 @@ end;
139	148
140	149	procedure TForm1.Timer1Timer(Sender: TObject);
141	150	begin
142		- if (MediaPlayer1.State = TMediaState.Playing)and(MediaPlayer1.Duration = MediaPlayer1.CurrentTime) then
	151	+ if (MediaPlayer1.State = TMediaState.Playing) and
	152	+ (MediaPlayer1.Duration = MediaPlayer1.CurrentTime) then
143	153	begin
144	154	MediaPlayer1.Stop;
145		- MediaPlayer1.CurrentTime:=0;
	155	+ MediaPlayer1.CurrentTime := 0;
146	156	end;
147	157	end;
148	158

--- a/voice.dproj

+++ b/voice.dproj

		@@ -5,8 +5,8 @@
5	5	<FrameworkType>FMX</FrameworkType>
6	6	<MainSource>voice.dpr</MainSource>
7	7	<Base>True</Base>
8		- <Config Condition="'$(Config)'==''">Debug</Config>
9		- <Platform Condition="'$(Platform)'==''">Win32</Platform>
	8	+ <Config Condition="'$(Config)'==''">Release</Config>
	9	+ <Platform Condition="'$(Platform)'==''">Win64</Platform>
10	10	<TargetedPlatforms>95</TargetedPlatforms>
11	11	<AppType>Application</AppType>
12	12	</PropertyGroup>