Programm funktioniert nur beim Debuggen !

xd-franky-5 · 26. Mai 2013, 17:30

Hei Leute,
Und zwar bin ich jetzt endlich fertig mit meinem Programm und dann wollte ich die exe im bin/debug-Ordner starten und es ging nicht, es lädt immer kurz aber es erscheint keine Form und im Taskmanager startet auch kein Prozess. Ich hab auch schon ein neues Projekt gemacht und alles nochmal geschrieben aber ohne erfolg

Könnt ihr mir da vllt. Helfen ?

Mfg xd-franky-5

wertherchen · 26. Mai 2013, 17:34

So ganz ohne Code und nur mit Glaskugel, wird es schwer Dir zu helfen.

programmer71 · 26. Mai 2013, 17:34

Das ist der falsche Ordner. Du musst das Projekt erstellen...
Dann findest du es im bin\Release Ordner. Von da geht es, da dort notfalls alle DLLs mitgeliefert werden...

xd-franky-5 · 26. Mai 2013, 17:37

Ok aber das Projekt hat 9 Formen und der Code ist nicht gerade unkompliziert ! Ich denke aber es liegt an Form1 deshalb :

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports System.IO
Imports System.Speech
Imports System.Speech.Recognition
Imports System.Speech.Synthesis
Imports System.Threading
Class Form1
Private perfCounter As System.Diagnostics.PerformanceCounter
Private Function copystart()
My.Computer.FileSystem.WriteAllBytes("Hauptprogramm bY Frank.exe", My.Resources.Hauptprogramm_bY_Frank, False)
Return Nothing
End Function
Private Function copystart1()
My.Computer.FileSystem.WriteAllText("grammar.xml", My.Resources.grammar, False)
Return Nothing
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SAPI
SAPI = CreateObject("sapi.spvoice")
Timer2.Start()
If IO.File.Exists("database.dat") Then
Dim r As New IO.StreamReader("database.dat")
Dim txt As New TextBox
txt.Text = r.ReadToEnd
For i As Integer = 0 To txt.Lines.Count - 2
Form2.ListBox2.Items.Add(txt.Lines(i))
Next
r.Close()
End If
recognizer.SetInputToDefaultAudioDevice()
Dim grammar As New Grammar(GrammarFile, "thema")
recognizer.UnloadAllGrammars()
recognizer.LoadGrammar(grammar)
recognizer.RecognizeAsync(RecognizeMode.Multiple)
Timer1.Start()
perfCounter = New System.Diagnostics.PerformanceCounter
perfCounter.CategoryName = "Processor"
perfCounter.CounterName = "% Processor Time"
perfCounter.InstanceName = "_Total"
videoHandle = Me.CreateCaptureWindow(Me.PictureBox5.Handle)
Form2.Show()
Form2.Hide()
Form2.ShowInTaskbar = False
End Sub
Public videoHandle As IntPtr
Private Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Const EM_LINEFROMCHAR As Integer = &HC9
Const EM_LINEINDEX As Integer = &HBB
Private Declare Auto Function capCreateCaptureWindow Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hWndParent As IntPtr, ByVal nID As Integer) As IntPtr
Private Const WS_CHILD As Integer = &H40000000
Private Const WS_VISIBLE As Integer = &H10000000
Private Const WM_USER As Short = &H400S
Private Const WM_CAP_START As Short = &H400S
Private Const WM_CAP_EDIT_COPY As Integer = (WM_CAP_START + 30)
Private Const WM_CAP_DRIVER_CONNECT As Integer = (WM_CAP_START + 10)
Private Const WM_CAP_SET_PREVIEWRATE As Integer = (WM_CAP_START + 52)
Private Const WM_CAP_SET_OVERLAY As Integer = (WM_CAP_START + 51)
Private Const WM_CAP_SET_PREVIEW As Integer = (WM_CAP_START + 50)
Private Const WM_CAP_DRIVER_DISCONNECT As Integer = (WM_CAP_START + 11)
Public Function CreateCaptureWindow(ByRef hWndParent As IntPtr, Optional ByRef x As Integer = 0, Optional ByRef y As Integer = 0, Optional ByRef nWidth As Integer = 1000, Optional ByRef nHeight As Integer = 1000, Optional ByRef nCameraID As Integer = 0) As IntPtr
Dim previewHandle As IntPtr
previewHandle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, x, y, nWidth, nHeight, hWndParent, 1)
SendMessage(previewHandle, WM_CAP_DRIVER_CONNECT, nCameraID, 0)
SendMessage(previewHandle, WM_CAP_SET_PREVIEWRATE, 30, 0)
SendMessage(previewHandle, WM_CAP_SET_OVERLAY, 1, 0)
SendMessage(previewHandle, WM_CAP_SET_PREVIEW, 1, 0)
Return previewHandle
End Function
Public Function CapturePicture(ByRef nCaptureHandle As IntPtr) As System.Drawing.Image
My.Computer.Clipboard.Clear()
SendMessage(nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0)
Return My.Computer.Clipboard.GetImage
End Function
Public Sub Disconnect(ByRef nCaptureHandle As IntPtr, Optional ByRef nCameraID As Integer = 0)
SendMessage(nCaptureHandle, WM_CAP_DRIVER_DISCONNECT, nCameraID, 0)
End Sub
Public Sub connect(ByRef nCaptureHandle As IntPtr, Optional ByRef nCameraID As Integer = 0)
SendMessage(nCaptureHandle, WM_CAP_DRIVER_CONNECT, nCameraID, 0)
End Sub
Private GrammarFile As String = Application.ExecutablePath.Replace("Speechy bY Frank.EXE", "grammar.xml")
Dim xDoc As XDocument = XDocument.Load(GrammarFile)
Dim WithEvents recognizer As New SpeechRecognitionEngine()

