메뉴 건너뛰기

넷서버 사용 팁/강좌

강좌 ch 3.메세지클라이언트의 제작

admin 2008.01.24 19:28 조회 수 : 4473

ch 3.메세지클라이언트의 제작

여기서 제작하는 클라이언트는 다음의 기능을 수행합니다.

- 다른 클라이언트로의 메시지전송

- 다른 클라이언트로부터 메시지수신

- 서버로부터의 메시지 수신

- 서버로의 메시지전송

 


1. 폼위에 TRequest, TClientDelphi를 놓고 2장에서와 같이 설정을 합니다.

2. 폼위에 버튼과 세 개의 에디터를 놓고 2장과 같이 이름을 정합니다.

3. btnConnect의 OnClick이벤트에 다음과 같이 적습니다.

 with Request1 do begin

ConnectProp.Host := edHost.Text;

ConnectProp.UserName := edUserName.Text;

ConnectProp.Password := edpassword.Text;

Connected := true;

end;

4. 메시지전송부분을 구현합니다. 폼에 edit와 버튼을 놓고 이름을 다음과 같이 정합니다.

5. btnSendToClient의 OnClick이벤트에 다음과 같이 지정합니다.

Request1.SendMsgNoResult('MSG', edMsg.Text, edReceiver.Text);

6. 다음은 서버로의 메시지전송부분을 구현합니다.

폼에 에디터와 버튼을 놓고 다음과 같이 이름을 정합니다.

7. btnServerMsg에 다음과 같이 코드를 적습니다.

Request1.SendMsgToServerNoResult('MSG', edServerMsg.Text);

8. 다른 클라이언트로부터의 수신부분을 구현합니다.

폼에 메모를 하나놓습니다. TRequest.OnReceiveMsg에 다음과 같이 코드를 구현합니다.

procedure TForm1.Request1ReceiveMsg(Sender: TObject; aThread: TThread;

  aSender: String; aCounter: Integer; aCmd: String; aClientData,

  aServerData: Variant);

begin

  if aCmd = 'MSG' then Memo1.Lines.Add(aSender + ':' + aClientData);

end;

9. 서버로부터 보내는 메시지를 수신합니다.

TRequest.OnReceiveServerMsg에서 다음과 같이 코드를 구현합니다.

procedure TForm1.Request1ReceiveServerMsg(Sender: TObject;

  aThread: TThread; aCommand: String; aData: Variant);

begin

  if aCommand = 'MSG' then Memo1.Lines.Add('[Server Message]:' + atData);

end;

 

10. 컴파일하여 실행합니다. 서버에 연결하기 전에 각 클라이언트는 고유의  username을 적은후에 서버에 연결하여 메시지를 전달하면 됩니다.

번호 제목 글쓴이 날짜 조회 수
공지 이전게시판의 질문과답변 및 사용팁 메뉴얼관련 링크 admin 2008.01.23 4451
공지 넷서버 동영상 강좌 admin 2008.01.23 3852
공지 넷서버 소개문서 넷서버 2008.01.19 5040
31 midaslib를 추가해 주십시오 admin 2015.08.19 216
30 XE2 이후 unit scope table admin 2014.02.28 1675
29 Java 1.6버젼과 windows server 2008 r2 문제 admin 2011.12.13 3659
28 넷서버 에러코드 및 설명 admin 2011.06.04 4756
27 윈도우서버 2008 R2에서의 닷넷의 문제 admin 2010.05.27 16496
26 패키지의 설치시 폴더의 설정 admin 2009.03.17 5740
25 XP모드에서 TPanel의 Color 사용방법 admin 2008.05.23 4415
24 FibPlus에서 Boolean 필드사용방법 admin 2008.03.18 11437
23 SQLite의 사용상의 주의 admin 2008.02.28 4308
22 디버그컴포넌트(MaxExcept, EurekaLog...)의 사용시 유의사항 admin 2008.02.16 5042
21 Open Source ODBC DBX Driver admin 2008.02.05 3312
20 넷서버의 설치 방법 admin 2008.01.24 4778
19 [동영상] 넷서버 클라이언트 프로그램의 제작 admin 2008.01.24 2974
18 [동영상] 넷서버 서버의 제작 admin 2008.01.24 2650
17 Ch7. 채팅클라이언트 프로그램의 제작 admin 2008.01.24 3110
16 Ch6. 채팅서버 프로그램의 제작 admin 2008.01.24 3062
15 ch 5. 비즈니스오브젝트를 클라이언트에서 사용하기 admin 2008.01.24 2653
14 ch 4. 비즈니스오브젝트의 작성-서버 admin 2008.01.24 4398
» ch 3.메세지클라이언트의 제작 admin 2008.01.24 4473
12 ch 2. 간단한 클라이언트프로그램의 제작 admin 2008.01.24 2891
위로