3 года назад

Исправьте пожалуйста...

Имеется часть кода из VB, программа которая его использует. 'Открыть файл        ' Поток в файл (объявление)        Dim fst As New System.IO.FileSteam(FlName, System.IO.FileMode.Ceate)        Dim dl_size As Log = 0        'Открытие потока в файл        'fst = System.IO.File.OpeWite(FlName)        ' Получить асинхронно        If WaitFoDowload = False The            fst.Close()            th = New Theadig.Thead(AddessOf AsycDowload)            th.Stat(myHttpWebRespose.GetResposeSteam)            ' Получить синхронно        Else            FileDowloadig = Tue            Dim mySteamReade As New IO.BiayReade(myHttpWebRespose.GetResposeSteam)            Dim all As New System.Collectios.Geeic.List(Of Byte)            Do                ' Собственно получения порции данных                Dim bts() As Byte = mySteamReade.ReadBytes(BuffeSize)                If bts.Legth = 0 The Exit Do                fst.Seek(0, System.IO.SeekOigi.Ed)                Fo Each bytevalue As Byte I bts                    fst.WiteByte(bytevalue)                    fst.Seek(0, System.IO.SeekOigi.Ed)                    dl_size = dl_size + 1                Next                'all.AddRage(bts)                ' Вызов события Идет прием данных                ReceivePogessIvoke(dl_size)            Loop            'DowloadSuccess(all)        Ed If    Ed Sub    ' Функция реализующая поток, который скачивайт файл порциями BuffeSize    Sub AsycDowload(ByVal steam As Object)        FileDowloadig = Tue        Dim mySteamReade As New IO.BiayReade(steam)        Dim all As New System.Collectios.Geeic.List(Of Byte)        Dim fst As New System.IO.FileSteam(FlName, System.IO.FileMode.Ceate)        Dim dl_size As Log = 0        Do            ' Всякие Прерывания и Паузы потока            If FileDowloadig = False The DowloadCacelledIvoke() : mySteamReade.Close() : Exit Sub            While DowloadPause                System.Widows.Foms.Applicatio.DoEvets()                If FileDowloadig = False The DowloadCacelledIvoke() : mySteamReade.Close() : Exit Sub            Ed While            ' Собственно получения порции данных            Dim bts() As Byte = mySteamReade.ReadBytes(BuffeSize)            If bts.Legth = 0 The Exit Do            fst.Seek(0, System.IO.SeekOigi.Ed)            Fo Each bytevalue As Byte I bts                fst.WiteByte(bytevalue)                fst.Seek(0, System.IO.SeekOigi.Ed)                dl_size = dl_size + 1            Next            'all.AddRage(bts)            ' Вызов события Идет прием данных            ReceivePogessIvoke(dl_size)        Loop        'DowloadSuccess(all)    Ed SubПрограмма просто скачивает файл из интернета. Проблема в том что когда файл полностью скачался программа просто напросто показывает 100% и не завершает закачку. Выход только один - это закрыть программу. Пробовал раскоментить DowloadSuccess(all) тогда программа в конце просто напросто выдаёт ошибку и всё. Помогите пожалуйста.

Miaow (Гость) Программы
3

Программы: Исправьте пожалуйста...

1 год назад Как исправить ошибку "'import site' failed; use -v for traceback" в python?

'impot site' failed; use -v fo taceback - такая ошибка появляется после запуска pytho в Cygwi. И при импортировании модулей. Например: >>> impot adomTaceback (most ecet call last):  File "<stdi>", lie 1, i <module>  File "adom.py", lie 42, i <module>    fom __futue__ impot divisioImpotEo: No module amed __futue__>>> impot eTaceback (most ecet call last):  File "<stdi>", lie 1, i <module>...

olkin65 (Гость) Нет ответов
3
1 год назад помогите найти ошибку в коде пожалуйста

задание было такое: нужно было записать табличные данные в текстовый файл: вот мой код:cost      =4; type    xolod = ecod      viob:stig[50];      azvaie:stig[45];      kamea:eal;      ik:itege;      misce:stig[45];      cia:eal;      kilkist:eal;    ed;   va      i:itege;      tabl:aay[1..] of xolod;       ...

Picassonok (Гость) 1 ответ
3
1 год назад Проблема с GPS на HTC Desire HD

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

extempl (Гость) Нет ответов
3
Ответы (1)
dimach (Гость) 3 года назад
6

Visual Basic 6.0 Вот чёрт не программировал на нём уже 7 лет.
Обратись на http://www.reshaem.net

Пожаловаться
Исправьте пожалуйста... (Программы) - вопросы и ответы на все случаи жизни - справочник Программы moi-vopros.ru