Und der rest ist unnötig !
Und der Release ist bei mir leer !

Edit by hal2000:
- Expander eingefügt

progThis · 26. Mai 2013, 17:42

Du musst die DLL's mit in den Debug-Ordner packen,kann sein das du das weg gemacht hast oder so

programmer71 · 26. Mai 2013, 17:42

Du musst das Projekt erstellen!

Und hört auf mit dem Clusterfuck.
Nix mit DLLs nachliefern. Gewöhnt es euch gleich richtig an.

xd-franky-5 · 26. Mai 2013, 17:43

Ich habs erstellt und ich hab nichtmal DLLs

programmer71 · 26. Mai 2013, 17:45

Nochmal:
Release-Ordner unter Kompilieren in den Eigenschaften auf bin\Release stellen. Dann auf Erstellen>Projekt erstellen

xd-franky-5 · 26. Mai 2013, 17:48

des bin bin/release hab ich und ich finde nix mit 'Erstellen'

programmer71 · 26. Mai 2013, 17:48

Oben in der Menüleiste von VS.
Das Problem habe ich auch immer...

xd-franky-5 · 26. Mai 2013, 17:51

WTF bei mir steht oben nix mit Erstellen

programmer71 · 26. Mai 2013, 17:53

Das steht neben "Debug". Mach mal nen Screenshot.

progThis · 26. Mai 2013, 17:55

Unter Debuggen(Debug) und dann Projekt erstellen

Niko Ortner · 26. Mai 2013, 17:59

WTF bei mir steht oben nix mit Erstellen

Möglicherweise musst Du oben unter Extras -> Einstellungen den Eintrag "Erweiterte Einstellungen" auswählen.

Übrigens:
Arbeitest Du auf einem 64Bit-System? Da gibt's Probleme mit dem Load-Event. Tritt dort eine Exception auf, wird sie nicht angezeigt.
Verwende mal ein anderes Event (beispielsweise Shown).

Vielleicht auch nützlich:
Öffne mal die Ereignisanzeige von Windows. Da werden (zumindest bei Windows 8) auch unbehandelte Exceptions in der .Net-Runtime aufgelistet. Vielleicht findest Du da den StackTrace.

xd-franky-5 · 26. Mai 2013, 18:02

Ok, jetzt ist etwas im Release-Ordner aber die exe geht immer nocht nicht ich hab diese Sachen darin :

Und vllt. liegt es auch daran :

Spoiler anzeigen

Edit by hal2000:
- Expander eingefügt.

wenn ich das Programm debugge und das mache :

VB.NET-Quellcode

Process.Start(Application.ExecutablePath)
Application.Exit()

Dann beendet es das debuggen aber das Programm öffnet sich ! Why ?

Edit by hal2000:
- Doppelpost zusammengefügt.

Manawyrm · 26. Mai 2013, 20:32

Hör auf, auch nur ans Veröffentlichen deiner Software zu denken,
schmeiße deinen kompletten Code weg, und fang von vorne an.

Dein Code ist KOMPLETT unbrauchbar.

programmer71 · 26. Mai 2013, 20:35

Leider ja... Der Code ist am A****.
Sorry, aber fang neu an... Da ist alles für die Katz. Schau die ganzen Exceptions an...
Und gewöhne dir den System.IO Namespace an, statt dem My-Namespace.
Ich habe auch ein Tut darüber geschrieben. Und mach Option Strict On, wenn das noch nicht der Fall ist...
Der Code ist einfach nur Ranz...

Manawyrm · 26. Mai 2013, 20:39

Forms statisch anzeigen, Dateinamen mit Leerzeichen, by mit einem großen Y schreiben. (!!!!!)
Wer kam eig. auf die Ultra-Beschissene Idee, Videostreams über die Zwischenablage zu kopieren? Ich hab das schon öfters sehen müssen...

Den Rest des Codes will ich lieber gar nicht sehen. Ich möchte fast wetten, da ist dann noch Zeug mit FTP und anderen Lustigen Dingen drin :>

Gruß,
Manawyrm

xd-franky-5 · 26. Mai 2013, 20:39

Du bist echt hilfreich, ich weis gar nicht warum sie dich hier noch in dem Forum drin lassen. Und deine Bemerkungen tangieren mich nur Peripher :DD (wollt ich schon immer mal sagen). Und die Ganzen Exceptions sind mehrmals insgesamt sind es nur 4 verschiedene :

Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in mscorlib.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.ComponentModel.Win32Exception" ist in System.dll aufgetreten.
Speechy bY Frank.vshost.exe Information: 0 : SAPI does not implement phonetic alphabet selection.

Manawyrm · 26. Mai 2013, 20:41

ich habe dir viele verschiedene Dinge genannt, warum dein Code absolut unbrauchbar ist.
Behebe diese zunächst. Deine Probleme werden sich mit ziemlicher wahrscheinlich von selbst dadurch beheben.

Programm funktioniert nur beim Debuggen !

Programm funktioniert nur beim Debuggen !

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

8 Benutzer haben hier geschrieben