Скачать: CL | DM;

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

← →
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 огромное спасибо! Сильно помог.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c