GDI+ Fehler Windows 2000

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    GDI+ Fehler Windows 2000

    Hallo !

    Bekomme diese Fehlermeldung -.-
    Das Programm holt sich bilder aus einem Temp verzeichnis und schreibt den zusatztext unten links auf das Foto und speichert dieses so ab



    under Windows 7 läufts

    mfg

    Codoptimierung kommt dann wenns funktioniert :D

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. Private prc As Process
    5. Sub hund()
    6. MsgBox("Keine weiteren Bilder gefunden!", MsgBoxStyle.Information)
    7. Timer1.Start()
    8. End Sub
    9. Dim PfadAufDemDevice As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Bilderpfad.txt")
    10. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    12. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    13. Dim i As Integer = 0
    17. For Each item In Directory.GetFiles(PfadAufDemDevice)
    18. i = i + 1
    19. Next
    21. If i = 0 Then
    22. Me.Hide()
    23. Else
    24. ListBox1.Items.Clear()
    25. Me.Show()
    26. Timer1.Stop()
    27. Timer2.Start()
    28. For Each item In Directory.GetFiles(PfadAufDemDevice)
    29. ListBox1.Items.Add(item)
    30. Next
    31. Try
    33. PictureBox1.Load(ListBox1.Items(0))
    35. Catch ex As Exception
    37. Timer1.Stop()
    38. Timer2.Start()
    40. MsgBox("Keine Bilder vorhanden!", MsgBoxStyle.Exclamation)
    42. End Try
    43. End If
    51. End Sub
    53. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    55. If ComboBox1.Text = "" Then
    56. MsgBox("Benutzer wählen!", MsgBoxStyle.Exclamation)
    57. Exit Sub
    58. End If
    60. Dim SpeicherPfad As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Benutzer\" & namenlabel.Text)
    61. Dim bmp As New Bitmap(PictureBox1.Image)
    62. Dim g As Graphics = Graphics.FromImage(bmp)
    63. Dim i As Integer = 1
    64. If zusatztb.Text = "" Then
    65. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution - 50), 200, 50))
    66. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    67. g.DrawString(DateTime.Now, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    68. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - (bmp.VerticalResolution - 60)))
    69. Else
    70. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution - 50), 300, 50))
    71. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution), 200, 50))
    72. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    74. g.DrawString(zusatztb.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - (bmp.VerticalResolution - 60)))
    75. g.DrawString(DateTime.Now, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    76. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - bmp.VerticalResolution + 10))
    77. End If
    79. Do While File.Exists(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    80. i += 1
    81. Loop
    83. bmp.Save(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    85. Try
    86. My.Computer.FileSystem.WriteAllText("Z:\Gruppe-EDV\Mathis\Domänen Programme\Programm Logs\Foto Import.txt", vbNewLine & "[" & DateTime.Now & "] Foto wurde importiert nach " & namenlabel.Text, True)
    87. Catch ex As Exception
    89. End Try
    92. File.Delete(ListBox1.Items(0))
    94. ListBox1.Items.Remove(ListBox1.Items(0))
    96. Try
    98. PictureBox1.Load(ListBox1.Items(0))
    100. Catch ex As Exception
    101. hund()
    102. Exit Sub
    103. End Try
    105. End Sub
    107. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    108. For Each items In New System.IO.DirectoryInfo(Application.StartupPath & "\resources\Benutzer").GetFiles()
    109. ComboBox1.Items.Add(items)
    110. Next
    111. Timer1.Start()
    112. End Sub
    114. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    115. namenlabel.Text = ComboBox1.Text
    116. End Sub
    118. Private Sub AnlegenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnlegenToolStripMenuItem.Click
    119. Process.Start("osk.exe")
    120. Dim Name As String = InputBox("Name eingeben: ")
    121. Dim SpeicherOrt As String
    123. If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    124. SpeicherOrt = FolderBrowserDialog1.SelectedPath
    125. End If
    126. Try
    129. My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\resources\Benutzer\" & Name, SpeicherOrt, False)
    130. For Each item In System.Diagnostics.Process.GetProcesses
    131. If item.ProcessName = "osk" Then
    132. item.Kill()
    133. End If
    134. Next
    135. MsgBox("Benutzer wurde angelegt!", MsgBoxStyle.Information)
    136. Catch ex As Exception
    137. MsgBox(ex.ToString)
    138. End Try
    139. End Sub
    141. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    143. Dim i As Integer = 0
    146. For Each item In Directory.GetFiles(PfadAufDemDevice)
    147. i = i + 1
    148. Next
    150. If i = 0 Then
    151. Me.Hide()
    152. Else
    153. Me.Show()
    154. Timer1.Start()
    155. Timer2.Stop()
    156. End If
    160. End Sub
    162. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    164. e.Cancel = True
    167. End Sub
    169. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    170. Process.Start(Application.StartupPath & "\resources\readme.pdf")
    171. End Sub
    173. Private Sub zusatztb_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zusatztb.Enter
    174. Process.Start("osk")
    175. End Sub
    177. Private Sub zusatztb_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zusatztb.Leave
    178. For Each item In System.Diagnostics.Process.GetProcesses
    179. If item.ProcessName = "osk" Then
    180. item.Kill()
    181. End If
    182. Next
    183. End Sub
    185. Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
    186. ComboBox1.Focus()
    187. End Sub
    188. End Class

    Du scheinst ein großer Freund von Try-Catch-Blöcken zu sein. Das ist Pfui (jedenfalls in 95% aller Fälle). Zudem hast du leere Catch-Zweige, setzt Pfade blind mit & zusammen (dafür gibs Path.Combine).
    Ob in einer Listbox ein Item existiert, fragt man über die Count-Eigenschaft der Listbox.Items ab.
    Der Fehler tritt offenbar beim Speichern des Image im Button1_Click-Event statt (steht in deiner Meldung)

    Fiel Fergnügen

    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    kikipetro schrieb:

    Aber wie fang ich an den fehler zu suchen ?
    Try / Catch raus, wenn es knallt, hast Du einen Fehler gefunden.
    Setze einen Haltepunkt in jede Prozedur (nacheinander) und arbeite sie schrittweise durch.
    Überprüfe, ob das Programm das macht, was es machen soll. Wenn nicht: Fehler gefunden.
    Sieh Dir den Inhalt von Variablen an. Stimmt er nicht: Fehler gefunden.
    Also los :!: :thumbsup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    okay, fehler muss hier liegen:


    VB.NET-Quellcode

    1. Do While File.Exists(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    2. i += 1
    3. Loop
    5. bmp.Save(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")




    denke mal eher am speichern... aber wie soll ich das bild sonst speichern ?

    Hi
    für Pfad-Verknüpfungen verwendet man System.IO.Path.Combine oder Äquivalentes. namenlabel.Text enthält gültige Werte? Du hast Schreibrechte im spezifizierten Pfad (gabs das unter Win2000 schon?). Für mehrfache einfache String-Verknüpfungen solltest du String.Concat verwenden. Übrigens wäre es günstig, kein allgemeingültiges Try-Catch zu verwenden, sondern beim Catch-Block z.B. IOException etc. abzufragen. Die Exceptions kannst du auf der MSDN oder im Object Browser ermitteln und entsprechend darauf reagieren.

    Hier wäre z.B. der Artikel für Image.Save:
    msdn.microsoft.com/de-de/library/ktx83wah.aspx

    Image.Save-Methode (String) (System.Drawing) schrieb:

    Das Bild wurde im falschen Bildformat gespeichert.

    – oder –

    Das Bild wurde in derselben Datei gespeichert, aus der es erstellt wurde.


    Gruß
    ~blaze~

Facebook
Telefonspende