Stream

← →
Tik (2003-10-13 20:45) [0]

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

← →
Reindeer Moss Eater © (2003-10-14 08:49) [1]

var MyStream : TStream;

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

← →
Tik (2003-10-14 10:01) [2]

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

← →
Reindeer Moss Eater © (2003-10-14 10:18) [3]

Где?

← →
лёха (2003-10-14 17:37) [4]

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

← →
Tik (2003-10-14 20:31) [5]

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

Сonnect

****

Disconnect;
(см. 13.10.03 20:45)

← →
Reindeer Moss Eater © (2003-10-15 09:17) [6]

Это не так

← →
Tik (2003-10-15 15:52) [7]

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

← →
Tik (2003-10-15 15:53) [8]

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

← →
Е-Моё имя © (2003-10-15 16:15) [9]

прошу

← →
Reindeer Moss Eater © (2003-10-15 16:28) [10]

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

← →
Tik (2003-10-15 17:48) [11]

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

← →
Е-Моё имя © (2003-10-15 17:52) [12]

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

← →
Nic_B (2003-10-15 19:25) [13]

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

передача
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;

← →
Tik (2003-10-16 10:33) [14]

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

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

← →
Tik (2003-10-16 16:09) [16]

← →
Tik (2003-10-17 12:20) [17]

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

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

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

Stream Найти похожие ветки