Android Question upload video failure with webservice

[xwz]

when I upload a image with webservice, always succeed.
But when I upload a video, sometimes succeed, sometime failure.
When the video lasts shortly, about 2-3 seconds, succeed.
when the video lasts more than 4 seconds, failure.

maybe the video file is too much bigger to upload.

thanks

error message shows:

"The root element for the request could not be determined. When RoutingStyle is set to RequestElement, SoapExtensions configured via an attribute on the method cannot modify the request stream before it is read. The extension must be configured via the SoapExtensionTypes element in web.config, or the request must arrive at the server as clear text."

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.IO
Imports System.Web.AspNetHostingPermission
Imports Newtonsoft.Json
Imports System.Net

' 若要允许使用 ASP.NET AJAX 从脚本中调用此 Web 服务，请取消注释以下行。
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="webpad")> _
<Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<SoapDocumentService(RoutingStyle:=SoapServiceRoutingStyle.RequestElement)> _
<ToolboxItem(False)> _
Public Class webpad
    Inherits System.Web.Services.WebService
 
        <WebMethod> _
    Public Function upfile(vstring As String, vbizno As String, vfile As String, vnet As String, vftpport As String, vdbname As String, vftplogin As String, vftpcode As String) As String
        Dim iInt As Integer = 1, fileStream As FileStream = Nothing

        vnet = "127.0.0.1"
        If FtpFileFind("ftp://" & vnet & ":" & deCode(vftpport) & "/" & deCode(vdbname) & "/cloud/" & vbizno.Substring(0, 4) & "/" & vbizno.Substring(0, 6) & "/" & vbizno & "/", vfile, deCode(vftplogin), deCode(vftpcode)) = True Then
            Return aryLast(vfile, ".")
        Else
            Try
                Dim fileByte() As Byte = Convert.FromBase64String(vstring)
                Dim mmStream As New MemoryStream(fileByte)

                pathmade("ftp://" & vnet & ":" & deCode(vftpport) & "/" & deCode(vdbname) & "/cloud", vftplogin, vftpcode)
                pathmade("ftp://" & vnet & ":" & deCode(vftpport) & "/" & deCode(vdbname) & "/cloud/" & vbizno.Substring(0, 4), vftplogin, vftpcode)

                pathmade("ftp://" & vnet & ":" & deCode(vftpport) & "/" & deCode(vdbname) & "/cloud/" & vbizno.Substring(0, 4) & "/" & vbizno.Substring(0, 6), vftplogin, vftpcode)
                pathmade("ftp://" & vnet & ":" & deCode(vftpport) & "/" & deCode(vdbname) & "/cloud/" & vbizno.Substring(0, 4) & "/" & vbizno.Substring(0, 6) & "/" & vbizno, vftplogin, vftpcode)

                fileStream = New FileStream(System.Web.Hosting.HostingEnvironment.MapPath("~/" & deCode(vdbname) & "/cloud/") & vbizno.Substring(0, 4) & "/" & vbizno.Substring(0, 6) & "/" & vbizno & "/" & vfile, FileMode.Create, FileAccess.ReadWrite)
                mmStream.WriteTo(fileStream)

                mmStream.Close()
                fileStream.Close()
                fileStream.Dispose()
                Return aryLast(vfile, ".")
            Catch ex As Exception
                Return ex.ToString ' "系统错误！"
            End Try
        End If
    End Function
End Class

Dim SOAP As String,upfile As HttpJob
    upfile.Initialize("upfile", Me)
            SOAP="<?xml version='1.0' encoding='utf-8'?><soap12:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap12='http://www.w3.org/2003/05/soap-envelope'><soap12:Body><upfile xmlns='webpad'><vstring>" & strFile & "</vstring><vbizno>" & m00_public.pPic.Get("bizno") & "</vbizno><vfile>" & VideoFileName & "</vfile><vnet>" & m00_public.pip & "</vnet><vftpport>" & m00_public.pportftp & "</vftpport><vdbname>" & m00_public.pDbname & "</vdbname><vftplogin>" & m00_public.pftplogin & "</vftplogin><vftpcode>" & m00_public.pFtpCode & "</vftpcode></upfile></soap12:Body></soap12:Envelope>"
            upfile.PostString("http://" & m00_public.pIp & ":" & m00_public.pPortWeb & "/webpad.asmx", SOAP)
            upfile.GetRequest.SetHeader("SOAPAction", "http://" & m00_public.pIp & ":" & m00_public.pPortWeb & "/webpad.asmx/upfile")
            upfile.GetRequest.SetContentType("text/xml; charset=utf-8")

 

[Erel]

This is not the correct way to post questions.
1. Use code tags.
2. User regular fonts.

 

[xwz]

thanks for your prompt reply.
I have reedit the post thread above

 

[Erel]

Tip: smart strings will make your code much simpler.

How are you uploading the file itself?

 

[xwz]

hi,
I want to upload a file (.jpg/.mp4) from client mobile (B4A) to server (.net) with webservice soap.
It's always succeed with jpg while failed with mp4
Do you have any examples, both client and server? or you have any best ways instead of soap?

thanks/xwz

 

[Erel]

[Server] Upload files from your B4A app to your B4J server over the internet

SOAP is bad for file transfers (as well as any other task). Why convert a large file to a huge XML?

 

[xwz]

sorry ,I'm fresh man and only know b4a.
how can i upload files from b4a app to server (.net) over the internet?