Solved

Downloading binary

Posted on 2009-04-11
2
308 Views
Last Modified: 2013-11-11
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
Comment
Question by:ranski
2 Comments
 
LVL 18

Accepted Solution

by:
Matthew Kelly earned 500 total points
ID: 24124198
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
 

Author Comment

by:ranski
ID: 24124318
Great advice. Thanks
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

These days socially coordinated efforts have turned into a critical requirement for enterprises.
This article discusses how to create an extensible mechanism for linked drop downs.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
The goal of the tutorial is to teach the user how to live broadcast using Flash Media Live Encoder and connecting it to YouTube to broadcast. Log into your Youtube account, choose live stream settings, start live stream from Flash Media Live Enc…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question