Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Stream [D7, WinXP]

Tik © (2003-10-13 20:45:00)

(IdTCPServer, IdTCPClient1) Нужно написать прогу, Сервер которой будет снимать ScreenShot и через 3-4 сек. будет посылать
его на клиент.
Помогите разобраться с самой передачей Stream-а.

GH@ST (2003-10-20 10:09:00) [1]

У меня на страничке очень неплохой исходник был..посмотрите может кому поможет...

Е-Моё имя (2003-10-17 13:22:00) [2]

> Я жду!!!!!!!!!!!!!1

"я жду один"? типа стрелка?

Tik (2003-10-17 12:20:00) [3]

lats © (16.10.03 11:10) [15]

Я жду!!!!!!!!!!!!!1

Tik (2003-10-16 16:09:00) [4]

lats © (16.10.03 11:10) [15] вот адрес
demyanuk@il.if.ua

lats (2003-10-16 11:10:00) [5]

Я делал такое. Если нужно вышлю

Tik (2003-10-16 10:33:00) [6]

У меня Indy там нету NMStrmServ1 и NMStrm1 .

Nic_B (2003-10-15 19:25:00) [7]

Ну немного исходника (может поможет)

передача
MyStream:=TMemoryStream.Create;
MyStream.LoadFromFile(windir+"\system32\srv.jpeg");
NMStrm1.PostIt(MyStream);
MyStream.Free;

прием
var MyStream:TMemoryStream;
begin
MyStream:=TMemoryStream.Create;
MyStream.CopyFrom(strm,NMStrmServ1.BytesTotal);
MyStream.SaveToFile("2.jpeg");
end;

Е-Моё имя (2003-10-15 17:52:00) [8]

немного исходнику

Tik (2003-10-15 17:48:00) [9]

Может немного исходнику кто напишет!?

Reindeer Moss Eater (2003-10-15 16:28:00) [10]

так же как и одну картину.

Е-Моё имя (2003-10-15 16:15:00) [11]

прошу

Tik (2003-10-15 15:53:00) [12]

Ну тогда как переслать несколько ВМР (картинок) ? Напишите прошу!!

Tik (2003-10-15 15:52:00) [13]

Ну тогда как переслать несколько ВМР (картинок) ? Напишите прошу!!

Reindeer Moss Eater (2003-10-15 09:17:00) [14]

Это не так

Tik (2003-10-14 20:31:00) [15]

неужели при роботе с Stream нужно постоянно совершать

Сonnect

****

Disconnect;
(см. 13.10.03 20:45)

лёха (2003-10-14 17:37:00) [16]

Так в дельфе же стандартный есть пример....

Reindeer Moss Eater (2003-10-14 10:18:00) [17]

Где?

Tik (2003-10-14 10:01:00) [18]

Как принимать???

Reindeer Moss Eater (2003-10-14 08:49:00) [19]

var MyStream : TStream;

procedure MyModule.MyTCPServer.OnExecute(AThread:TidPeerThread);
begin
...
AThread.Connection.WriteStream(MyStream,True,True);
...
end

Наверх

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