Suche andere möglichkeit zum zwischenspeichern von bildern ..

SpezHacker · 1. August 2011, 10:34

Hallo liebe community,

Bin auf der suche nach einer möglichkeit Bilder anders zwischen zu speichern als im Clipboard .. Kann mir wer helfen ?
Das is mein code...

Spoiler anzeigen

Danke schonmal für eure Hilfe

MfG SH

Edit: Die Farbe ROT darf nur für Moderationshinweise verwendet werden

Bluespide · 1. August 2011, 11:14

Könntest du das genauer erklären. Woher kommen denn die Bilder? Willst du einen Screenshot zwischenspeichern oder beim verschieben oder was?

RodFromGermany · 1. August 2011, 11:19

Wenn das Programm sie halten soll, kannst Du ja eine

VB.NET-Quellcode

Dim bmp As Bitmap = New Bitmap(Image)
bmp.Save(PFAD, TYP)

draus machen und/oder sie auf Platte speichern.

SpezHacker · 1. August 2011, 11:34

die bilder kommen von einer webcam und werden später dann verschickt , jedoch hab ich bis jetzt nur die lösung gefunden mit dem clipboard was mich aber stört da man solang das programm läuft nichts kopieren bzw. einfügen kann

...

YaPh1l · 1. August 2011, 12:56

Nimm eine Variable wie von Rod vorgeschlagen. Oder falls du mehrere Bilder im Arbeitsspeicher halten musst, nimm eine List(Of Image).

Viele Grüße, Phil.

SpezHacker · 1. August 2011, 14:28

Komm grad garnich klar mit dem code hier .. der kopiert es in die zwischenablage ich weis aber nicht wie bzw. wo ich es abändern muss ..

Helft mir bitte :rolleyes:

Spoiler anzeigen

VB.NET-Quellcode

'###########################################
Public id As Integer = 0
Public hHwnd As Integer
'###########################################
Public Const SWP_NOZORDER As Short = &H4S
Public Const WS_CHILD As Integer = &H40000000
Public Const WS_VISIBLE As Integer = &H10000000
Public Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
Public Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
Public Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
Public Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
Public Const HWND_BOTTOM As Short = 1
Public Const SWP_NOMOVE As Short = &H2S
Public Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
Public Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
Public Const WM_CAP As Short = &H400S
'#################################################
Dim aident As Boolean = True
Dim col1, col2 As Color
Dim red1, green1, blue1, red2, green2, blue2, red3, green3, blue3 As Integer
Dim thold As Integer = Integer.Parse(50)
Dim ecolor As Color = Color.White
Dim ncolor As Color = Color.Red
Dim dr, dg, db, diff As Integer
Dim Op As Bitmap
Declare Function SMessage Lib "user32" Alias "SendMessageA" (ByVal hw As Integer, ByVal wm As Integer, ByVal wp As Integer, <MarshalAs(UnmanagedType.AsAny)> ByVal lp As Object) As Integer
Declare Function SWP Lib "user32" Alias "SetWindowPos" (ByVal hwd As Integer, ByVal hIA As Integer, ByVal a As Integer, ByVal b As Integer, ByVal ca As Integer, ByVal cb As Integer, ByVal wf As Integer) As Integer
Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
Public Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lwn As String, ByVal ds As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nh As Short, ByVal hwp As Integer, ByVal nID As Integer) As Integer
Public Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wd As Short, ByVal ln As String, ByVal cn As Integer, ByVal lv As String, ByVal cv As Integer) As Boolean
Public Sub Get_Webcam()
Dim ih As Integer = PictureBox1.Height
Dim iw As Integer = PictureBox1.Width
hHwnd = capCreateCaptureWindowA(id, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, PictureBox1.Handle.ToInt32, 0)
If SMessage(hHwnd, WM_CAP_DRIVER_CONNECT, id, 0) Then
SMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
SMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
SMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
SWP(hHwnd, HWND_BOTTOM, 0, 0, PictureBox1.Width, PictureBox1.Height, SWP_NOMOVE Or SWP_NOZORDER)
Else
DestroyWindow(hHwnd)
End If
PictureBox1.Image = ic()
End Sub
Private Function ic() As Bitmap
ic = Nothing
Dim data As IDataObject
SMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
data = Clipboard.GetDataObject()
If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
ic = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
End If
Return ic
End Function

