Skip to content

Commit 8d0b29b

Browse files
RaspberryFpcRaspberryFpc
committed
v1.0.10
1 parent d99d8a5 commit 8d0b29b

4 files changed

Lines changed: 55 additions & 23 deletions

File tree

‎bin/udp_player‎

0 Bytes
Binary file not shown.

‎source/udp_player‎

0 Bytes
Binary file not shown.

‎source/udp_player.ctps‎

Lines changed: 51 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -24,8 +24,8 @@
2424
<IsVisibleTab Value="True"/>
2525
<EditorIndex Value="1"/>
2626
<WindowIndex Value="0"/>
27-
<TopLine Value="133"/>
28-
<CursorPos X="23" Y="139"/>
27+
<TopLine Value="255"/>
28+
<CursorPos X="100" Y="260"/>
2929
<UsageCount Value="200"/>
3030
<Loaded Value="True"/>
3131
<LoadedDesigner Value="True"/>
@@ -40,8 +40,8 @@
4040
<UnitName Value="Unit2"/>
4141
<EditorIndex Value="0"/>
4242
<WindowIndex Value="0"/>
43-
<TopLine Value="256"/>
44-
<CursorPos X="2" Y="39"/>
43+
<TopLine Value="77"/>
44+
<CursorPos X="11" Y="87"/>
4545
<UsageCount Value="200"/>
4646
<Loaded Value="True"/>
4747
<LoadedDesigner Value="True"/>
@@ -56,10 +56,10 @@
5656
<UsageCount Value="8"/>
5757
</Unit>
5858
</Units>
59-
<JumpHistory HistoryIndex="22">
59+
<JumpHistory HistoryIndex="29">
6060
<Position>
6161
<Filename Value="unit1.pas"/>
62-
<Caret Line="261" Column="32" TopLine="254"/>
62+
<Caret Line="261" Column="32" TopLine="253"/>
6363
</Position>
6464
<Position>
6565
<Filename Value="unit1.pas"/>
@@ -83,71 +83,99 @@
8383
</Position>
8484
<Position>
8585
<Filename Value="unit1.pas"/>
86-
<Caret Line="267" Column="37" TopLine="259"/>
86+
<Caret Line="266" Column="87" TopLine="254"/>
8787
</Position>
8888
<Position>
8989
<Filename Value="unit1.pas"/>
90-
<Caret Line="119" Column="43" TopLine="114"/>
90+
<Caret Line="262" Column="11" TopLine="260"/>
9191
</Position>
9292
<Position>
9393
<Filename Value="unit1.pas"/>
94-
<Caret Line="134" Column="11" TopLine="125"/>
94+
<Caret Line="265" Column="46" TopLine="265"/>
9595
</Position>
9696
<Position>
9797
<Filename Value="unit1.pas"/>
98-
<Caret Line="258" Column="63" TopLine="250"/>
98+
<Caret Line="259" TopLine="253"/>
9999
</Position>
100100
<Position>
101101
<Filename Value="unit1.pas"/>
102-
<Caret Line="261" Column="32" TopLine="253"/>
102+
<Caret Line="258" TopLine="253"/>
103103
</Position>
104104
<Position>
105105
<Filename Value="unit1.pas"/>
106-
<Caret Line="266" Column="87" TopLine="254"/>
106+
<Caret Line="259" TopLine="253"/>
107107
</Position>
108108
<Position>
109109
<Filename Value="unit1.pas"/>
110-
<Caret Line="262" Column="11" TopLine="260"/>
110+
<Caret Line="258" TopLine="253"/>
111111
</Position>
112112
<Position>
113113
<Filename Value="unit1.pas"/>
114-
<Caret Line="265" Column="46" TopLine="265"/>
114+
<Caret Line="270" Column="53" TopLine="262"/>
115115
</Position>
116116
<Position>
117117
<Filename Value="unit1.pas"/>
118-
<Caret Line="259" TopLine="253"/>
118+
<Caret Line="259" Column="40" TopLine="250"/>
119119
</Position>
120120
<Position>
121121
<Filename Value="unit1.pas"/>
122-
<Caret Line="258" TopLine="253"/>
122+
<Caret Line="275" Column="40" TopLine="269"/>
123123
</Position>
124124
<Position>
125125
<Filename Value="unit1.pas"/>
126-
<Caret Line="259" TopLine="253"/>
126+
<Caret Line="274" Column="40" TopLine="268"/>
127127
</Position>
128128
<Position>
129129
<Filename Value="unit1.pas"/>
130-
<Caret Line="258" TopLine="253"/>
130+
<Caret Line="273" Column="40" TopLine="267"/>
131+
</Position>
132+
<Position>
133+
<Filename Value="unit2.pas"/>
134+
<Caret Line="39" Column="2" TopLine="360"/>
135+
</Position>
136+
<Position>
137+
<Filename Value="unit2.pas"/>
138+
<Caret Line="152" Column="10" TopLine="150"/>
139+
</Position>
140+
<Position>
141+
<Filename Value="unit2.pas"/>
142+
<Caret Line="406" Column="21" TopLine="394"/>
143+
</Position>
144+
<Position>
145+
<Filename Value="unit2.pas"/>
146+
<Caret Line="38" Column="33" TopLine="31"/>
147+
</Position>
148+
<Position>
149+
<Filename Value="unit2.pas"/>
150+
<Caret Line="87" Column="11" TopLine="77"/>
131151
</Position>
132152
<Position>
133153
<Filename Value="unit1.pas"/>
134-
<Caret Line="270" Column="53" TopLine="262"/>
154+
<Caret Line="54" Column="16" TopLine="47"/>
135155
</Position>
136156
<Position>
137157
<Filename Value="unit1.pas"/>
138-
<Caret Line="259" Column="40" TopLine="250"/>
158+
<Caret Line="219" Column="42" TopLine="207"/>
139159
</Position>
140160
<Position>
141161
<Filename Value="unit1.pas"/>
142-
<Caret Line="275" Column="40" TopLine="269"/>
162+
<Caret Line="226" Column="18" TopLine="219"/>
143163
</Position>
144164
<Position>
145165
<Filename Value="unit1.pas"/>
146-
<Caret Line="274" Column="40" TopLine="268"/>
166+
<Caret Line="470" Column="18" TopLine="461"/>
147167
</Position>
148168
<Position>
149169
<Filename Value="unit1.pas"/>
150-
<Caret Line="273" Column="40" TopLine="267"/>
170+
<Caret Line="477" Column="21" TopLine="465"/>
171+
</Position>
172+
<Position>
173+
<Filename Value="unit1.pas"/>
174+
<Caret Line="514" Column="127" TopLine="505"/>
175+
</Position>
176+
<Position>
177+
<Filename Value="unit1.pas"/>
178+
<Caret Line="54" Column="18" TopLine="46"/>
151179
</Position>
152180
</JumpHistory>
153181
<RunParams>

‎source/unit1.pas‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -213,6 +213,9 @@ function OpenAlsa: boolean;
213213
1, // resampling on/off
214214
StrToInt(par_Latency)); // latency (us)
215215
Result := n = 0;
216+
217+
if assigned(pcm) then form1.label6.Caption:='Audio device: OK' else form1.label6.Caption:='Audio device: failure';
218+
216219
end;
217220

218221

@@ -223,6 +226,7 @@ procedure closealsa;
223226
snd_pcm_drain(pcm); // drain any remaining samples
224227
snd_pcm_close(pcm);
225228
pcm := nil;
229+
form1.label6.Caption:='Audio device: failure';
226230
end;
227231
end;
228232

0 commit comments

Comments
 (0)