Guten Tag,
Wollte über 2 Text boxen( siehe Screen) ein Radio + Namen hinzufügen nur mir zeigt der dann wie auf screen zu erkennen ein Fehler an.
Damit ich nicht viel erklären muss hier der Screen:
Code:
Spoiler anzeigen
Es ist halt auch noch ein Kontaktformular integriert was diesen Stream auch per Mail absendet (noch nicht ganz fertig).
Ich und auch ein Kollege haben versucht den Fehler zu fixen aber dies hat nicht geklappt.
Fixed
Ich habe auch schon versucht alles hin zu bekommen aber ich weiß nicht mehr was ich machen soll.
Wollte über 2 Text boxen( siehe Screen) ein Radio + Namen hinzufügen nur mir zeigt der dann wie auf screen zu erkennen ein Fehler an.
Damit ich nicht viel erklären muss hier der Screen:
Code:
VB.NET-Quellcode
- Private Sub AdvantiumButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdvantiumButton3.Click
- Dim Msg As New MailMessage
- Dim myCredentials As New System.Net.NetworkCredential
- myCredentials.UserName = ""
- myCredentials.Password = ""
- Msg.IsBodyHtml = False
- Dim mySmtpsvr As New SmtpClient()
- mySmtpsvr.Host = "mail.gmx.com"
- mySmtpsvr.Port = 25
- mySmtpsvr.EnableSsl = True
- mySmtpsvr.UseDefaultCredentials = False
- mySmtpsvr.Credentials = myCredentials
- 'Dim speichern As String
- Msg.Body = TextBox1.Text
- 'speichern = Application.StartupPath & "\sender" & TextBox1.Text & ".txt"
- 'If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\sender\") Then
- ' My.Computer.FileSystem.CreateDirectory(Application.StartupPath & "\sender\")
- 'End If
- 'If My.Computer.FileSystem.FileExists(Application.StartupPath & "\sender\" & TextBox2.Text & ".txt") Then
- ' My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\sender\" & TextBox2.Text & ".txt")
- 'End If
- Dim streami As System.IO.FileStream
- streami = System.IO.File.Create(Application.StartupPath & "\sender\" & TextBox2.Text & ".txt")
- Dim fs As New FileStream(Application.StartupPath & "\sender\" & TextBox2.Text & ".txt", FileMode.Open)
- Dim sw As New StreamWriter(fs)
- 'sw.WriteLine(TextBox1.Text)
- 'sw.Close()
- 'ListBox1_Save(ListBox1, speichern)
- ListBox1.Items.Add(TextBox1.Text)
- TextBox1.Text = ""
- TextBox2.Text = ""
- Msg.From = New MailAddress("")
- Msg.To.Add("")
- Msg.Subject = "Neue Radio-URL"
- mySmtpsvr.Send(Msg)
- MsgBox("Damit deine URL auch für andere nutzbar ist," & vbNewLine & "haben wir den Link per Mail erhalten." & vbNewLine & "Du möchtest dies nicht? dann sende mir eine Nachricht.", MsgBoxStyle.Information, Title:="Stream gesendet & Gespeichert!")
- End Sub
Es ist halt auch noch ein Kontaktformular integriert was diesen Stream auch per Mail absendet (noch nicht ganz fertig).
Ich und auch ein Kollege haben versucht den Fehler zu fixen aber dies hat nicht geklappt.
Das nächste Problem ist meine Trennung von den Sendern, ich wollte es über 2 Textboxen laufen lassen die in einen Tabcontrol drin sind nur folgender Fehler erscheint mir:
Spoiler anzeigen
Code:
Spoiler anzeigen
System.NullReferenceException wurde nicht behandelt.
HResult=-2147467261
Message=Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Source=EPVP Radio Player
StackTrace:
bei EPVP_Radio_Player.Form1.AdvantiumButton6_Click(Object sender, EventArgs e) in C:\Users\Bazs\Documents\Visual Studio 2010\Projects\EPVP Radio Player by malest\EPVP Radio Player\Form1.vb:Zeile 93.
bei System.Windows.Forms.Control.OnClick(EventArgs e)
bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
bei System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
bei System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
bei System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
bei System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
bei EPVP_Radio_Player.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81.
bei System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
bei System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
bei System.Threading.ThreadHelper.ThreadStart_Context(Object state)
bei System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
bei System.Threading.ThreadHelper.ThreadStart()
InnerException:
HResult=-2147467261
Message=Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Source=EPVP Radio Player
StackTrace:
bei EPVP_Radio_Player.Form1.AdvantiumButton6_Click(Object sender, EventArgs e) in C:\Users\Bazs\Documents\Visual Studio 2010\Projects\EPVP Radio Player by malest\EPVP Radio Player\Form1.vb:Zeile 93.
bei System.Windows.Forms.Control.OnClick(EventArgs e)
bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
bei System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
bei System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
bei System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
bei System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
bei EPVP_Radio_Player.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81.
bei System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
bei System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
bei System.Threading.ThreadHelper.ThreadStart_Context(Object state)
bei System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
bei System.Threading.ThreadHelper.ThreadStart()
InnerException:
Code:
VB.NET-Quellcode
- Private Sub abspielen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abspielen.Click
- Select Case ListBox1.SelectedItem.ToString
- Case "ILoveRadio.de"
- AxWindowsMediaPlayer1.URL = "http://87.230.53.70/iloveradio1.mp3"
- End Select
- Select Case ListBox2.SelectedItem.ToString
- Case "ELDOradio"
- AxWindowsMediaPlayer1.URL = "http://87.230.53.70/iloveradio1.mp3"
- End Select
- Timer1.Interval = 100
- Timer1.Enabled = True
- Dim TSpan As New TimeSpan
- StartZeit = DateTime.Now
- TSpan = DateTime.Now.Subtract(StartZeit)
- Label4.Text = TSpan.Hours & ":" & TSpan.Minutes & ":" & TSpan.Seconds
- Label4.Visible = True
- Label3.Visible = True
- End Sub
Ich habe auch schon versucht alles hin zu bekommen aber ich weiß nicht mehr was ich machen soll.
Radio-Player Modul >>1.0<<:
Download gibt es per PN
Fertigstellung: 100%
Download gibt es per PN
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Cybkill“ ()