Huhu,
ich bin momentan dabei ein etwas größeres programm zu schreiben... Schön und gut nur leider stoße ich momentan auf ein paar doofe fehlerchen...
Das Problem:
Ich habe ein bild das aus dem internet heruntergeladen wird und dann im Windows tmp landet und dann in eine rtb eingefügt wird.
Leider kann ich das temporäre png bild aus dem internet das dann umgewandelt in bmp wird nicht löschen
Dabei habe ich doch das bild mit
geschlossen...
Code:
ich bin momentan dabei ein etwas größeres programm zu schreiben... Schön und gut nur leider stoße ich momentan auf ein paar doofe fehlerchen...
Das Problem:
Ich habe ein bild das aus dem internet heruntergeladen wird und dann im Windows tmp landet und dann in eine rtb eingefügt wird.
Leider kann ich das temporäre png bild aus dem internet das dann umgewandelt in bmp wird nicht löschen
Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten.
Zusätzliche Informationen: Der Prozess kann nicht auf die Datei "C:\Users\SpieleArena\AppData\Local\Temp\mcskulltmp.png" zugreifen, da sie von einem anderen Prozess verwendet wird.
Dabei habe ich doch das bild mit
geschlossen...
Code:
VB.NET-Quellcode
- RichTextBox2.Clear()
- While Not usertmp = useriwas
- Using client As New Net.WebClient
- Dim reqparma As New Specialized.NameValueCollection
- reqparma.Add("user", user)
- reqparma.Add("pass", pass)
- reqparma.Add("do", "11")
- reqparma.Add("uuid", arraytmp(usertmp))
- Dim responsebytesa = client.UploadValues("http://" + server + "/spieleinterface.php", "POST", reqparma)
- Dim username = (New Text.ASCIIEncoding).GetString(responsebytesa)
- Dim reqparm As New Specialized.NameValueCollection
- reqparm.Add("user", user)
- reqparm.Add("pass", pass)
- reqparm.Add("do", "13")
- reqparm.Add("name", username)
- Dim responsebytes = client.UploadValues("http://" + server + "/spieleinterface.php", "POST", reqparm)
- Dim bytearray() As Byte = responsebytes
- Dim tmpimg As Image
- Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(bytearray)
- tmpimg = System.Drawing.Image.FromStream(ms)
- tmpimg.Save(IO.Path.GetTempPath + "mcskulltmp.png")
- Console.WriteLine(IO.Path.GetTempPath)
- Dim img = Image.FromFile(IO.Path.GetTempPath + "mcskulltmp.png")
- If Not My.Computer.FileSystem.FileExists(IO.Path.GetTempPath + "mcskulls_" + usertmp.ToString + ".bmp") Then
- img.Save(IO.Path.GetTempPath + "mcskulls_" + usertmp.ToString + ".bmp")
- End If
- Dim Bmap As New Bitmap(IO.Path.GetTempPath + "mcskulls_" + usertmp.ToString + ".bmp")
- Clipboard.SetImage(Bmap)
- RichTextBox2.Paste()
- Clipboard.Clear()
- tmpimg.Dispose()
- img.Dispose()
- Snooze(0.5)
- My.Computer.FileSystem.DeleteFile(IO.Path.GetTempPath + "mcskulltmp.png")
- usertmp = usertmp + 1
- End Using
- End While
- Clipboard.Clear()