Главная страница
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.01 c
1-32275
-=CrazyFish=-
2002-01-28 16:21
2002.02.11
отчеты


3-32135
Robby
2002-01-11 15:18
2002.02.11
type в InterBase 6.0


1-32219
Андрей Сенченко
2002-01-25 12:33
2002.02.11
Проверка доступности сетевого диска


3-32166
ГС ТОФ
2002-01-16 14:38
2002.02.11
Пропала форма в проекте


3-32126
Натик
2002-01-15 14:57
2002.02.11
Можно ли выяснить на каком столбце DBGrid щелкнули мышкой.