SendBuf Ошибка

[FreddyZSX]

Здравствуйте!

Начал разбираться с работой по сети. Наткнулся на проблему... Хочу послать данные через SendBuf. Вылетает ошибка "List index out of bounds (0)". SendText - работает нормально.

Привожу код:

//Инициализация элементов массива
for i := 0 to 19 do GLB_arByte[i]:= i;
//Выдать массив по сети
ServerSocket.Socket.Connections[0].SendBuf(GLB_arByte,sizeof(GLB_arBy te));

Заранее благодарен...

[p51x]

А в Connections есть ли элементы?

[FreddyZSX]

Нет. Один единственный (с индексом 0)

[p51x]

Так нет или один единственный?

[FreddyZSX]

единственный

[Aliens_wolfs]

SendText - работает нормально.

Покажите как вы объявляете буфер GLB_arByte

[FreddyZSX]

В объявлениях модуля:

var

GLB_arByte: array [0..19] of byte = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0);

[Aliens_wolfs]

попробуйте не for i := 0 to 19 а лучше сделать так for i := 0 to length(GLB_arByte) - 1 do ну либо так For i:= 0 to SizeOf(GLB_arByte) -1 do

[Aliens_wolfs]

Var
GLB_arByte: array [0..19] of byte;
i: integer;
begin
//зануляем массив
FillChar(GLB_arByte, SizeOf(GLB_arByte), 0); //либо так  ZeroMemory(@GLB_arByte, SizeOf(GLB_arByte));
//Инициализация элементов массива
for i := 0 to SizeOf(GLB_arByte) -1 do 
GLB_arByte[i]:= i; 
//Выдать массив по сети 
ServerSocket.Socket.Connections[0].SendBuf(GLB_arByte,sizeof(GLB_arByte));