m9898 · 1. August 2011, 15:25

Dann mach es eben so:

VB.NET-Quellcode

Private Function ic() As BitmapTry Dim a as string = clipboard.text
ic = Nothing
Dim data As IDataObject
SMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
data = Clipboard.GetDataObject()
If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
ic = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
End If
Return ic clipboard.text = aCatchReturn nothingEnd Try
End Function

Dann bleibt die Zwischenablage so wie sie ist.

SpezHacker · 1. August 2011, 16:27

funktioniert so nicht .. das bild wird in die zwischenablage kopiert -.- ...
gibts da keine lösung ? Es muss doch gehen das bild von der webcam nicht in der zwischenablage zu speichern ..

m9898 · 1. August 2011, 16:34

Bei deinem Code geht es ja auch nicht anders. Aber die Zwischenablage bekommt direkt nach dem Kopieren ihren ursprünglichen Inhalt zurück.

SpezHacker · 1. August 2011, 16:36

aber diese bilder bzw. video wird ja übertragen .. und solang es übertragen wird kann man da nichts anderes in der zwischenablage speichern .. das ist ja das problem ..

wenn keiner eine lösung für meinen code kennst kann mir ja vll. jemand helfen das bild der webcam von diesem beispiel per TCP zu übertragen ..
dotnet-snippets.de/dns/webcam-…box-anzeigen-SID1370.aspx

Bekomm das irgendwie ned hin

RodFromGermany · 1. August 2011, 17:53

Option Strict On => Bitmap statt Image
Dieses Testprogramm auf Grundlage Deines Codes funktioniert einwandfrei.

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bmp As Bitmap = ic()
End Sub
Private Function ic() As Bitmap
ic = Nothing
Dim data As IDataObject
'SMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
data = Clipboard.GetDataObject()
If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
ic = CType(data.GetData(GetType(System.Drawing.Bitmap)), Bitmap) ' hier Bitmap statt Image
ic.Save("c:\Temp\ttt.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
End If
Return ic
End Function

SpezHacker · 1. August 2011, 18:24

es hat auch so funktioniert nur das problem ist das es in der zwischenablage ist ... bitte genauer lesen ..

RodFromGermany · 1. August 2011, 18:27

Genau das macht Dein Code:

VB.NET-Quellcode

SMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0) ' hier wird das externe Programm gebeten, die Zwischenablage mit dem Bildinhalt zu befüllen.
data = Clipboard.GetDataObject()

Nach der Übertragung kannst Du natürlich das Clipboard löschen:

VB.NET-Quellcode

Clipboard.Clear()

SpezHacker · 1. August 2011, 18:29

aber wenn man in der zeit wo die webcam daten sendet etwas kopieren will z.B. einen text dann geht das nicht .. und ich will halt das das bild übertragen werden kann ohne die zwischenablage zu nutzen ... das ist ja mein problem .. -.-

RodFromGermany · 1. August 2011, 18:31

Dann musst Du sehen, dass Du dem externen Programm die Bildinformation anders entlocken kannst.
Bisher hast Du nur dies hier gezeigt:

VB.NET-Quellcode

SMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

was ich für absolut unelegant halte, um nicht grottenschlecht sagen zu müssen.

SpezHacker · 1. August 2011, 18:32

ja wie würdest du es den machen ? .. ich kein keine ahnung wie man es sonst machen soll -.-

wenn du dich damit so gut auskennst dann hilf mir bitte ... ich hab einfach keine ahnung mehr wie ich es machen soll -.-

RodFromGermany · 1. August 2011, 18:37

