메뉴 건너뛰기

넷서버 사용 팁/강좌

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

admin 2008.01.24 19:28 조회 수 : 4526

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 4633
공지 넷서버 동영상 강좌 admin 2008.01.23 3915
공지 넷서버 소개문서 넷서버 2008.01.19 5110
28 넷서버의 엔터프라이즈환경에서의 사용 방식의 개선 넷서버 2008.01.19 1825
27 Intergate 로드밸런스 서버 넷서버 2008.01.19 1682
26 로드밸런스의 라이센스 배포와 관련하여 넷서버 2008.01.19 1744
25 Synchronize 쉽게 사용하기 admin 2008.01.19 3948
24 Integate를 사용하지 않은 다른 로드밸런스 구현 방법(4tier) 넷서버 2008.01.19 2032
23 파일업로드나 다운로드후 파일이 닫힐때 원하는 작업처리하기 admin 2008.01.19 1981
22 DLL과 Deadlock admin 2008.01.20 6347
21 ch 1. 간단한 BDE서버의 제작 admin 2008.01.24 4000
20 ch 2. 간단한 클라이언트프로그램의 제작 admin 2008.01.24 2988
» ch 3.메세지클라이언트의 제작 admin 2008.01.24 4526
18 ch 4. 비즈니스오브젝트의 작성-서버 admin 2008.01.24 4473
17 ch 5. 비즈니스오브젝트를 클라이언트에서 사용하기 admin 2008.01.24 2722
16 Ch6. 채팅서버 프로그램의 제작 admin 2008.01.24 3116
15 Ch7. 채팅클라이언트 프로그램의 제작 admin 2008.01.24 3176
14 [동영상] 넷서버 서버의 제작 admin 2008.01.24 2700
13 [동영상] 넷서버 클라이언트 프로그램의 제작 admin 2008.01.24 3035
12 넷서버의 설치 방법 admin 2008.01.24 4873
위로