Grid view image upload

[wake]

I have followed the image upload sample in the help pages and it works fine from an a5w page, but I want to be able to do this from within a detail view.

My question is this. Where do I place the upload code? In the events section of the grid component? I obviously want this to be uploaded upon pushing the add button when adding a new record, but also when the save button is hit when modifying records.

I have setup my screenshot field as freeform layout with the following code:
<input type="file" name="FileToUpload"></input>

Below is the sample upload code that I want to fire and upload the image referenced in the freeform field control listed above. I am way off here?

<%a5
dim msg as c = ""
if eval_valid("cmd")
dim fn as C
fn = "[PathAlias.ADB_Path]\images\\" + FileToUpload.filename
file.from_blob(fn, FileToUpload.data)
msg = "<a href=\"/" + FileToUpload.filename + "\" target=\"_blank\">" + FileToUpload.filename + "</a> was uploaded<br /><br />"
tbl = table.open("[PathAlias.ADB_Path]\ImageDB.dbf")
tbl.enter_begin()
tbl.Image = fn
tbl.Name = FileToUpload.filename
tbl.Uploaddate = now()
tbl.enter_end(.t.)
tbl.close()
end if
%>


Any help would be much appreciated!
=wake

[wake]

Re: Grid view image upload

No one? Can this not be done.

Let me start over and ask the following questions:
1) Can you upload images from within a detail view grid?
2) If so can you point me to an example?

Maybe I rambled on a little to much in my post above.


Thanks again,
wake

[chucky3176]

Re: Grid view image upload

I'm in the same boat as the above poster.

I also need to be able to upload Jpeg files to a table field.

I hope there's somebody out there that can help us.

[Steve Wood]

Re: Grid view image upload

Mike,

The xbasic goes in the A5W page that holds the component. Place it at the very top, above all tags, inside its own xbasic block.

After that, there are two items to consider.

The line if eval_valid("cmd") will need to change. Instead of "cmd", you need to look at the source of the component in the browser and find the Name of the submit button when the Detail view is showing. Use that in place of cmd. It will be longer, like mycomponent_DetailView_Save.

Next, place the following code just after:

a5w_run_Component(tmpl_componentname)

x_componentname.Output.Body.DetailView_HTML = stritran(x_componentname.Output.Body.DetailView_HTML,"method=\"post\"","method=\"post\" enctype=\"multipart/form-data\"")

Where componentname is YOUR component name.

[EricN]

Re: Grid view image upload

Here is a possible alternative. All code is in the .a5w page.
http://msgboard.alphasoftware.com/al...ad.php?t=74282

[wake]

Re: Grid view image upload

Steve,
Thanks for the reply. One question though.

When you say:

Next, place the following code just after:

a5w_run_Component(tmpl_componentname)

x_componentname.Output.Body.DetailView_HTML = stritran(x_componentname.Output.Body.DetailView_HTML,"method=\"post\"","method=\"post\" enctype=\"multipart/form-data\"")

Do you mean just after the xbasic code at the very top of the page? When I try this I get an error as follows.

Error:Script: /cagsupporttickets/index.a5w line:16
a5w_run_component(tmpl_Main)
Variable "tmpl_Main" not found."

This is most likely because the tmpl_Main variable has not been declared yet.
That happens further down the page. Does this code go at the bottom of the page?


Thanks so much!
Wake

[Steve Wood]

Re: Grid view image upload

If it is useful, here is a select-all from an A5W page with an upload on a Grid main view. Note in green where the stritran() code is. This is an upload from main part of the Grid. To make it from the Detail, the stritran() just needs to reference the x_print_order.Output.Body.DetailView_HTML instead.

 [COLOR="Red"]<%a5

dim session.id as c
session.id = "10000" ' TEST VALUE
if eval_valid("print_order_Button_Submit")
	IF FileToUpload.filename<>""
		file.from_blob(FileToUpload.filename,FileToUpload.data)
	END IF
dta = "filename=" + FileToUpload.filename
record_update("[PathAlias.ADB_Path]\print_order.dbf","ID="+quote(session.id),dta)

end if

%>[/COLOR]
<html>
<head>

<%a5
Delete tmpl_print_order
DIM tmpl_print_order as P
tmpl_print_order = a5w_load_component("print_order")
'Following code allows you to override settings in the saved component, and specify the component alias (componentName property).
'Tip: Keep the componentName property short because this name is used in page URLs, and it will help keep the URLs short.
'Each component on a page must have a unique alias (componentName property).
with tmpl_print_order
	componentName = "print_order"
end with 
'=======================================compute the HTML for the Component=======================================
delete x_print_order
dim x_print_order as p
x_print_order = a5w_run_Component(tmpl_print_order)
'=============================================================================================================
if x_print_order.RedirectURL <> "" then 
	response.redirect(x_print_order.redirectURL)
	end
end if 
?x_print_order.Output.Head.JavaScript
?x_print_order.Output.Head.CSS_Link

[COLOR="DarkGreen"]x_print_order.Output.Body.Grid_HTML = stritran(x_print_order.Output.Body.Grid_HTML,"method=\"post\"","method=\"post\" enctype=\"multipart/form-data\"")[/COLOR]%>

<meta name="generator" content="Alpha Five HTML Editor Version 8 Build 1785-3109">
<title></title>
</head>
<body class="SunsetPageBODY">
<%a5 
a5w_include("header.a5w")
%>

<table width="940" border="0" bordercolor="#c0c0c0" cellpadding="10" cellspacing="10" background="" align=center bgColor=#ffffff>
  
  <tr>
    <td vAlign=top background="" colSpan=2 bgColor=#e8e8e8>
     <h1>Print Order</h1></td></tr>
	<tr>
    <td vAlign=top>
<table>
	<tr>
		<td><%A5 ?x_print_order.Output.Body.Grid_Echo %></td>
	</tr>
	<tr>
		<td><%A5 ?x_print_order.Output.Body.UpdateErrors %></td>
	</tr>
	<tr>
		<td><%A5 ?x_print_order.Output.Body.Search_HTML %></td>
	</tr>
	<tr>
		<td><%A5 ?x_print_order.Output.Body.Grid_HTML %></td>
	</tr>
	<tr>
		<td><%A5 ?x_print_order.Output.Body.DetailView_HTML	%></td>
	</tr>
</table>
</td>
	</tr>
</table><%a5 
a5w_include("footer.a5w")
%> 
</body></html>