Кто-нибудь что-нибудь знает о TNMStrmServ ?

← →
Mandrake © (2003-02-18 16:19) [0]

Срочно нужна помощь по TNMStrmServ.OnPacketRecvd и TNMStrmServ.BytesRecvd

← →
Mandrake © (2003-02-18 16:20) [1]

Рассказываю:
У компонента TNMStrm по событию OnPacketSent (OnPacketRecvd) можна просматривать свойство BytesSent (BytesRecvd) и таким образом видеть процесс передачи (приема) потока. У компонента TNMStrmServ такие события и свойства тоже есть, но события почему-то не отображены на вкладке events ObjectInspector"a .
Я в событии OnCreate форми прописал :
NMStrmServ1.OnPacketRecvd:=MyProcedurePacketRecvd;
Но это ничего не дало (когда клиент шлет поток событие не наступает ????)
Вот.

← →
Digitman © (2003-02-18 16:29) [2]

как объявлен метод MyProcedurePacketRecvd ?

← →
Mandrake © (2003-02-18 17:11) [3]

public
procedure MyProcedurePacketRecvd(sender : TObject);

← →
Digitman © (2003-02-18 17:17) [4]

значит, клиент или ничего не посылает или посылает не так как надо

← →
Mandrake © (2003-02-18 17:31) [5]

не знаю как надо но клиент посылает файл а сервер его ловит и сохраняет (но делает он все это по событию OnMsg )

Ну и на сервере тоже обрабатывай OnMsg() ! Какая разница-то ?

Возможно надо ловить по событию OnPacketRecvd и обробативать в MyProcedurePacketRecvd ? Но я не знаю как тогда с NMStrmServ1 вытянуть поток (в случае с OnMsg это делается просто -

procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String; strm: TStream); var MyStream:TMemoryStream; begin MyStream:=TMemoryStream.Create; MyStream.CopyFrom(strm,NMStrmServ1.BytesTotal); MyStream.SaveToFile("c:\windows\рабочий стол\demo2.txt"); end;

< Ну и на сервере тоже обрабатывай OnMsg() ! Какая разница-то ?>
Так это на сервере оно обрабатывается OnMsg, а клиент отсылает так :

procedure TForm1.Button1Click(sender:TObject) var MyStream:TMemoryStream; begin MyStream:=TMemoryStream.Create; MyStream.LoadFromFile("c:\windows\рабочий стол\demo.txt"); NMStrm1.PostIt(MyStream); MyStream.Free; end;

Кто-нибудь что-нибудь знает о TNMStrmServ ? Найти похожие ветки