Передача динамического массива через Сокеты

← →
Abzetdin (2001-11-18 22:08) [0]

Братцы как передать целочисленный динамический массив через сокет, используя компонент ServerSocket.
Вроде бы все верно: делаю так...(код внизу) однако при присвоении (PSendArray:= i) получаю сообщение "Incompatible types: "Integer" and "PInt"". Как мне этого избежать.
Великое всем спасибо!

type
TInt = integer;
PInt = ^TInt;
var
SendArray, PSendArray: PInt;
BufSizeObjID: DWord;
i: integer;
begin
BufSize:= (SizeOf(TInt) * NumberOfElement);
GetMem(SendArray, BufSize);
try
PSendArray:= SendArray;
for i:=0 to NumberOfElement do
begin
PSendArray:= i;
Inc(PSendArray);
end;
ServerSocket1.Socket.Connections[0].SendBuf(SendArray^, BufSize)
finally
FreeMem(SendArray);
end;
end;

← →
Lelik (2001-11-19 03:31) [1]

Ну если я правильно понял то тебе надо чтот вроде:
PSendArray^:=i;

← →
Abzetdin (2001-11-19 09:26) [2]

Lelik огромное спасибо! Сильно помог.

Передача динамического массива через Сокеты Найти похожие ветки