Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Alex___ ©   (2010-02-25 17:29:00) 

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

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

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


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

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


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

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


Ega23   (2010-02-25 17:57:00) [3]

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

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


Ega23   (2010-02-25 17:54:00) [4]

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


12   (2010-02-25 17:50:00) [5]

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


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

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


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


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


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


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

string(Buf)


Наверх

Титульная страница Поиск, карта сайта Написать письмо