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

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

передача картинки в потоке через сокет [D7]

3asys ©   (2011-11-17 23:34:00) 

Добрый день,
Нужно передать bitmap между клиентом (IdTCPClient) и сервером (IdTCPServer):
Клиент:
procedure TForm1.Button2Click(Sender: TObject);
var
 ms: TMemoryStream;
 b : TBitmap;
begin
//Запись:
 IdTCPClient1.Connect(1000);
 ms := TMemoryStream.Create;
 b:=TBitmap.Create;
 b := self.GetFormImage;
 b.SaveToStream(ms);
 ms.Position:=0;
 IdTCPClient1.WriteStream(ms);
end;

Вопрос: Как эту картинку принять на сервере и вывести на Image ?

---

3asys   (2011-11-18 17:03:00) [1]

> И. Павел ©

Спасибо Большое. Это то, что нужно.

---

И. Павел   (2011-11-18 12:25:00) [2]

> 3asys ©   (17.11.11 23:34)

Вот хорошая статья по работе с сокетами в инди. Сам ее читал, когда нужно было организовать такую связь. Там описана в том числе  и передача картинки:
http://www.delphimaster.ru/books/978594723593/fragment.html

---

Плохиш   (2011-11-18 02:37:00) [3]

>  b:=TBitmap.Create;
>  b := self.GetFormImage;
>

Это что за маразм?

> Вопрос: Как эту картинку принять на сервере и вывести на
> Image ?

С помощью соответствующего события сервера, подробности написаны в справке по используемому компоненту.

---

Наверх