| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Mandrake ©   (2003-02-18 16:19:00) 

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

---

Mandrake   (2003-02-18 17:56:00) [1]

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

---

Mandrake   (2003-02-18 17:52:00) [2]

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

---

Digitman   (2003-02-18 17:47:00) [3]

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

---

Mandrake   (2003-02-18 17:31:00) [4]

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

---

Digitman   (2003-02-18 17:17:00) [5]

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

---

Mandrake   (2003-02-18 17:11:00) [6]

public
procedure MyProcedurePacketRecvd(sender : TObject);

---

Digitman   (2003-02-18 16:29:00) [7]

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

---

Mandrake   (2003-02-18 16:20:00) [8]

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

---

Наверх