Announcement

**2020rob** · 12-10-2008, 07:14 PM

NEED HELP - Upload File to Document Catalog & Server

BUMP

I have tried seamingly everything at this point. Here is a summary:

I have a dialog component named fileupload with the following fields:

vDc_type
vDc_title
vDc_desc
vDc_keywords
vDc_date
vDc_author
vDc_file

A have a entered the following code in the vDc_file freeform layout:

<input type="file" name="FileToUpload" >

I have the following code in my AfterValidate:

if FileToUpload.filename=""
vDc_file="No file"

else
vDc_file="[PathAlias.ADB_Path]\Documents\\"+FileToUpload.filename
file.From_blob(vDC_file, FileToUpload.data)
end if

tbl=table.open("[PathAlias.ADB_Path]\doc_cat.dbf")
tbl.enter_begin()
tbl.Dc_type=(CurrentForm.Controls.vDc_type.value)
tbl.Dc_name=(CurrentForm.Controld.vDc_file.value)
tbl.Dc_desc=(CurrentForm.Controls.vDc_desc.value)
tbl.Dc_keywords=(CurrentForm.Controls.vDc_keywords.value)

tbl.enter_end(.t.)
tbl.close()

The fileupload dialog component has been added to an a5w page named fileupload.a5w. Here is the source:

<html>
<head>

<%a5
Delete tmpl_fileupload
DIM tmpl_fileupload as P
tmpl_fileupload = a5w_load_component("fileupload")
'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_fileupload
componentName = "fileupload"
end with
'=======================================compute the HTML for the Component=======================================
delete x_fileupload
dim x_fileupload as p
x_fileupload = a5w_run_Component(tmpl_fileupload)
'=============================================================================================================
if x_fileupload.RedirectURL <> "" then
response.redirect(x_fileupload.redirectURL)
end
end if
?x_fileupload.Output.Head.JavaScript
?x_fileupload.Output.Head.CSS_Link
%>
<%A5 ?x_fileupload.Output.Body.Dialog_HTML = stritran(x_fileupload.Output.Body.Dialog_HTML,"method=\"post\"","method=\"post\" enctype=\"multipart/form-data\"")
%>


<link rel="stylesheet" type="text/css" href="file:///C:/Program Files/a5v9/css/Modern/style.css">


<meta name="generator" content="Alpha Five HTML Editor Version 9 Build 1888-3221">
<title></title>
</head>
<body>
<p><br>
<table>
<tr>
<td><%A5 ?x_fileupload.Output.Body.Dialog_Echo %></td>
</tr>
<tr>
<td><%A5 ?x_fileupload.Output.Body.Xbasic_Code_Errors %></td>
</tr>
<tr>
<td><%A5 ?x_fileupload.Output.Body.Dialog_HTML %></td>
</tr>
</table></p>
</body></html>

I am getting the following error message and needless to say nothing is being uploaded or added to my document catalog table.

ERROR MESSAGE:

False

Errors in: event.AfterValidate code:
Not found
FileToUpload.filename subelement not found.

**jkletrovets** · 12-10-2008, 10:39 PM

Re: Upload File to Document Catalog & Server

Robert

While I have not done this myself yet - I have seen many posts on the board about this subject. I think if you do an advanced search for just the App Server V9 section of the board on the words "upload file" you will get quite a few hits.

Also, Pat Bremkamp made this post recently that is pretty complete. It pertains to photos but I am pretty sure uploading documents correlates nicely.

Regards,

Jeff

**Pat Bremkamp** · 12-11-2008, 12:01 AM

Re: Upload File to Document Catalog & Server

Robert,

Instead of putting the path and filename in the table, I suggest you prefix the document name with the doc_id. Otherwise, if you let clients upload their own documents, you will get three different people trying to upload "document1".

Then load all the docs into, for example, A5webroot/docs, and the first three documents will be named (assuming a doc id of "D00001" autoincrementing)

D00001.mydoc.pdf
D00002.mydoc.pdf
D00003.document1.doc

and so on.

To retrieve them, just look for the doc id. You don't need to know the rest.

