asp.net senza interfaccia

[Dheed]

Salve,non conosco praticamente nella riguardo a questo linguaggio,ma vorrei sapere se c'è un modo per creare una applicazione ftp senza interfaccia.
Io dovrei creare qualcosa che si colleghi a un server e invii sempre lo stesso file una volta chiamata da un'altra applicazione.
Girando un po' su internet ho trovato un sacco di codice che si riferiscono all'asp.net o vb.net,solo che io non ho bisogno di una interfaccia utente...mi scuso in anticipo se scrivo sulla sezione sbagliata.
Grazie

[djciko]

fai una windows form che alla fine di tutto cio' che deve fare, si chiude.
(sarebbe professionale fare un web/win service, ma non e' il caso se sei all'inizio)

se necessiti di aiuto in questo ti sposto nel forum apposito

[Dheed]

Si mi servirebbe un aiutini,più che altro come ci si collega a un server...

[pietro09]

fai un console application, rigorosamente in basic e metti questo codice

Imports System.IO

Module Module1

    Sub Main()
        Dim fileName As String = "c:\tmp\prova.jpg"
        Dim uploadUrl As String = "ftp://utente:password@web.tiscali.it/tmp/" & Path.GetFileName(fileName)

        Dim requestStream As Stream = Nothing
        Dim fileStream As FileStream = Nothing
        Dim uploadResponse As Net.FtpWebResponse = Nothing

        Try
            Dim uploadRequest As Net.FtpWebRequest = DirectCast(Net.WebRequest.Create(uploadUrl), Net.FtpWebRequest)
            uploadRequest.Method = Net.WebRequestMethods.Ftp.UploadFile
            uploadRequest.Proxy = Nothing
            uploadRequest.Credentials = New Net.NetworkCredential("utente", "password")

            requestStream = uploadRequest.GetRequestStream()
            fileStream = File.Open(fileName, FileMode.Open)

            Dim buffer(1024) As Byte
            Dim bytesRead As Integer
            Do
                bytesRead = fileStream.Read(buffer, 0, buffer.Length)
                If bytesRead = 0 Then Exit Do
                requestStream.Write(buffer, 0, bytesRead)
            Loop
            requestStream.Close()
            uploadResponse = DirectCast(uploadRequest.GetResponse(), Net.FtpWebResponse)
            Console.WriteLine("Upload completo")


        Catch ex As Exception
            Console.WriteLine(ex.Message())

        Finally
            If uploadResponse IsNot Nothing Then uploadResponse.Close()
            If fileStream IsNot Nothing Then fileStream.Close()
            If requestStream IsNot Nothing Then requestStream.Close()
        End Try

    End Sub

End Module

naturalmente ho cambiato utente e passoword, ma ho provato con le mie credenziali e riesco a lanciare via ftp un file al server di tiscali (il mio spazio web)

[Dheed]

WOW fantastico

Abilità anche il trasferimento di file multipli?
La mia rete utilizza utenticazione per la navigazione,può ciò interferire col programma?

Perché nel frattempo avevo trovato un modo tramite dos,solo che ho alcune perplessità...

[pietro09]

Non so rispondere. Bisognerebbe provare.
A occhio, mi faccio una procedura che ha come parametro il nome del file.
Dopo di che, nel main, metto il file da caricare in un vettore. Lo leggo con un ciclo richiamando la procedura di trasferimento.
Ma ripeto, è da provare.
Ciao

[Dheed]

Quando avvio il programma mim compare un errore che mi dice:
Impossibile eseguire il cast di tipo 'system.Net.HttpWebRequest' sul tipo 'system.Net.FtpWebRequest'

[pietro09]

Originariamente inviato da Dheed
Quando avvio il programma mim compare un errore che mi dice:
Impossibile eseguire il cast di tipo 'system.Net.HttpWebRequest' sul tipo 'system.Net.FtpWebRequest'

mi dispiace ma non so

lo sto provando con visual studio 2010, framework 4 e va

[Dheed]

Un secondo che allora provo a cambiare il framework

[pietro09]

Quello di sotto è una prova per spedire tutti i file di un certo tipo in una data directory.

Però a volte non mi funziona. A dire la verità, però, ho difficoltà anche ad aprire la mia directory sul server Tiscali, mediante ftp.

Perciò, vedi te...

Option Strict On
Imports System.IO

Module Module1

    Sub Main()
        'tutti i file di c:\tmp
        'con estensione jpg

        Dim di As New DirectoryInfo("c:\tmp")
        Dim result = From fi In di.GetFiles("*.jpg") _
                     Select New With {.FullName = fi.FullName}

        For Each o In result
            InviaFile(o.FullName)
        Next
        Console.WriteLine("Upload completo")

    End Sub

    Private Sub InviaFile(ByVal fileName As String)
        Dim uploadUrl As String = "ftp://utente:password@web.tiscali.it/tmp/" & Path.GetFileName(fileName)

        Dim requestStream As Stream = Nothing
        Dim fileStream As FileStream = Nothing
        Dim uploadResponse As Net.FtpWebResponse = Nothing

        Try
            Dim uploadRequest As Net.FtpWebRequest = DirectCast(Net.WebRequest.Create(uploadUrl), Net.FtpWebRequest)
            uploadRequest.Method = Net.WebRequestMethods.Ftp.UploadFile
            uploadRequest.Proxy = Nothing
            uploadRequest.Credentials = New Net.NetworkCredential("utente", "password")

            requestStream = uploadRequest.GetRequestStream()
            fileStream = File.Open(fileName, FileMode.Open)

            Dim buffer(1024) As Byte
            Dim bytesRead As Integer
            Do
                bytesRead = fileStream.Read(buffer, 0, buffer.Length)
                If bytesRead = 0 Then Exit Do
                requestStream.Write(buffer, 0, bytesRead)
            Loop
            requestStream.Close()
            uploadResponse = DirectCast(uploadRequest.GetResponse(), Net.FtpWebResponse)
            Console.WriteLine(String.Format("Upload di {0}", fileName))


        Catch ex As Exception
            Console.WriteLine(ex.Message())

        Finally
            If uploadResponse IsNot Nothing Then uploadResponse.Close()
            If fileStream IsNot Nothing Then fileStream.Close()
            If requestStream IsNot Nothing Then requestStream.Close()
        End Try

    End Sub

End Module