VPF::Отправить массив через TStream - Форум программистов

artmaestro

Дата 4.11.2011, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

Репутация: нет
Всего: 1

Здравствуйте!

Помогите пожалуйста разобраться с потоками TStream. Задача простая но не могу понять как это реализовать. есть массив, который нужно отправить по сети используя TStream.

Я не могу понять как потоку передать массив. - для меня это проблема.

Сразу отвечаю на предложения " Гугл в помощь и такое прочее." Смотрел в Интернете, но в основном показаны примеры с использованием TFileStream, что мне не подходит.

Я так понимаю что мне нужно использовать TMemoryStream - если не прав подправьте пожалуйста.

Заранее спасибо.

P.S. Смотрел в книге Фленова - про потоки мало сказано. у Хомоненко А нечего вообще не нашел.

Это сообщение отредактировал(а) artmaestro - 4.11.2011, 18:42

volvo877

Дата 4.11.2011, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(artmaestro @ 4.11.2011, 18:41

)

Я не могу понять как потоку передать массив.

Записать массив в поток?

Код

{$mode objfpc}
uses classes;

type
   Item = Integer;

var
   ms : TMemoryStream;
   A : array[1 .. 100] of Item;

begin
   ms := TMemoryStream.Create;
   try
      ms.Size := Length(A) * SizeOf(Item);
      ms.Position := 0;
      ms.Write(A[Low(A)], ms.Size);
      // ... тут делаешь что надо с этим потоком
   finally
      ms.Free;
   end;
end.

artmaestro

Дата 4.11.2011, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

Репутация: нет
Всего: 1

Огромное спасибо! не когда не приходилось работать с потоками.
Пример простой и понятный.

Я так понимаю, что считывать его необходимо будет через?

Код


ms.Read();

Вы мне очень помогли.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »