msali
asked on
How to read Byte by Byte From Clipboard Image data?
Hi experts,
I have stored an image in clipboard. Now i want to read the image byte by byte so that i can break it into pieces and send it over the tcp/ip based network to another station, where this station will re-assamble the data and display it in its image box or picture box.
Thanks in advance
I have stored an image in clipboard. Now i want to read the image byte by byte so that i can break it into pieces and send it over the tcp/ip based network to another station, where this station will re-assamble the data and display it in its image box or picture box.
Thanks in advance
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Then calculate the size as you capture it!?
ASKER
Dear anthonyc,
This is exactly the problem i am facing. I do not know how to address the memory (DC). That is why i tried to place the img in the clipboard - assuming i might be able to access the clipboard memory. Listed below is the code of my cliping the image:
Sub CopyScreen(canvas As Object)
Dim screendc&
canvas.AutoRedraw = True
screendc = CreateDC("DISPLAY", "", "", 0&)
tempLong = StretchBlt(canvas.hdc, 0, 0, Screen.Width, Screen.Height, screendc, 0, 0, Screen.Width, Screen.Height, SRCCOPY)
tempLong = DeleteDC(screendc)
canvas.AutoRedraw = False
End Sub
Private Sub Timer1_Timer()
CopyScreen Me
Me.Caption = "Icu Uc Me - " & Counter
Counter = Counter + 1
End Sub
regards,
msa.
This is exactly the problem i am facing. I do not know how to address the memory (DC). That is why i tried to place the img in the clipboard - assuming i might be able to access the clipboard memory. Listed below is the code of my cliping the image:
Sub CopyScreen(canvas As Object)
Dim screendc&
canvas.AutoRedraw = True
screendc = CreateDC("DISPLAY", "", "", 0&)
tempLong = StretchBlt(canvas.hdc, 0, 0, Screen.Width, Screen.Height, screendc, 0, 0, Screen.Width, Screen.Height, SRCCOPY)
tempLong = DeleteDC(screendc)
canvas.AutoRedraw = False
End Sub
Private Sub Timer1_Timer()
CopyScreen Me
Me.Caption = "Icu Uc Me - " & Counter
Counter = Counter + 1
End Sub
regards,
msa.
ASKER
waiting for a reply.
thanks a mil
regards,
msa.