asked on
void TWebModule1::Action3Post(TWebRequest *Request,TWebResponse *Response)
{
UnicodeString u,v,uu="";
TByteDynArray b;
char buff='a';
int n,m,w;
u = Request->ContentType;
n = Request->RawContent.Length;
m = Request->Files->Count;
b = Request->RawContent;
st2->Clear();
b.set_length(n);
st2->WriteData(Request->RawContent,Request->RawContent.Length);
st2->Position = soBeginning;
// Form1->Memo1->Lines = Request->ContentFields;
for(;;)
{
st2->Read(&buff,1);
uu +=buff;
if(buff==2)
{
for(;;)
{
st2->Read(&buff,1);
uu +=buff;
if(buff==0)
break;
}
break;
}
}
st2->SaveToFile(u"testpicture.jpg");
<div id="div1">
<form name="scanner" id="scannerForm" action="" method="post" enctype="multipart/form-data">
<label style ="margin-top:0px; font-size:50px;"for="barcodescan">Scan Barcode</label>
<input name="picture" type="file" id="barcodescan" accept="image/*;capture=camera">
</form>
</div>
<script>
document.getElementById("barcodescan").onchange = function() {
if( this.files.length != 0 ) {
document.getElementById("scannerForm").submit();
}
else {
alert("no barcode picked, please try again!");
}
}
</script>
Thanks roger