VPF::Как всетаки переслать содержимое Timagelist

Ak47black

Дата 26.3.2007, 20:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

Уже долго сижу, но толком правильно переслать КЛИЕНТ->СЕРВЕР содержимое компонента TImageList немогу.
Мне нужны две функции
Одна что-бы переводила TImageList(или содержимое)  в строку которую можно было послать
Другая что-бы обратно переводила в компонент
Длина строки может быть любой так как я нарезаю чанками ,а потом их как-бы склеиваю.
Вообше что-бы получиль два идентичные TImageList  ,на сервере и у клиента.
Подскадите ктонибудь, буду очень благодарин.

Это сообщение отредактировал(а) Ak47black - 26.3.2007, 20:37

Snowy

Дата 26.3.2007, 20:59 (ссылка)

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

Загрузка ...

Эксперт

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

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

TWriter.WriteComponent
TReader.ReadComponent
?

Ak47black

Дата 27.3.2007, 17:00 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  Stream: TStringStream;
begin
  Stream:= TStringStream.Create('');
  Stream.WriteComponent(ImageList1);
  Stream.ReadComponent(ImageList1);
end;

Ошибка

Цитата

Stream read error

Невыходит у меня чтото.

Это сообщение отредактировал(а) Ak47black - 27.3.2007, 17:24

Rennigth

Дата 27.3.2007, 17:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  Stream: TStringStream;
begin
  Stream:= TStringStream.Create('');
  Stream.WriteComponent(ImageList1);
  Stream.Position := 0;
  Stream.ReadComponent(ImageList1);
  Stream.Free;
end;

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

(* Honesta mors turpi vita potior *)

Ak47black

Дата 27.3.2007, 17:36 (ссылка)

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

Загрузка ...

Эксперт

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

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

Rennigth, smile

. Спасибо огромное +(через день).
Даже и недумал что нужно передвигать место положение.

Это сообщение отредактировал(а) Ak47black - 27.3.2007, 17:36

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