Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как передать картинку по сети через ServerSocket

Delphi , Интернет и Сети , Сокеты

Как передать картинку по сети через ServerSocket

Автор: TwoK
WEB-сайт: http://forum.vingrad.ru

Да без проблем. Звиняйте, что на сях, но, тем не менее, на Борланд сях. Со стороны, откуда посылаем (у нас это клиент), пишем:

TFileStream* str = new TFileStream("M:\\MyFile.jpg",fmOpenRead); 
//ИЛИ, если мы работаем без сохранения (тогда не создается файл)
TMemoryStream* str = new TMemoryStream (); 
str->Position = 0; 
Image1->Picture->Bitmap->SaveToStream(str); 
//и, наконец, шлем на сервер битмап
str->Position = 0; 
ClientSocket1->Socket->SendStream(str); 

Обратите внимание, не забывайте перед каждой операцией с потоком устанавливать позицию в 0!!! Иначе получим не то, что хотелось бы Ну а со стороны приема (у нас это, соответственно, серверсокет), в событии приема пишем:

int ibLen = ServerSocket1->Socket->ReceiveLength(); 
char* buf= new char[ibLen+1]; 
TMemoryStream* str = new TMemoryStream(); 
str->Position = 0; 
ServerSocket1->Socket->ReceiveBuf((void*)buf,ibLen); 
str->WriteBuffer((void*)buf,ibLen); 
str->Position = 0; 
Image1->Picture->Bitmap->LoadFromStream(str); 
//или
str->SaveToFile("M:\\MyFile.jpg"); 

Ну и ессно, как говорит Bigbrother, сделал дело - вызови деструктор! То есть почистить за собой надо, не знаю как в Паскале, но в сях мне надо удалить str и buf.

Статья Как передать картинку по сети через ServerSocket раздела Интернет и Сети Сокеты может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Сокеты ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
13.08.2020 23:10:32/0.011965990066528/0