Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Не могу передать Image через сокет 


Dmitry V.   (2001-12-25 15:15) [0]

Мне нужно по запросу передать рисунок от сервера к клиенту
в "onClientRead" в ServerSocket помещаю следубщий код :

If R = "GET" then
Begin
MSTream := TMemoryStream.Create;
JPEG_Image := TJPEGImage.Create;
JPEG_Image.Assign ( Form1.Image.Picture.BitMap );
Jpeg_Image.Smoothing := True;
Jpeg_Image.CompressionQuality := 50;
Jpeg_Image.Compress;


Jpeg_Image.SaveToStream (MSTream);

MStream.Position := 0;
Socket.SendStream(Mstream); <<< Ошибка ТУТ
MSTream.Free;
Jpeg_Image.Free;



Вместо Socket.SendStream(Mstream);
пробовал ServerSocket.Socket.Connections[0].SendStream(Mstream);
результат тот-же.




End; { If R="GET"}



Dmitry V.   (2001-12-26 11:26) [1]

Очень прошу вас помочь мне !



Dmitry V.   (2001-12-26 14:24) [2]

Ну хоть ссылочку на примерчик



panov   (2001-12-26 15:15) [3]

см. статьи на сайте.




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.019 c
14-32562          Valetta               2002-01-05 23:57  2002.03.11  
Помогите, пожалуйста, начать самообучение!


3-32386           lexxvlad              2002-02-06 12:50  2002.03.11  
Как пересоздать индексы?


7-32584           Nickolaus             2001-12-05 22:03  2002.03.11  
ПОМОГИТЕ! ! ! Кто-нибудь что-нибудь слышал о записи на CD-RW


3-32413           Vadim                 2002-02-11 12:03  2002.03.11  
Обновление поля PATH в иерархической таблице


4-32604           BorisM                2002-01-11 04:07  2002.03.11  
Размеры окна другого приложения...