10/05/01 15:54:33 wCtQLpe60
>>296
Public Sub New(ByVal data As reserve_data)
Me._SAVE_DIR = "records"
Me.id = data.id
Dim now As DateTime = DateTime.Now
If Not Directory.Exists((Me._SAVE_DIR & "\" & data.ch)) Then
Directory.CreateDirectory((Me._SAVE_DIR & "\" & data.ch))
End If
Dim str2 As String = ""
If Not String.IsNullOrEmpty(data.end_date) Then
Dim span As TimeSpan = DirectCast((DateTime.Parse((data.end_date & " " & data.end_time)) - DateTime.Now), TimeSpan)
str2 = (" -t " & CInt(span.TotalSeconds).ToString)
End If
Dim str3 As String = String.Concat(New String()
{ str2, " -i ""rtmpe://radiko.smartstream.ne.jp:1935/", data.ch, "/_defInst_/simul-stream swfUrl=URLﾘﾝｸ(radiko.jp) pageUrl=URLﾘﾝｸ(radiko.jp)", data.ch,
" live=1 timeout=600"" -acodec libmp3lame -ar 44100 -ab 64 """, str, ".mp3""" })
Me.psi = New ProcessStartInfo
Me.psi.FileName = (Application.StartupPath & "\lib\ffmpeg.exe")
Me.cmd = (Application.StartupPath & "\lib\ffmpeg.exe" & str3)
Me.p = New Process
Me.p.StartInfo.FileName = (Application.StartupPath & "\lib\ffmpeg.exe")
Me.p.StartInfo.Arguments = str3
Me.p.StartInfo.UseShellExecute = False
Me.p.StartInfo.CreateNoWindow = True
Me.p.Start
Me.start = DateTime.Now
End Sub