screencapture von 32bit auf 16bit?

[Bloober]

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.SpecialDirectories.Temp & "\pic.bmp")
            My.Computer.Network.UploadFile(My.Computer.FileSystem.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

[c2x]

Benutz einfach mal folgendes, denn Bilder vom JPG-Format sind kleiner als BMP-Dateien.
Convert Bitmap to Another Image Format (VB.NET)

[Bloober]

erstmal danke für deine Antwort ... aber in jpg umwandeln is nich so gut, jpg is ca. 50% größer als bmp .... aber wenn ichs in gif format umwandel könnte es klappen!

ich teste das mal und meld mich dann wider



edit: habs hinbekommen... hier der code falls jemand brauch:

Imports System.Drawing.Imaging
Module Funktionen
Sub Screenshot_Test2()
        Dim rect As Rectangle = Screen.AllScreens(0).Bounds
        Dim ici() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
        Dim ep As New EncoderParameters(1)
 
        
 
        ep.Param(0) = New EncoderParameter(Encoder.Quality, 25) '25% Qualität
 
        Using bmp As Bitmap = New Bitmap(rect.Width, rect.Height), g As  _
        Graphics = Graphics.FromImage(bmp)
            g.CopyFromScreen(0, 0, 0, 0, bmp.Size)
            bmp.Save(Application.StartupPath & "\Screenshot.jpg", ici(1), ep)
        End Using
 
    End Sub
End Module