• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 318
  • Last Modified:

Downloading binary

Hello.

Just made a webcam application in flash cs3/actionscript 3. I want to be able to save bitmap data from the swf file as a jpg. I have pasted some working php code below. I would ideally like to have it in asp though as my server is based on that. Does anybody have any ideas  about doing this is asp. I have done quite a bit asp over the last few years but must admit this is beyond me.

Thanks in advance for any help.
if (isset($GLOBALS["HTTP_RAW_POST_DATA"]))
{
	// get bytearray
	$jpg = $GLOBALS["HTTP_RAW_POST_DATA"];
 
	// add headers for download dialog-box
	header('Content-Type: image/jpeg');
	header("Content-Disposition: attachment; filename=".$_GET['name']);
	echo $jpg;
}

Open in new window

0
ranski
Asked:
ranski
1 Solution
 
Matthew KellyCommented:
See if this helps you: http://forums.aspfree.com/asp-development-5/equivalent-to-php-s-http-raw-post-data-in-asp-40108.html

So something like below...

I have used that to save binary data stored as an image field in an SQL database to an actual .jpg file using the ADODB.Recordset object so you should be able to do it with the post data as well.
<%
Function RSBinaryToString(xBinary)
  Dim Binary
  If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
 
  Dim RS, LBinary
  Const adLongVarChar = 201
  Set RS = CreateObject("ADODB.Recordset")
  LBinary = LenB(Binary)
 
  If LBinary>0 Then
    RS.Fields.Append "mBinary", adLongVarChar, LBinary
    RS.Open
    RS.AddNew
      RS("mBinary").AppendChunk Binary
    RS.Update
    RSBinaryToString = RS("mBinary")
  Else
    RSBinaryToString = ""
  End If
End Function
 
 
 
 
Dim ByteCount, BinRead
ByteCount = Request.TotalBytes
If ByteCount > 0 Then
  BinRead = Request.BinaryRead(ByteCount)
  Response.ContentType = GetContentType("image/jpeg")
  Response.AddHeader "Content-Disposition", "attachment;filename=" + Request("name")
  Response.BinaryWrite(RSBinaryToString(BinRead))
  Response.End()
End If
%>
<html>
	<head><title>Raw Post Data</title></head>
	<body>
		<form action="binaryread.asp" method="post">
			<input type="text" name="txtTesting" />
			<input type="submit" name="btnSubmit" value="Submit" />
		</form>
	</body>
</html>

Open in new window

0
 
ranskiAuthor Commented:
Great advice. Thanks
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now