Software that allows members to upload video

Posts
1
Registration date
Monday September 24, 2018
Last seen
September 24, 2018
-
I have been looking for an app, preferably a Wordpress plugin that allows members (membership site) to receive a request to upload a video from their mobile phones.

Kind of like an "upload testimonial / video review" plugin.

Any ideas out there... I have not found one that seems to work....

Thank you in advance for any guidance!

L
See more 

Your reply

1 reply

Posts
10940
Registration date
Monday June 3, 2013
Status
Moderator
Last seen
December 14, 2018
0
Thank you
This is a complex process, and you will have to publish something yourself. I am not aware of a turn key solution for this type of interaction. It is a nice stop gap between am's and pro's! I was reading about a wordpress add-in, but the page HIJACKED my browser and I had to terminate it! So I would be carefull about where you are looking. Have looked into "Creating" your own package?

Here is some code that will create an ASP page, that calls another file to work. Apply it to your environment:

<%@ Language=VBScript %>
<!-- #include file="upload.asp" -->
<%
' Create the FileUploader
Dim Uploader, File, strdev,textline
dim fso, logfile, textStreamObject
Set Uploader = New FileUploader
' This starts the upload process
Uploader.Upload()
dim strfilepath, projectname, strfrom
strfilepath = Uploader.Form("fullname")
projectname = Uploader.Form("project")
response.write(strfilepath &"<BR>")


if Uploader.Form("library")<>"" then
strfilepath="C:\INETPUB\WWWROOT\library\Library\"
else
strfilepath="C:\inetpub\wwwroot\jobcards\"
end if

response.write "<I>" & strfilepath & "</I>"

'******************************************
' Use [FileUploader object].Form to access
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************



' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
Response.Write "File(s) not uploaded."
Else
' Loop through the uploaded files
For Each File In Uploader.Files.Items

' Check where the user wants to save the file
If Uploader.Form("saveto") = "disk" Then

' Save the file
if Uploader.Form("library")<>"" then
file.filename = file.filename
textline= Uploader.Form("project") & "-" & file.filename
else
file.filename = Uploader.Form("project") & "-" & file.filename
end if
File.SaveToDisk strfilepath

'***********************************
logfile="c:\inetpub\wwwroot\library\library.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(logfile,8,true,0)
textStreamObject.WriteLine(textline)
'textStreamObject.WriteLine("Log Created-" & now() & "-")
'textstreamobject.writeline("Insertion Completed-" & now())
'***********************************************
textStreamObject.Close ' make sure you call the close method or the file will not be written
Set textStreamObject = Nothing





'************************************



ElseIf Uploader.Form("saveto") = "proposals" Then
response.write("<BR>saving to proposals<br>")

strfilepath="C:\Zdrive_root\BackOffice\Proposals\Proposals\"
file.filename = file.filename
response.write(strfilepath & "-" & file.filename & "<BR>")

file.filename = Uploader.Form("project") & "-" & file.filename

File.SaveToDisk strfilepath


End If
Next
End If
%><meta http-equiv="refresh" content="2;URL=library.asp"><!--#include file="header.txt"-->


Now, here is the code for upload.asp:

<%
Class FileUploader
Public Files
Private mcolFormElem

Private Sub Class_Initialize()
Set Files = Server.CreateObject("Scripting.Dictionary")
Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
End Sub

Private Sub Class_Terminate()
If IsObject(Files) Then
Files.RemoveAll()
Set Files = Nothing
End If
If IsObject(mcolFormElem) Then
mcolFormElem.RemoveAll()
Set mcolFormElem = Nothing
End If
End Sub

Public Property Get Form(sIndex)
Form = ""
If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
End Property

Public Default Sub Upload()
Dim biData, sInputName
Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
Dim nPosFile, nPosBound

biData = Request.BinaryRead(Request.TotalBytes)
nPosBegin = 1
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
nDataBoundPos = InstrB(1, biData, vDataBounds)

Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))

nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
nPos = InstrB(nPos, biData, CByteString("name="))
nPosBegin = nPos + 6
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
nPosBound = InstrB(nPosEnd, biData, vDataBounds)

If nPosFile <> 0 And nPosFile < nPosBound Then
Dim oUploadFile, sFileName
Set oUploadFile = New UploadedFile

nPosBegin = nPosFile + 10
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))

nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
nPosBegin = nPos + 14
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))

nPosBegin = nPosEnd+4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
Else
nPos = InstrB(nPos, biData, CByteString(Chr(13)))
nPosBegin = nPos + 4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
End If

nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
Loop
End Sub

'String to byte string conversion
Private Function CByteString(sString)
Dim nIndex
For nIndex = 1 to Len(sString)
CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
Next
End Function

'Byte string to string conversion
Private Function CWideString(bsString)
Dim nIndex
CWideString =""
For nIndex = 1 to LenB(bsString)
CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1)))
Next
End Function
End Class

Class UploadedFile
Public ContentType
Public FileName
Public FileData

Public Property Get FileSize()
FileSize = LenB(FileData)
End Property

Public Sub SaveToDisk(sPath)
Dim oFS, oFile
Dim nIndex

If sPath = "" Or FileName = "" Then Exit Sub
If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

Set oFS = Server.CreateObject("Scripting.FileSystemObject")
If Not oFS.FolderExists(sPath) Then Exit Sub

Set oFile = oFS.CreateTextFile(sPath & FileName, True)

For nIndex = 1 to LenB(FileData)
oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
Next

oFile.Close
End Sub

Public Sub SaveToDatabase(ByRef oField)
If LenB(FileData) = 0 Then Exit Sub

If IsObject(oField) Then
oField.AppendChunk FileData
End If
End Sub

End Class
%>



I hope this helps!

Respond to ac3mark