| Вопрос: Как снимок экрана поместить в пе | Добавлено: 01.04.05 22:53 |
Автор вопроса:  PeterS
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  PeterS Вопросов: 24 Ответов: 109 |
Профиль | | #16 | Добавлено: 05.04.05 21:06 |
|
Dim btData () As Byte
ReDim btData (249) А это! Вспомнил! Испробовал. И надо же сработало. Даже и не думал, что есть разница. А ведь очень интересно почему если изначально определить массив не передаётся? Так вот массив в 250 элементов передать удалось, потом попробовал передать картинку 100х100 (было 92112 элементов). И на тебе пишет, что слишком большой массив для передачи. И что теперь делать??? |
||
|
Номер ответа: 17 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #17 | Добавлено: 05.04.05 21:28 |
| Может разбить массив на много маленьких? | ||
|
Номер ответа: 18 Автор ответа: CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #18 | Добавлено: 05.04.05 23:08 |
|
Попробуй строку послать.
Принцип преобразования таков: Private MyArray() As Byte, MyStr As String Private Sub Command1_Click() MyStr = StrConv(MyArray, vbUnicode) End Sub Private Sub Command2_Click() Erase MyArray MyArray = StrConv(MyStr, vbFromUnicode) Dim StrToShow As String For a = 0 To 9 StrToShow = StrToShow & MyArray  & vbCr
Next a MsgBox StrToShow End Sub Private Sub Form_Load() ReDim MyArray(9) For a = 0 To 9 MyArray = a
Next a End Sub Всё понятно? Command1_Click - скопировать байтовый массив в строку; Command2_Click - скопировать из строки в байтовый массив. |
||
|
Номер ответа: 19 Автор ответа: PeterSВопросов: 24 Ответов: 109 |
Профиль | | #19 | Добавлено: 05.04.05 23:23 |
|
Может разбить массив на много маленьких?
Это то самое явное. Попробуй строку послать.
Жаль, но тоже вызывает переполнение. Наверное придётся разбивать массив на несколько. Кстати определил максимальное возможное количество передаваемых элемментов массива - 65507. Если что-нибудь вспомните или найдёте напишите, пожалуйста! А так всем спасибо и за это, в принципе уже можно работать. |
||