Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Как работать с бестиповой переменной?, func(VAR BUF;...)   Найти похожие ветки 

 
Alex___   (2010-02-25 17:29) [0]

Функция Send, Recv имеет следующий вид:

function send(s: TSocket; var Buf; len, flags: Integer): Integer;

Что из себя представляет переменная Buf? Как с ней работать? Например: как ее перевести в строку?


 
Игорь Шевченко ©   (2010-02-25 17:45) [1]

string(Buf)


 
Alex___   (2010-02-25 17:47) [2]

Вызывает ошибку


 
Игорь Шевченко ©   (2010-02-25 17:47) [3]


> Вызывает ошибку


Это очень плохо.


 
12 ©   (2010-02-25 17:50) [4]

указатель
как угодно
взять len символов начиная с buf


 
Ega23 ©   (2010-02-25 17:54) [5]

var
 s : string;
begin
 SetLength(s, len);
 Move(@Buf, s, len);
end;


 
Ega23 ©   (2010-02-25 17:57) [6]

Точнее, как-то так

var
s : string;
p : PAnsiChar;
begin
SetLength(s, len);
p := @Buf;
Move(p^, PAnsiChar(s)^, len);
end;


 
Alex___   (2010-02-25 18:43) [7]

При попытке вывести S - ошибка ввода-вывода


 
Alex___   (2010-02-25 18:48) [8]

Все, проблема решена! Спасибо)



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

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

Наверх




Память: 0.48 MB
Время: 0.048 c
15-1269450731
GDI+
2010-03-24 20:12
2010.08.27
Формула рассчета расстояния между двумя точками на сфероиде


2-1266738974
tonick2001
2010-02-21 10:56
2010.08.27
Выдернуть из переменной TStringList нужну строку


15-1274687750
AKE
2010-05-24 11:55
2010.08.27
У меня много электронной технической литературы...


8-1204825605
VID
2008-03-06 20:46
2010.08.27
Проиграть звук в отдельном потоке


2-1266488901
pleasure
2010-02-18 13:28
2010.08.27
каскадное копирование TSQL