пересылка скриншота по стеку протоколов TCP/IP

← →
Nekrom@NT © (2005-04-17 19:03) [0]

Помогите срочно!!! Плз. дайте исходник пересылки скрина по тисипи юзаю ClientSocket & ServerSocket

← →
Piter © (2005-04-17 19:27) [1]

$25

← →
ламер_ © (2005-04-17 19:27) [2]

Проще всего:
ClientSocket.Socket.SendStream(fstreamScreenShot)

А принимать - в ServerSocket.OnClientRead, блоками
Общий принцип - http://www.delphimaster.ru/articles/socksrv/index.html

← →
VMcL © (2005-04-17 21:51) [3]

>>Nekrom@NT © (17.04.05 19:03)

http://kladovka.net.ru/index.php?action=downloadfile&filename=ScreenshotTransmitExample.zip&directory=Programs

← →
Nekrom@NT © (2005-04-19 06:37) [4]

http://kladovka.net.ru/index.php?action=downloadfile&filename=ScreenshotTransmitExample.zip&directory=Programs жутко длинный, я гораздо проще и короче делал, но ЗАБЫЛ!!!!!!!!!

http://kladovka.net.ru/index.php?action=downloadfile&filename=ScreenshotTransmitExample.zip&directory=Programs-криво!!!

← →
atruhin © (2005-04-19 07:26) [5]

только обычно скриншот либо упаковываеться jpeg, либо пересылаются только изменения относительно предыдущего, иначе ни какой сети не хватит

← →
Nekrom@NT © (2005-04-19 09:41) [6]

блин ладно! где спятолсябаг:
client:
fs:= TMemoryStream.Create; try while True do begin nReceived := Socket.ReceiveBuf (Buffer, sizeof (Buffer)); if nReceived <= 0 then Break else fs.Write (Buffer, nReceived); // delay (200 milliseconds) Sleep (200); end; // reset and load the temporary file fs.Position := 0; Image1.Picture.Bitmap.LoadFromStream (fs); finally fs.Free; end;
Server:
ms:=TMemoryStream.Create; GetScreen; Image1.Picture.Bitmap.SaveToStream(ms); Socket.SendStream(ms);

← →
Digitman © (2005-04-19 10:03) [7]

> спятолсябаг

какой баг-то ?

← →
Nekrom@NT © (2005-04-19 11:19) [8]

не работает!!!!!!!!!!!!!!!!!!!!!!!!

← →
Digitman © (2005-04-19 11:40) [9]

> Nekrom@NT © (19.04.05 11:19) [8]

и не будет.
и незачем, кстати, так орать.
ЧТО не работает ? КАК это проявляется ? ЧТО показывает трассировка ?

дитё что ль малое ? в бирюльки здесь играемся ? приводи конкретности - кратко, внятно, точно, с максимумом достоверных подробностей.

← →
atruhin © (2005-04-19 12:14) [10]

>>ЧТО не работает ? КАК это проявляется ? ЧТО показывает трассировка ?
А что там может проявляться? Там же полная галиматья написана, независимо от того в каком режиме сокет работает. Либо выдаст ошибку что буффер пустой, либо будет висеть если режим блокирующий.

← →
Digitman © (2005-04-19 12:31) [11]

> atruhin © (19.04.05 12:14) [10]

вот мне и интересно, может ли автор "галиматьи" два-три слова в осмысленное предложение связать ... тем паче что это ЕМУ надо, а не мне .. и не тебе ... вот нехай и учится задавать вопросы, а не кричать на всю ивановскую, мол, не работает и все тут ..

← →
Nekrom@NT © (2005-04-19 17:46) [12]

задрали Socket.SendStream(ms);
не работает во вторых мне всего 13. И я всЁЁЁЁ протрасил во все стороны(места(как хотите)!)

Уточняю, то что ещё не.
Поток не посылается.
При этом если Memory заменить на File то всё работает, но мне нужно чтоб в реальном времени (как в RemoteAdministrator"e)

А как на счет попробовать перед
Socket.SendStream(ms);
сделать
ms.seek(0,soFromBeginning)?

> не работает во вторых

а во-первых работает ?

> мне всего 13

в 13 пора бы уже со знаками препинания разобраться)

> я всЁЁЁЁ протрасил во все стороны

ой врешь ведь !

трассил ты свой код, а не реализацию метода SendStream()
вот если бы ты и его "протрасил", то увидил бы, что св-во ms.Position после Bitmap.SaveToStream(ms) указывает на конец стрима, в то время как SendStream() начинает "передачу" стрима именно с той точки, на которую указывает ms.Position.

пересылка скриншота по стеку протоколов TCP/IP Найти похожие ветки