Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.11;
Скачать: 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 вся ветка

Текущий архив: 2002.02.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.007 c
1-32277
Vasya_dvc
2002-01-28 16:42
2002.02.11
Подключение своего шрифта к программе


1-32215
nmarket
2002-01-23 23:47
2002.02.11
Резервное копирование


1-32208
Вовчик
2002-01-25 21:43
2002.02.11
Ошибка в вычислениях


1-32283
oomneeq
2002-01-18 18:57
2002.02.11
Debug & properties evaluation


14-32346
andey
2001-12-20 19:35
2002.02.11
куб. корень в exel