Leggere un file

[x69asterix]

ciao volevo sapere se dal lato client tramite applicazione win è possibile inserire in un txtbox il file letto è inviato dal web servizio
questo è il codice lato server.

per il client
mioservizio.GetFileStream(txtbox1.text)

 <WebMethod()> _
    Public Function GetFileStream(ByVal filespec As String) As String
       
        filespec = "C:\w\log.txt"

        Dim fullpath As String = Path.GetFullPath(filespec)
        Dim ext As String = Path.GetExtension(fullpath)
        Dim ContentType As String = ""

        Select Case ext
            Case ".pdf"
                ContentType = "Application/pdf"

            Case ".asf"
                ContentType = "video/x-ms-asf"

            Case ".avi"
                ContentType = "video/avi"

            Case ".doc"
                ContentType = "application/msword"

            Case ".txt"
                ContentType = "text/plain"

            Case ".zip"
                ContentType = "application/zip"

            Case ".xls"
                ContentType = "application/vnd.ms-excel"

            Case ".gif"
                ContentType = "image/gif"

            Case ".jpg", "jpeg"
                ContentType = "image/jpeg"

            Case ".wav"
                ContentType = "audio/wav"

            Case ".mp3"
                ContentType = "audio/mpeg3"

            Case ".mpg", "mpeg"
                ContentType = "video/mpeg"

            Case ".rtf"
                ContentType = "application/rtf"

            Case ".htm", "html"
                ContentType = "text/html"

            Case ".asp"
                ContentType = "text/asp"

            Case Else
                ContentType = "application/octet-stream"

        End Select


        My.Response.ContentType = ContentType
        '   My.Response.TransmitFile(filespec)
        My.Response.WriteFile(filespec)
        My.Response.Flush()
        My.Response.End()

        Return filespec

    End Function

[Jeremy75]

Forse intendevi fare una cosa del genere ...

TextBox1.Text=mioservizio.GetFileStream("Percorso del file")

ho capito male?

Facci sapere...
Ciao

[x69asterix]

Originariamente inviato da Jeremy75
Forse intendevi fare una cosa del genere ...
[code]


ho capito male?

Facci sapere...
Ciao

ciao,

TextBox1.Text=mioservizio.GetFileStream("Percorso del file")

ma il percorso del file è nel server, quindi quale percorso?
se eseguo così ottengo.

[Jeremy75]

quindi quale percorso?

e allora chiedo io a te .... a cosa serve il parametro filespec che hai dichiarato nella firma del WebMethod?
Ad ogni modo, il discorso non cambia, se vuoi recuperare il risultato di una funzione, la sintassi è quella che ti ho indicato.
Facci sapere...
Ciao

[x69asterix]

ciao,
ho provato sia con
TextBox1.Text=mioservizio.GetFileStream("c:\w\log. txt")
è ho provato anche a cambiare la funzione senza filspec
provo con

TextBox1.Text=mioservizio.GetFileStream()

ma il problema è sempre lo stesso, cioè l'eccezione descritta sopra, invece la txtbox non la popola.

[Jeremy75]

L'errore che hai mostrato dice così:
Il contenuto della risposta rilevato dal client è di tipo text/plain, invece del previsto text/xml .... quindi è, evidentemente, un problema di serializzazione.
Ad ogni modo, non capisco perchè non restituisci il contenuto del file(se è questo che vuoi ottenere) come risultato della funzione.
Facci sapere..
Ciao

[x69asterix]

e quindi se è un problema di serializzazione come vado avanti?

[x69asterix]

per tagliare la testa al toro puoi farmi un esempio lato server di come leggere e inviare un file al client?

[x69asterix]

<WebMethod()> _
    Public Function file() As String
        Dim myFileStream As IO.FileStream
        Dim myStreamReader As IO.StreamReader
        myFileStream = New IO.FileStream("C:\WebSite2\log.txt", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
        myStreamReader = New IO.StreamReader(myFileStream)
        Return (myStreamReader.ReadToEnd)
    End Function

[Jeremy75]