Ошибка 'Invalid procedure call or argument' - VB

Узнай цену своей работы

Формулировка задачи:

Вот я сделал что по отправки кода на сервер с директорией сервак отправляет мне с помощью цикла имена всех файлов с кодом (file>123.txt) клиент получает их в виде одной строки (может кто объяснит почему), я с помощью MID'ов RIGHT'ов добовляю это всё в ListView, но в середине всей операции (всегда примерно на 525 пункте, а пересылается 1800 пунктов) выскакивает ошибка 'Invalid procedure call or argument' если вы подумаете что на ListView ограничение пунктов, то это не так (я проверил полазив по нескольким путям не отчищая список поместилось даже 2500 пунктов) и строка в типе STRING получается полная (Проверил), а чуть не забыл при нажатии на кнопку 'DEBUG'(на сообщении об ошибке) жёлтым выделяется строка добавления пункта(LsV_file.ListItems.Add , , Mid(strData, 5, a - 5)) Кто мне объяснит в чём ошибка и как её избежать??? Кто не понял о чём я вам сюда-> http://www.relib.com/forums/topic.asp?id=745079

Решение задачи: «Ошибка 'Invalid procedure call or argument'»

textual
Листинг программы
Dim filetrue As Boolean 'глобальные переменные
Dim filedat As String
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String ' Строка которую получает клиент
    Winsock1.GetData strData
    If bytesTotal = 8192 Then ' если кол-во байт = 8192 (т.е. максимально)
        filedat = filedat & strData 'глобальная переменная filedat принимает значение первого куска, затем первого и второго и т.д.
        filetrue = True 'думаю понятно
        Exit Sub завершение САБА
    End If
    If filetrue = True Then 'получается так, если первый, второй, третий куски это часть одного большого куска который должен был отправится... а четвёрты длиной не 8192, но он завершает большой кусок, то чтобы на клиент получить целый кусок мы объединяем первый кусок, второй, третий (которые уже объеденены в переменной filedat) с последним четвёртым он и становится конечной полученной строкой которая посылается на обработку...
        strData = filedat & strData
        filetrue = False
    End If
...

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5