Pat

**2020rob** · 12-11-2008, 12:17 AM

Re: Upload File to Document Catalog & Server

Thanks Pat and Jeff,

I will at the Doc ID to the file name. Also, I have completed an exhaustive review of EVERY post relating to file upload. I can't seem to figure it out.

Pat...do you have any suggestions?

Thanks.

**Pat Bremkamp** · 12-11-2008, 12:43 AM

Re: Upload File to Document Catalog & Server

Robert,

Try putting the code in the page rather than in a dialog. Here's page source from one of my applications. The page is shown in the attachment.
The dialog component is just a multiselect dropdown populated with filefind.get() to show the uploaded documents.

Code:

 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd[/URL]">
<html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]" xml:lang="en" lang="en"><head>
<%a5
'==== session variable for a selected attachment
if eval_valid("session.SelectedFile")=.f.
dim session.SelectedFile as C = "None"
end if
'==== setup for an upload
Dim session.Message as C = "Upload Supporting Documents"
if eval_valid("cmd")
file.from_blob("D:\A5WAS\Pages\Uploads\\"+session.car.id+"."+FileToUpload.filename, FileToUpload.data)
if file.size("D:\A5WAS\Pages\Uploads\\"+session.car.id+"."+FileToUpload.filename")=0
session.Message = "Please use the Browse button to navigate to the file before uploading."
else
session.Message = "<a href=\"/" + FileToUpload.filename + "\" target=\"_blank\">" + FileToUpload.filename + "</a> was uploaded."
'==== record that this CAR has attachments
tbl=table.open("[PathAlias.ADB_Path]\car_log")
indx=tbl.index_primary_put("CAR_Id")
vRecNo=tbl.fetch_find(session.CAR.Id)
if vRecNo>0 'was found
 tbl.change_begin()
 tbl.Attach=.t.
 tbl.change_end()
end if
tbl.close()
end if
end if
%>
<%a5
Delete tmpl_CAR_Attach
DIM tmpl_CAR_Attach as P
tmpl_CAR_Attach = a5w_load_component("CAR_Attach")
with tmpl_CAR_Attach
 componentName = "CAR_Attach"
end with 
delete x_CAR_Attach
dim x_CAR_Attach as p
x_CAR_Attach = a5w_run_Component(tmpl_CAR_Attach)
if x_CAR_Attach.RedirectURL <> "" then 
 response.redirect(x_CAR_Attach.redirectURL)
 end
end if 
?x_CAR_Attach.Output.Head.JavaScript
?x_CAR_Attach.Output.Head.CSS_Link
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="generator" content="Alpha Five HTML Editor Version 8 Build 1173-3034" />
<title>CAR Attachments</title>
<link href="css/calmax/pagestyle.css" rel="stylesheet" type="text/css" />
</head>
<body class="CalMaxPageBODY">
<p class="closer"><a href="javascript:window.close();">Close Window</a></p>
<h3><%a5 ?session.Message %></h3>
<p><form action="<%a5 ?request.script_name %>" method ="post" enctype="multipart/form-data">
<input type="file" name="FileToUpload">&nbsp;<input type="submit" name="cmd" value="Upload File"></form></p>
<p><%A5 ?x_CAR_Attach.Output.Body.Xbasic_Code_Errors %></p>
<p><%A5 ?x_CAR_Attach.Output.Body.Dialog_HTML %></p>
<p>The selected attachment is <%a5 ?session.SelectedFile %></p>
<p><a href="<%a5 ?session.SelectedFile %>" target="_blank">&nbsp;Open the selected attachment</a></p>
<p><a href="Attach_Delete.a5w?vFrom=CAR">&nbsp;Delete the selected attachment</a></p>
</body></html>

Pat

**2020rob** · 12-11-2008, 01:12 AM

Re: Upload File to Document Catalog & Server

Thanks Pat. I will give this a try.

Announcement

The Alpha Software Forum Participation Guidelines

Upload File to Document Catalog & Server

Upload File to Document Catalog & Server

Comment

Comment

Comment

Comment

Comment

Comment