Youtube upload api kullanımı?

ertan2002 adlı üyeden alıntı: mesajı görüntüle

hala çözemedin mi hocam? amma uzadı bu konu

öncelikle youtube da para kazanılır ama api ile bu yapılıyor mu bilmiyorum, eskisnde yoktu belki yeni versiyonlarında destek gelmiştir

upload olayını görmek için kodunu bir backgroundworker a koy up progess eventinindeki e argumanındaki değeriyle görebilmen gerek. bir de hatırladığım kadarıyla o library de progress change eventi var onla da yüzdeliği takip edebilir bunu da progressbar a geçirebilirsin (benim yaptğım yazılımda vardı)

şuan her hangi bir kota yok ama bazı durumlarda kota uygulanır. bundan kaçınmak için bazı yöntemler var, burayı okuyabilirsin http://apiblog.youtube.com/2010/02/b...ing-quota.html

mpleted, New AsyncOperationCompletedEventHandler(AddressOf _UploadFileCompleted)
        AddHandler request.Service.AsyncOperationProgress, New AsyncOperationProgressEventHandler(AddressOf _UploadProgressChanged)
 
    Private Sub _UploadFileCompleted(sender As Object, e As AsyncOperationCompletedEventArgs)
        RichTextBox1.Text = "BİTTİ"
    End Sub

    Private Sub _UploadProgressChanged(sender As Object, e As AsyncOperationProgressEventArgs)
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

                        saniye = 1
                        Timer1.Start()

                        Try
                            request.Upload(newVideo)
                        Catch ex As Exception
                            logtext.Text += "=======================" & Chr(13) & ex.ToString & Chr(13) & "=======================" & Chr(13)
                        End Try

                        Timer1.Stop()

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            ProgressBar2.Value = saniye
        Catch ex As Exception
          
        End Try

        saniye = saniye + 1
    End Sub

Public Class Form1

    Private Delegate Sub MyDelegate()

    Private Sub SetValue()
        ProgressBar1.Value = 50
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim del As MyDelegate
        del = New MyDelegate(AddressOf SetValue)

        ProgressBar1.Invoke(del)

    End Sub
End Class

Public Class Form1

    Private Delegate Sub MyDelegate(val As Double)

    Private Sub SetValue(val As Double)
        ProgressBar1.Value = val
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim del As MyDelegate
        del = New MyDelegate(AddressOf SetValue)

        ProgressBar1.Invoke(del, 20)

    End Sub
End Class