Скачать: CL | DM;

Кто-нибудь что-нибудь знает о 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 )

---

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

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

---

← →
Mandrake ©   (2003-02-18 17:52) [7]

Возможно надо ловить по событию 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;

---

← →
Mandrake ©   (2003-02-18 17:56) [8]

< Ну и на сервере тоже обрабатывай 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c