Работа BITS отменяется без уважительной причины. - PullRequest
Новая
       15

Работа BITS отменяется без уважительной причины.

0 голосов
/ 20 февраля 2012

Я создал службу Windows для загрузки файлов с клиента в общую папку на сервере, имеющем общие права доступа со всеми, и полностью контролирую его с помощью службы Microsoft BITS, эта служба работает с учетной записью локальной системы.Проблема в том, что задания BITS всегда отменяются, и я не знаю почему.Пожалуйста, любая помощь будет оценена.

Я использую этот код 

Try
            Using BITSManager = New System.Net.BITS.Manager
                For Each sItem In arrlDriversFilesUploadList
                    Using job = New System.Net.BITS.Job("UploadJob", Net.BITS.JobType.Upload)
                        Dim sRemoteFileName As String = String.Format("{0}\{1}", "\\RemoteServer\SharedFolder", "File.txt")
                        Dim sLocalFileName As String = String.Format("{0}\{1}", "C:\LocalLocation", "File.txt")
                        job.Files.Add(sRemoteFileName, sLocalFileName)
                        BITSManager.Jobs.Add(job)
                        job.NoProgressTimeout = 300 '5 Minutes
                        job.Resume()
                        Dim JobComplete As Boolean = False
                        Do Until JobComplete
                            System.Threading.Thread.Sleep(3000)

                            If job.State = System.Net.BITS.JobState.Transferred Then
                evntlg.WriteEntry("Job done")
                                    JobComplete = True
                            End If

                            If job.State = System.Net.BITS.JobState.Acknowledged Then
                evntlg.WriteEntry("Job done")
                                    JobComplete = True
                            End If

                            If job.State = System.Net.BITS.JobState.Error Then
                evntlg.WriteEntry("Job has error")
                                    JobComplete = True
                            End If

                            If job.State = System.Net.BITS.JobState.Cancelled Then
                evntlg.WriteEntry("Job cancelled")
                                    JobComplete = True
                            End If

                        Loop
                    End Using
                Next
            End Using

        Catch ex As Exception
            evntlg.WriteEntry(ex.Message)
        End Try

1 Ответ

0 голосов
/ 21 февраля 2012

Я понял, разрешения безопасности для общей папки не были установлены на удаленном сервере, я сделал это, тогда все идет гладко.

...