Usuário com melhor resposta
problema para fazer upload.

Pergunta
-
Boa noite !
Estou com um problema para fazer upload no meu programa...quero inserir videos na minha base de dados...quando clico no botão salvar, o caminho do diretorio some e nd acontece....quando vo para a proxima pagina n aparece nem um video postado e nem no sql server.
Imports System.IO Imports WebRole1.VideosTableAdapters Partial Public Class Videos1 Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub btn_publicarvideo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_publicarvideo.Click Dim mensagem As String = "" Dim mimeType As String = "" If txt_titulo.Text <> String.Empty Then If txt_descricao.Text <> String.Empty Then If FileUpload1.HasFile Then Dim extensaoArquivo As String = Path.GetExtension(FileUpload1.FileName.ToUpper) Select Case extensaoArquivo Case ".AVI" mimeType = "video/avi" Case ".WMV" mimeType = "video/x-ms-wmv" Case Else mensagem = "Tipo de vdeo invalido. (Somente .avi e .wmv so aceitos !)" End Select If mensagem = String.Empty Then gravaVideo(txt_titulo.Text, _ FileUpload1.FileName, _ txt_descricao.Text, _ User.Identity.Name, _ mimeType, _ FileUpload1.FileBytes, _ DateTime.Now, _ True, _ False) End If Else mensagem = "Nenhum arquivo foi selecionado !" End If Else mensagem = "Informe a descrio do vdeo" End If Else mensagem = "Informe o ttulo do vdeo" End If lblmensagem.Text = mensagem End Sub Private Sub gravaVideo(ByVal tit As String, _ ByVal arq As String, _ ByVal desc As String, _ ByVal user As String, _ ByVal mime As String, _ ByVal bytes As Byte(), _ ByVal dat As DateTime, _ ByVal at As Boolean, _ ByVal pub As Boolean) Dim mensagem As String = "" Dim videoAdapter As VideosTableAdapters.VideosTableAdapter = New VideosTableAdapters.VideosTableAdapter() Try videoAdapter.Insert(tit, arq, desc, user, mime, bytes, dat, at, pub) txt_titulo.Text = "" txt_descricao.Text = "" lblmensagem.Text = "Video " & tit & " Includo na base de vdeos com sucesso !" Catch ex As Exception lblmensagem.Text = "Erro ao incluir o vdeo " & tit & " na base de vdeos " & ex.Message.ToString End Try End Sub End Class
- Editado jundiaí terça-feira, 26 de outubro de 2010 18:55
Respostas
-
Jundiaí,
Pelo que vi, você está criando uma WebRole...
No caso do Azure, o ideal seria você armazenar este video em um Blob Storage e não no SQL Azure, não sei qual seria a limitação do SQL Azure quanto ao tamanho dos dados armazenados, mas com certeza, isto não seria uma "boa prática".
Confira este vídeo sobre o uso do Blob Storage:
http://channel9.msdn.com/Blogs/smarx/Windows-Azure-Blob-Storage
at.,
Rogério de Resende Ohashi | Ohashi.NET (.NET, Security, C#, WinForms, WCF, Workflow, Azure, Windows Phone, Mono)- Marcado como Resposta jundiaí terça-feira, 26 de outubro de 2010 18:56
Todas as Respostas
-
Jundiaí,
Pelo que vi, você está criando uma WebRole...
No caso do Azure, o ideal seria você armazenar este video em um Blob Storage e não no SQL Azure, não sei qual seria a limitação do SQL Azure quanto ao tamanho dos dados armazenados, mas com certeza, isto não seria uma "boa prática".
Confira este vídeo sobre o uso do Blob Storage:
http://channel9.msdn.com/Blogs/smarx/Windows-Azure-Blob-Storage
at.,
Rogério de Resende Ohashi | Ohashi.NET (.NET, Security, C#, WinForms, WCF, Workflow, Azure, Windows Phone, Mono)- Marcado como Resposta jundiaí terça-feira, 26 de outubro de 2010 18:56
-
Prezado,
Novidades quanto a essa sua dúvida?
André Alves de Lima
Visite o meu site: http://www.andrealveslima.com.br
Me siga no Twitter: @andrealveslima -