Q&A
- object inspector에 없는 event처리는 어떻게 하나요 ?--제발 도와주셔요
Fastnet component중에서
Tnmstrmserv component에 관한 object inspector의 event에는
Onpacketrecvd라는 event는 없습니다.
그러나 delphi help에는
Tnmstrmserv -----events
derived from tpowersock
Onpacketrecvd가 있습니다.
Tnmstrmserv component에서 Onpacketrecvd event를 사용하려면 어떻게 해야 하나요 ?
고수님들의 많은 답변 기다립니다.
일단 다음 아래 소스대로 했는데 event가 일어나지 않는 것 같아요 !
nmstrmserv component를 통해 file을 전송받을때 그 진행 상황을 progress bar로 나타내려 합니다.
그런데 event가 발생하지 않는 것 같아요 ?
다음이 제 soure입니다.
너그러우신 마음으로 한번 보시고 틀린점이 있는 지 알려주시면 고맙겠습니다.
unit module1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMSTRM;
type
TModuleform = class(TDataModule)
NMStrm1: TNMStrm;
NMStrmServ1: TNMStrmServ;
procedure NMStrm1PacketSent(Sender: TObject);
procedure NMStrmserv1Packetrecvd(Sender: TObject);
procedure NMStrm1MessageSent(Sender: TObject);
procedure NMStrmServ1ClientContact(Sender: TObject);
procedure NMStrm1ConnectionFailed(Sender: TObject);
procedure NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Moduleform: TModuleform;
implementation
uses messengerfrm, mainfrm;
{$R *.DFM}
procedure TModuleform.NMStrm1PacketSent(Sender: TObject);
begin
messengerform.FlatProgressBar1.max:=nmstrm1.BytesTotal ;
messengerform.FlatProgressBar1.Position:=nmstrm1.BytesSent ;
end;
procedure TModuleform.NMStrm1MessageSent(Sender: TObject);
begin
messagedlg('File이 성공적으로 전송되었습니다.',mtinformation,[mbok],0) ;
end;
procedure TModuleform.NMStrmServ1ClientContact(Sender: TObject);
begin
nmstrmserv1.reportlevel:=status_basic ;
nmstrmserv1.timeout:=9000 ;
end;
procedure TModuleform.NMStrm1ConnectionFailed(Sender: TObject);
begin
messagedlg('File전송 중 오류발생'+#13+'다시 시도하세요 !',mterror,[mbok],0) ;
end;
procedure TModuleform.NMStrmServ1MSG(Sender: TComponent;
const sFrom: String; strm: TStream);
var
myfstream : tfilestream ;
begin
if fileexists(mainform.downloadpath) then deletefile(mainform.downloadpath) ;
myfstream:=tfilestream.create(mainform.downloadpath,fmcreate) ;
try
myfstream.copyfrom(strm,strm.size) ;
finally
myfstream.Free ;
end ;
end;
procedure TModuleform.NMStrmServ1PacketRecvd(Sender: TObject);
begin
messengerform.FlatProgressBar1.max:=nmstrmserv1.BytesTotal ;
messengerform.FlatProgressBar1.Position:=nmstrmserv1.BytesRecvd;
end;
procedure TModuleform.DataModuleCreate(Sender: TObject);
begin
NMStrmServ1.OnPacketRecvd := NMStrmServ1PacketRecvd ;
end;
end.
Tnmstrmserv component에 관한 object inspector의 event에는
Onpacketrecvd라는 event는 없습니다.
그러나 delphi help에는
Tnmstrmserv -----events
derived from tpowersock
Onpacketrecvd가 있습니다.
Tnmstrmserv component에서 Onpacketrecvd event를 사용하려면 어떻게 해야 하나요 ?
고수님들의 많은 답변 기다립니다.
일단 다음 아래 소스대로 했는데 event가 일어나지 않는 것 같아요 !
nmstrmserv component를 통해 file을 전송받을때 그 진행 상황을 progress bar로 나타내려 합니다.
그런데 event가 발생하지 않는 것 같아요 ?
다음이 제 soure입니다.
너그러우신 마음으로 한번 보시고 틀린점이 있는 지 알려주시면 고맙겠습니다.
unit module1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMSTRM;
type
TModuleform = class(TDataModule)
NMStrm1: TNMStrm;
NMStrmServ1: TNMStrmServ;
procedure NMStrm1PacketSent(Sender: TObject);
procedure NMStrmserv1Packetrecvd(Sender: TObject);
procedure NMStrm1MessageSent(Sender: TObject);
procedure NMStrmServ1ClientContact(Sender: TObject);
procedure NMStrm1ConnectionFailed(Sender: TObject);
procedure NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Moduleform: TModuleform;
implementation
uses messengerfrm, mainfrm;
{$R *.DFM}
procedure TModuleform.NMStrm1PacketSent(Sender: TObject);
begin
messengerform.FlatProgressBar1.max:=nmstrm1.BytesTotal ;
messengerform.FlatProgressBar1.Position:=nmstrm1.BytesSent ;
end;
procedure TModuleform.NMStrm1MessageSent(Sender: TObject);
begin
messagedlg('File이 성공적으로 전송되었습니다.',mtinformation,[mbok],0) ;
end;
procedure TModuleform.NMStrmServ1ClientContact(Sender: TObject);
begin
nmstrmserv1.reportlevel:=status_basic ;
nmstrmserv1.timeout:=9000 ;
end;
procedure TModuleform.NMStrm1ConnectionFailed(Sender: TObject);
begin
messagedlg('File전송 중 오류발생'+#13+'다시 시도하세요 !',mterror,[mbok],0) ;
end;
procedure TModuleform.NMStrmServ1MSG(Sender: TComponent;
const sFrom: String; strm: TStream);
var
myfstream : tfilestream ;
begin
if fileexists(mainform.downloadpath) then deletefile(mainform.downloadpath) ;
myfstream:=tfilestream.create(mainform.downloadpath,fmcreate) ;
try
myfstream.copyfrom(strm,strm.size) ;
finally
myfstream.Free ;
end ;
end;
procedure TModuleform.NMStrmServ1PacketRecvd(Sender: TObject);
begin
messengerform.FlatProgressBar1.max:=nmstrmserv1.BytesTotal ;
messengerform.FlatProgressBar1.Position:=nmstrmserv1.BytesRecvd;
end;
procedure TModuleform.DataModuleCreate(Sender: TObject);
begin
NMStrmServ1.OnPacketRecvd := NMStrmServ1PacketRecvd ;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- chyang
- 2000.05.13 20:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 이기석
- •
- 2000.05.13 21:07
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.05.13 21:45이재식 Wrote : 안녕하세요? 잘 보았습니다. 해당 에러는 대림출판사 다우가 쓴 책 1265페이지를 보...
-
- 김영상
- •
- 2000.05.13 20:46
- 1 COMMENTS
- /
- 0 LIKES
-
병규•2000.05.13 21:00안녕하세요.. 이벤트는 필요없고 API함수만 사용하시면 됩니다. 그럼이만.. 그러면 우실거죠? 히~~~~~~~~ ...
-
-
윤병익•2000.05.13 20:55김영상 wrote: > main form 에서 버튼을 두고 클릭시 다른실행 파일을 (증권사에서 제공하는 > > ...
-
김영상•2000.05.13 22:39답변에 감사합니다.
-
-
- 이병협
- 2000.05.13 20:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 권윤진
- •
- 2000.05.13 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
이재원•2000.05.14 00:12OnAuthenticate 에서 사용자이름과 비번을 확인하시고 Authenticated Property를 바꿔주시면 됩니다. ...
-
- 박문행
- •
- 2000.05.13 20:08
- 2 COMMENTS
- /
- 0 LIKES
-
cos•2000.05.15 01:18박문행 wrote: > > Interbase를 사용하는 데이터베이스 프로그램을 하나 만들었는데요, 이상한 일이 있...
-
이재식•2000.05.13 22:08박문행 wrote: > > Interbase를 사용하는 데이터베이스 프로그램을 하나 만들었는데요, 이상한 일이 있...
-
- 안희준
- •
- 2000.05.13 19:58
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.14 02:30당황~ 안녕하세요. 최용일입니다. 어떻게 다른 프로그램을 찾아서 검색창에 검색어를 넣고 검색을 했는...
-
- blueofsky
- •
- 2000.05.13 19:14
- 3 COMMENTS
- /
- 0 LIKES
-
윤병익•2000.05.13 20:09blueofsky wrote: 안녕하세요.. 델초봅니다... 솔직히 Join을 할때 Inner Join을 해야하는지.. Outer J...
-
blueofsky•2000.05.13 20:34그런데 그 부분을 어디에 추가해야 할지... and, or, 참 헤갈리네요..
-
윤병익•2000.05.13 20:50blueofsky wrote: > 그런데 그 부분을 어디에 추가해야 할지... > and, or, 참 헤갈리네요.. 죄송합...
-
- 조유정
- •
- 2000.05.13 19:09
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.05.13 22:00조유정 wrote: > 제가 지금 프로그램하는 중에 그리드에 있는 데이타들을 TEXT 파일에 저장할 수 있게끔 ...
-
- 강수만
- •
- 2000.05.13 18:49
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.05.13 21:57강수만 wrote: > 안녕하세요 델파이를 배우는 초보..^>^;; > > Table1 Table2 > ------ ...
-
- 오세종
- 2000.05.13 18:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 하병수
- 2000.05.13 18:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 힙합인
- 2000.05.13 18:16
- 0 COMMENTS
- /
- 0 LIKES
-
- saxoji
- •
- 2000.05.13 11:56
- 1 COMMENTS
- /
- 0 LIKES
Fastnet component중에서 Tnmstrmserv component에 관한 object inspector의 event에는 Onpacketrecvd라는 event는 없습니다. 그러나 delphi help에는 Tnmstrmserv -----events derived from tpowersock Onpacketrecvd가 있습니다. Tnmstr...-
김일영•2000.05.14 05:58안써본 컴포넌트라 잘 모르겠습니다만, 아마도 그 Event가 Published가 아니라 Public Event 같습니다. 그...
-
- 조규춘
- 2000.05.13 11:59
- 0 COMMENTS
- /
- 0 LIKES
-
- jinnon
- •
- 2000.05.13 10:00
- 1 COMMENTS
- /
- 0 LIKES
-
jinnon•2000.05.17 08:38jinnon wrote: > 저는 이번에 리포트폼을 처음 다루는데요. > 리포트를 책에 예제로 나오는 사용자정의폼...
-
- 한만택
- •
- 2000.05.13 09:32
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.13 10:36하하~ 안녕하세요. 최용일입니다. 메모(TMemo) 컴포넌트는 그 한계상 64k이상의 자료를 넣을 수 없습니...
-
- 힙합인
- •
- 2000.05.13 08:04
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.05.13 21:50힙합인 wrote: > 1.'거래처코드' is not a valid integer value for field 'keyfid00' > > 2.데이타...
-
- 이병협
- •
- 2000.05.13 07:43
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.13 10:36하하~ 안녕하세요. 최용일입니다. 보니까 아마도 버튼의 더블클릭이벤트같은데... 특별히 API를 써서 윈...
-
이병협•2000.05.13 19:48최용일님 먼저 답변에 감사합니다... 아래 내용되로 해보았지만 무엇을 잘못하였는지 아무런 반응이 없...
-
최용일•2000.05.14 02:38안녕하세요. 최용일입니다. DLL에서 WM_WTH_LBUTTONDBCLK메세지를 만드나요? 어디에도 이 메세지를 만드...
Public Event 같습니다. 그럼 Object Inspector가 아니라 코드에서 이벤트
핸들러를 지정해줘야 합니다.
nmstrmserv.Onpacketrecvd := Form1.Onpacketrecvd_Handler;
이런 식으로 대입해주시면 됩니다...
Onpacketrecvd와 함수 프로토타입이 일치해야 하는건 아시겠죠...
수고하세요.
===================================================================
saxoji wrote:
> Fastnet component중에서
> Tnmstrmserv component에 관한 object inspector의 event에는
> Onpacketrecvd라는 event는 없습니다.
> 그러나 delphi help에는
> Tnmstrmserv -----events
> derived from tpowersock
> Onpacketrecvd가 있습니다.
>
> Tnmstrmserv component에서 Onpacketrecvd event를 사용하려면 어떻게 해야 하나요 ?
> 고수님들의 많은 답변 기다립니다.
> 일단 다음 아래 소스대로 했는데 event가 일어나지 않는 것 같아요 !
>
>
> nmstrmserv component를 통해 file을 전송받을때 그 진행 상황을 progress bar로 나타내려 합니다.
> 그런데 event가 발생하지 않는 것 같아요 ?
>
> 다음이 제 soure입니다.
> 너그러우신 마음으로 한번 보시고 틀린점이 있는 지 알려주시면 고맙겠습니다.
>
>
>
> unit module1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Psock, NMSTRM;
>
> type
> TModuleform = class(TDataModule)
> NMStrm1: TNMStrm;
> NMStrmServ1: TNMStrmServ;
> procedure NMStrm1PacketSent(Sender: TObject);
> procedure NMStrmserv1Packetrecvd(Sender: TObject);
> procedure NMStrm1MessageSent(Sender: TObject);
> procedure NMStrmServ1ClientContact(Sender: TObject);
> procedure NMStrm1ConnectionFailed(Sender: TObject);
> procedure NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
> strm: TStream);
> procedure DataModuleCreate(Sender: TObject);
>
>
> private
> { Private declarations }
>
> public
> { Public declarations }
> end;
>
> var
> Moduleform: TModuleform;
>
> implementation
>
> uses messengerfrm, mainfrm;
>
>
>
> {$R *.DFM}
>
>
>
> procedure TModuleform.NMStrm1PacketSent(Sender: TObject);
> begin
> messengerform.FlatProgressBar1.max:=nmstrm1.BytesTotal ;
> messengerform.FlatProgressBar1.Position:=nmstrm1.BytesSent ;
> end;
>
> procedure TModuleform.NMStrm1MessageSent(Sender: TObject);
> begin
> messagedlg('File이 성공적으로 전송되었습니다.',mtinformation,[mbok],0) ;
> end;
>
> procedure TModuleform.NMStrmServ1ClientContact(Sender: TObject);
> begin
> nmstrmserv1.reportlevel:=status_basic ;
> nmstrmserv1.timeout:=9000 ;
> end;
>
> procedure TModuleform.NMStrm1ConnectionFailed(Sender: TObject);
> begin
> messagedlg('File전송 중 오류발생'+#13+'다시 시도하세요 !',mterror,[mbok],0) ;
> end;
>
> procedure TModuleform.NMStrmServ1MSG(Sender: TComponent;
> const sFrom: String; strm: TStream);
> var
> myfstream : tfilestream ;
> begin
> if fileexists(mainform.downloadpath) then deletefile(mainform.downloadpath) ;
>
> myfstream:=tfilestream.create(mainform.downloadpath,fmcreate) ;
> try
> myfstream.copyfrom(strm,strm.size) ;
> finally
> myfstream.Free ;
> end ;
> end;
>
>
>
> procedure TModuleform.NMStrmServ1PacketRecvd(Sender: TObject);
> begin
> messengerform.FlatProgressBar1.max:=nmstrmserv1.BytesTotal ;
> messengerform.FlatProgressBar1.Position:=nmstrmserv1.BytesRecvd;
> end;
>
>
>
> procedure TModuleform.DataModuleCreate(Sender: TObject);
> begin
> NMStrmServ1.OnPacketRecvd := NMStrmServ1PacketRecvd ;
> end;
>
> end.