Главная страница
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.047 c
10-1166695535
Nick6
2006-12-21 13:05
2010.08.27
XLReport и DCOM


2-1268839389
Knob
2010-03-17 18:23
2010.08.27
Командная строка


2-1268287795
zod2009
2010-03-11 09:09
2010.08.27
Получить дату первого числа, тякущего месяца


11-1212343554
Сашик
2008-06-01 22:05
2010.08.27
OleVariant и OleObject в KOL Delphi 4


4-1236677806
Demo_nik
2009-03-10 12:36
2010.08.27
как перехватить функцию копирования