VPF::Stream - Форум программистов

slavonX86

Дата 8.3.2006, 10:37 (ссылка)

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

Загрузка ...

Бывалый

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

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

Есть класс. Например TIdHTTP.
IdHTTP1.Request.Source

Как записть в Stream переменную этого класса текст ("Текст") не создавая дополнительной переменной.

Guedda

Дата 8.3.2006, 11:48 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Что именно не получается? Покажи код?

--------------------

Ll 2

slavonX86

Дата 8.3.2006, 12:38 (ссылка)

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

Загрузка ...

Бывалый

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

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

Есть переменная K: Stream;
Var
s: String;
Begin

End;

Как текст, находящийся в переменной s записать в K ?

Демо

Дата 8.3.2006, 15:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

1. TStream - абстрактный класс. Использовать нужно не TStream, а его наследники, например, TMemoryStream, TFileStream и т.д.
2. У TMemoryStream есть метод Write. Для записи динамической строки в поток можно воспользоваться им:

Код


CurrLen := MyStream.Write(s[1],Length(s));

--------------------

Snowy

Дата 9.3.2006, 11:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


Var
s: String;
Begin
  IdHTTP1.Request.Source.Position := 0;
  SetLength(s, IdHTTP1.Request.Source.Size);
  IdHTTP1.Request.Source.Read(s[1], Length(s));
End;

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