Wer/Was ist hHwnd aus der Zeile

VB.NET-Quellcode

SMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

Du kommunizierst doch mit diesem Fenster. Ich kenne es nicht.
Also lass was sehen, dann wird Dir geholfen.

SpezHacker · 1. August 2011, 18:38

ich hab den kompletten code für die kommunikation mit der webcam weiter oben gepostet ...

aber hier is der code nochmal :

Spoiler anzeigen

VB.NET-Quellcode

'###########################################
Public id As Integer = 0
Public hHwnd As Integer
'###########################################
Public Const SWP_NOZORDER As Short = &H4S
Public Const WS_CHILD As Integer = &H40000000
Public Const WS_VISIBLE As Integer = &H10000000
Public Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
Public Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
Public Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
Public Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
Public Const HWND_BOTTOM As Short = 1
Public Const SWP_NOMOVE As Short = &H2S
Public Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
Public Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
Public Const WM_CAP As Short = &H400S
'#################################################
Dim aident As Boolean = True
Dim col1, col2 As Color
Dim red1, green1, blue1, red2, green2, blue2, red3, green3, blue3 As Integer
Dim thold As Integer = Integer.Parse(50)
Dim ecolor As Color = Color.White
Dim ncolor As Color = Color.Red
Dim dr, dg, db, diff As Integer
Dim Op As Bitmap
Declare Function SMessage Lib "user32" Alias "SendMessageA" (ByVal hw As Integer, ByVal wm As Integer, ByVal wp As Integer, <MarshalAs(UnmanagedType.AsAny)> ByVal lp As Object) As Integer
Declare Function SWP Lib "user32" Alias "SetWindowPos" (ByVal hwd As Integer, ByVal hIA As Integer, ByVal a As Integer, ByVal b As Integer, ByVal ca As Integer, ByVal cb As Integer, ByVal wf As Integer) As Integer
Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
Public Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lwn As String, ByVal ds As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nh As Short, ByVal hwp As Integer, ByVal nID As Integer) As Integer
Public Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wd As Short, ByVal ln As String, ByVal cn As Integer, ByVal lv As String, ByVal cv As Integer) As Boolean
Public Sub Get_Webcam()
Dim ih As Integer = PictureBox1.Height
Dim iw As Integer = PictureBox1.Width
hHwnd = capCreateCaptureWindowA(id, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, PictureBox1.Handle.ToInt32, 0)
If SMessage(hHwnd, WM_CAP_DRIVER_CONNECT, id, 0) Then
SMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
SMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
SMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
SWP(hHwnd, HWND_BOTTOM, 0, 0, PictureBox1.Width, PictureBox1.Height, SWP_NOMOVE Or SWP_NOZORDER)
Else
DestroyWindow(hHwnd)
End If
PictureBox1.Image = ic()
End Sub
Private Function ic() As Bitmap
ic = Nothing
Dim data As IDataObject
SMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
data = Clipboard.GetDataObject()
If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
ic = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
End If
Return ic
End Function

RodFromGermany · 2. August 2011, 10:07

VB.NET-Quellcode

hHwnd = capCreateCaptureWindowA(id, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, PictureBox1.Handle.ToInt32, 0)

Du übergibst PictureBox1 als Darstellungsfenster.
Kannst Du PictureBox1.Image über VB nicht gleich auslesen?
Musst Du das Bild über die Zwischenablage zuweisen? Das kommt mir spanisch vor.

SpezHacker · 2. August 2011, 10:56

Ich beschäftige mich das erste mal mit der Webcam deshalb hab ich auch kein peil wie ich das anders lösen kann -.-
Will das unbedingt schaffen und wissen wie man das macht damit ich es für später weis und es auch verstehe .. aber komm mit dem code kein stück klar ..

Helft mir bitte

Suche andere möglichkeit zum zwischenspeichern von bildern ..

Suche andere möglichkeit zum zwischenspeichern von bildern ..

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben