Цитата(gesper @ 23.12.2014, 12:21  ) | | Самому написать программу проблем нет, но это время, которое иногда глупо тратить, если уже что то есть. Какой смысл начинать что то лепить, если возможно есть "монитор" который покажет содержимое в буфере, после копирования и я успокоюсь на мысли, что не смогу раскодировать содержимое?) |
Смысл в том, чтобы разобраться какие апи доступа к буферу обмена тебе предоставляет технология, которую ты собираешься использовать для написания программы. Вот я тут набросал простой вьюер буфера, он, конечно не отображает всего и так как надо, но можно будет увидеть по крайней мере что в буфер закидывает та или иная программа, какие форматы использует и т. д. Там отображаются только текстовые форматы и если данные в виде стрима, то он читается как текст юникода, больше ничего не делал. Но мне все-таки непонятно, что тебе даст эта информация? Вряд ли ведь тема создавалась для того, чтобы
| Цитата(gesper @ 23.12.2014, 12:21 ) | | после копирования и я успокоюсь на мысли, что не смогу раскодировать содержимое?) |
На всякий случай прилагаю код кнопки, считывающей данные из буфера.| Код |
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.RichTextBox1.Clear()
Dim dobj = Clipboard.GetDataObject
For Each f In dobj.GetFormats(True)
With Me.RichTextBox1
.SelectionColor = Color.Blue
.SelectedText = f & vbNewLine
.SelectionColor = Color.Black
Dim data = dobj.GetData(f, True)
Dim dataastext As String
If TypeOf data Is IO.Stream Then
Dim stream = CType(data, IO.MemoryStream)
Using sr As New IO.StreamReader(stream, System.Text.Encoding.Unicode, True)
dataastext = sr.ReadToEnd
dataastext = dataastext.Substring(0, dataastext.Length - 1)
End Using
ElseIf f = "HTML Format" Then
dataastext = Clipboard.GetText(TextDataFormat.Html)
ElseIf f = "Rich Text Format" Then
dataastext = Clipboard.GetText(TextDataFormat.Rtf)
ElseIf f = "Unicode text" Then
dataastext = Clipboard.GetText(TextDataFormat.UnicodeText)
ElseIf TypeOf data Is String Then
dataastext = data
Else
dataastext = data.ToString
End If
.SelectedText = dataastext & vbNewLine & vbNewLine
End With
Next
End Sub
|
И документацию по датаобъекту, доступному в дотнете и использованному в программе. Просто для того, чтобы дать представление о методах работы с буфером. Но в других технологиях это может выглядеть и совсем иначе.
http://msdn.microsoft.com/ru-ru/library/system.windows.forms.dataobject%28v=vs.90%29.aspx |