Paste Clipboard Image

windows_mss · January 24th, 2007, 07:11 AM

how to paste the clipboard image to the web form using JavaScript or

ASP.NET,I Pasted the Clipboard Text, but i failed to paste the image,

i read article that Clipboard.GetData('Image') can get the image from

clipboard but i cant able to get it,

Temp is my Img Box id,

Code:

<html>
<head>
<script>
function CopyToClip()
{
var div = document.getElementById('Temp');
div.contentEditable = 'true';
var cR;
if (document.body.createControlRange) 
{
cR = document.body.createControlRange();
cR.addElement(div);
cR.execCommand('Copy');
}
div.contentEditable = 'true';
}
function PasteToClip()
{
var div = document.getElementById('Temp');
div.contentEditable = 'true';
var cR;
cImg = new Image (400,112);
var cImg1;
if (document.body.createControlRange) 
{
cR = document.body.createControlRange();
cR.addElement(div);
cImg=cR.execCommand('Paste');

if(cImg != null)
{
//Temp.src=cImg;
document.getElementById('Temp').src=cImg;
alert("Holding");

}
}
div.contentEditable = 'true';
}

</script>
</head>
<body bgcolor="white">
<div id="copythis">
</div>
<form>
<div id="DivtoCopy">
<img src="C:\JpgImg.jpg" id="Temp">
</div>
<input type="button" value="Copy2ClipBrd" onclick="CopyToClip()">
<input type="button" value="Paste4rmClip" onclick="PasteToClip();">
</form>
</body>
</html>

which control can able to hold image other than image box,

please help

thanks in advance

robertsnoog · July 20th, 2007, 02:10 AM

Here is some code that can work fine.

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2

Private Function SaveFormPic() As Picture
  Dim pic As StdPicture
  Set pic = Clipboard.GetData(vbCFBitmap)
  keybd_event vbKeyMenu, 0, 0, 0
  keybd_event vbKeySnapshot, 0, 0, 0
  DoEvents
  keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
  keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0
  DoEvents
  Set SaveFormPic = Clipboard.GetData(vbCFBitmap)
  Clipboard.SetData pic, vbCFBitmap
End Function

Private Sub Command1_Click()
  SavePicture SaveFormPic, "C:\MyPic.jpg" 'picture location
End Sub

http://www.softsea.com/

janetk · January 22nd, 2008, 06:24 AM

robertsnoog,
your example work fine, thanks

http://rbytes.net/soft/

tekn1q · February 22nd, 2008, 03:46 PM

Yeah

I just tried robertsnoog's code and it worked fine.

Thanks robert!

Discounted Softwares!!

codigo47 · October 27th, 2008, 01:47 PM

Excelent code, i will test it and tell you how it is work !!

http://www.neosoftwork.com