Software that allows members to upload video

LANCEMAN Posts 1 Registration date Monday September 24, 2018 Status Member Last seen September 24, 2018 - Updated on Sep 24, 2018 at 05:41 AM
 Blocked Profile - Sep 24, 2018 at 04:49 PM
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!


1 response

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
dim strfilepath, projectname, strfrom
strfilepath = Uploader.Form("fullname")
projectname = Uploader.Form("project")
response.write(strfilepath &"<BR>")

if Uploader.Form("library")<>"" then
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."
' 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
file.filename = Uploader.Form("project") & "-" & file.filename
end if
File.SaveToDisk strfilepath

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(logfile,8,true,0)
'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>")

file.filename = file.filename
response.write(strfilepath & "-" & file.filename & "<BR>")

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

File.SaveToDisk strfilepath

End If
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
Set Files = Nothing
End If
If IsObject(mcolFormElem) Then
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
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)
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)))
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)))
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)))

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!