Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.153 c