Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.10;
Скачать: 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 вся ветка

Текущий архив: 2003.04.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.018 c
3-30318
tERRORist
2003-03-20 18:43
2003.04.10
Можно ли выбрать двунапр. набор данных используя dbExpress


3-30214
Basic
2003-03-23 01:08
2003.04.10
Как програмно поменять ограничитель SET TERM


7-30617
Mixan
2003-01-26 23:12
2003.04.10
Напишем прогу, моргающую лампочками на клаве в тактTxD и RxD


3-30291
Navi
2003-03-16 17:58
2003.04.10
OnDrawItem in DBLookupListBox


1-30361
Tyo
2003-03-31 17:25
2003.04.10
Combo в StringGrid