Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

DIB vom Clipboard in einen String schreiben
Autor: Conphuzor
Datum: 22.10.02 14:39
Hallo, ich moechte ein DIB, das im Clipboard liegt auslesen, und einem VBS COM Objekt mit auf den Weg geben (durch eine String Variable), da man mit VBS keinen Zugriff auf das Clipboard hat. Das ganze soll in einer Dll passieren - mit Text klappt das auch schon - bei bmp hab ich keine Ahnung. Hier ein bisschen Code(kann ich den mit Modifikationen verwenden ?): Danke Martin Private Const CF_TEXT = 1 Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long) Private Sub Form_Load() Dim hStrPtr As Long, lLength As Long, sBuffer As String OpenClipboard Me.hwnd hStrPtr = GetClipboardData(CF_TEXT) If hStrPtr <> 0 Then lLength = lstrlen(hStrPtr) If lLength > 0 Then sBuffer = Space$(lLength) CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength MsgBox sBuffer, vbInformation End If End If CloseClipboard End Sub

DIB vom Clipboard in einen String schreiben

653

Conphuzor

22.10.02 14:39

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen