Image-Object prüfen ob es <> dem Clipboard.GetImage ist

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von BlaXun.

    Image-Object prüfen ob es <> dem Clipboard.GetImage ist

    Hallo zusammen.
    habe mir mal die VS 2010 Express Version gesaugt und wollt eigentlich nur ein wenig testen.
    Nun beschäftige ich mich gerade mit dem Clipboard (der Zwischenablage)

    Ich möchte im Grunde Inhalte aus dem Clipboard in mehrere (je nach Typ) Arrays schreiben.

    Ein Problem habe ich beim Image-Typ.
    Wie prüfe ich am besten ob sich das Image Object im Clipboard von dem dass ich zuletzt abgerufen habe unterscheidet?

    Mein bisheriger Quelltext (alle 500ms durch einen Timer aufgerufen [geht das evtl. auch eleganter?]) sieht so aus:

    VB.NET-Quellcode

    1. Private Sub CheckClipboard(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTick.Tick
    3. If (Clipboard.ContainsText) Then
    4. If ((curText <> Clipboard.GetText)) Then
    6. ReDim Preserve txtArr(txtArr.Count)
    7. ReDim Preserve typeArr(typeArr.Count)
    8. txtArr(txtArr.Count - 2) = Clipboard.GetText
    9. typeArr(typeArr.Count - 2) = "Text"
    10. If (Clipboard.GetText.ToString.Length > 15) Then
    11. listContent.Items.Add("Text - " & Clipboard.GetText.ToString.Substring(0, 14))
    12. Else
    13. listContent.Items.Add("Text - " & Clipboard.GetText)
    14. End If
    16. curText = Clipboard.GetText
    17. End If
    19. ElseIf (Clipboard.ContainsImage) Then
    21. If Not (curImg Is Nothing) Then
    23. If Not (curImg Is Clipboard.GetImage) Then
    24. ReDim Preserve imgArr(imgArr.Count)
    25. ReDim Preserve typeArr(typeArr.Count)
    26. imgArr(imgArr.Count - 2) = Clipboard.GetImage
    27. typeArr(typeArr.Count - 2) = "Image"
    28. listContent.Items.Add("Image - " & Clipboard.GetImage.Tag)
    29. curImg = Clipboard.GetImage.Clone
    30. End If
    32. Else
    33. ReDim Preserve imgArr(imgArr.Count)
    34. ReDim Preserve typeArr(typeArr.Count)
    35. imgArr(imgArr.Count - 2) = Clipboard.GetImage
    36. typeArr(typeArr.Count - 2) = "Image"
    37. listContent.Items.Add("Image - " & Clipboard.GetImage.Tag)
    38. curImg = Clipboard.GetImage
    39. End If
    41. End If
    42. End Sub


    Dass ich besser abfragen könnte welcher Typ sich in der Zwischenablage befindet ist mir bewusst, ist hier aber erstmal vollkommen egal.
    Der farbig hervorgehobene Quelltext ist mein Sorgenkind.

    Bisherige Versuche waren:

    • über .GetHashCode zu vergleichen
    • über einen md5 checksum vergleichen...doch leider erfordert md5.create ein Byte-Array und ich weiß nicht wie ich dieses aus einem Image erzeuge
    • über Breite und Höhe vergleichen (was natürlich total dämlich wäre)
    • über .Pallette vergleichen (auch dies bringts nicht wirklich)
    Wäre über ein wenig Hilfe sehr erfreut :)
    Wünsche zudem einen guten Start ins Wochenende :thumbsup:

    VB.NET-Quellcode

    1. Dim ms As New IO.MemoryStream()
    2. Image.Save(ms,Imaging.ImageFormat.DASFORMAT)
    3. Dim bytes() As Byte = ms.ToArray()
    4. 'und schon hast du deine Bytes...(du könntest den Hash Code auch aus den Farbwerten generieren -> LockBits)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Bin mir recht sicher dass ich es so ausprobiert habe...und...wie gesagt...es scheint als würde sich das Image im Clipboard dauerhaft ändern...daher kann ich hier nicht mit GetHash oder Equals arbeiten :(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BlaXun“ ()

Facebook