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

← →
3asys © (2011-11-17 23:34) [0]

Добрый день,
Нужно передать 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 ?

← →
Плохиш © (2011-11-18 02:37) [1]

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

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

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

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

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

> 3asys © (17.11.11 23:34)

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

передача картинки в потоке через сокет Найти похожие ветки