Quantcast
Channel: upload e web services
Viewing all articles
Browse latest Browse all 2

upload e web services

0
0
olá pessoal peguei um exemplo de upload na net com web services
mas eu até agora estou apanhando desse script

chamando o web services
dim aService1 as new Service1()
        dim ss as byte = Convert.ToBase64String(myFile.PostedFile)
        dim aBoolean as Boolean = aService1.UploadFile(myFile.PostedFile.Filename, ss, "C:\Inetpub\wwwroot\web\arquivos\", "")

tipo queria saber qual informação.. eu passo nesse parametro e como faço para fazer isso
qual dado eu tenho q passar aqui nesse objfile e como eu faço para  converter
UploadFile(ByVal strFileName As String, ByVal objFile As Byte(), ByVal strCaminho As String, ByVal strReturn As String)


Public Function UploadFile(ByVal strFileName As String, ByVal objFile As Byte(), ByVal strCaminho As String, ByVal strReturn As String) As Boolean

        Dim bolReturnStatus As Boolean = False

        Dim objFileStream As FileStream


        Try

            'creates the file by opening and setting the fileaccess to write
            objFileStream = File.Open(strCaminho & strFileName, FileMode.Create, FileAccess.Write)

            'byte count
            Dim lngLen As Long = objFile.Length

            'Write the file
            objFileStream.Write(objFile, 0, CType(lngLen, Integer))

            'clears the buffer and writes any buffered data
            objFileStream.Flush()

            'close the file so it can be access by other files
            objFileStream.Close()

            'return a successful upload status
            bolReturnStatus = True


        Catch exc As System.UnauthorizedAccessException
            'Account does not have enough access to create the file, do to either login or system permissions
            strReturn = "Unauthorized Access Exception Occurred. Error: " & exc.Message.ToString

        Catch exc As Exception
            'catchall error handler
            strReturn = "Exception Occurred. Error: " & exc.Message.ToString

        Finally

            'cleanup just in case
            If Not objFileStream Is Nothing Then
                objFileStream.Close()
            End If

        End Try

        Return bolReturnStatus

    End Function


quem poder me ajudar. .eu agradeço
meu email/msn trajanowilliam@msn.com

Viewing all articles
Browse latest Browse all 2

Latest Images

Trending Articles





Latest Images