程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 開發一個基於DCOM的局域網聊天室(一)

開發一個基於DCOM的局域網聊天室(一)

編輯:Delphi

難度:★★★☆☆

先行知識:Delphi / 接口 / OLE&COM&DCOM / Win32

 <?XML:namespace prefix = o ns = "urn:schemas-microsoft-com:office:Office" />

首先祝大家新春快樂,猴年萬事如意!

在前面的幾篇文章中我們已經探討了不少基於微軟COM的相關技術,而分布式COM(以下簡稱DCOM)的出現給我們輕松的創建分布式應用提供了機會;我們可以完全不去理會低級別的Windows Sockets(DCOM通過MS-RPC讓客戶與對象進行通信,幸運的是要開發COM應用,開發者幾乎可以不去理會MS-RPC)而開發出功能強大、偶合性低(功能模塊相對獨立,很好的發揮了OO的思想)、易於部署的分布式計算系統。

在這次的文章中,我們就打算使用DCOM來開發一個局域網聊天室,不僅是作為技術上的研究,實際上我相信這應該也是一個有用的工具。首先我們要對這個聊天室的功能有一個大致的了解:1、至少這個聊天室應該允許多個局域網用戶進行聊天。(有點廢話。。。)2、應該能夠有多個話題的子聊天室,用戶可以選擇進入某個聊天室進行聊天。3、客戶端應該盡量簡單(不用配置DCOM),並需要一個服務器端管理所有的交互行為,管理聊天室的數目和相關配置,並做好系統監測和日志記錄等。4、對聊天室功能進行擴展(如悄悄話功能,表情符號等)。根據以上的功能描述,在仔細分析問題以後我們設計出下面的草圖:

<?XML:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />

這篇文章中我們要大致實現這個程序的一個基本的核心,包括IChatManager、TChatRoomManager、TchatRoom,完成一個最基本功能的服務器端,並做一個簡單的客戶端進行檢測。我們的重點是服務器端,因為它將實現聊天室的大部分功能,客戶端只是一個十分小巧簡單的程序。

由於篇幅關系,我們只列出重要的部分的代碼,完整的程序請給我發email。首先來看看我們的IchatManager接口是什麼樣子(由於這裡我們只實現了最基本的功能,這個接口並不完整,我們將在以後的文章中給出完整的聲明):

  IChatManager = interface(IDispatch)

    ['{E7CD7F0D-447F-497A-8C7B-1D80E748B67F}']

    procedure SpeakTo(const content: WideString; destid: Integer); safecall;

    //客戶向指定的房間說話,destid為房間號

    function ReadFrom(sourceid: Integer): IStrings; safecall;

    //客戶從指定的房間讀取談話內容,sourceid為房間號

    function ReadReady(id: Integer): Byte; safecall;

    //客戶檢測指定的房間是否已經可以讀取談話內容

    procedure ConnectRoom(const UserName: WideString; RoomID: Integer); safecall;

    //客戶登陸指定房間

    procedure DisconnectRoom(const UserName: WideString; RoomID: Integer); safecall;

    //客戶退出指定房間

    function TestClearBufferTag(RoomID: Integer): Integer; safecall;

    //客戶測試指定房間的緩沖區的清空與否狀況

  end;

再來看看接口的實現類TChatManager部分:

type

  TChatManager = class(TAutoObject, IChatManager)

  protected

    function ReadFrom(sourceid: Integer): IStrings; safecall;

    //在這裡我們使用Delphi擴展的復雜類型TStings,為了讓COM支持這種

    //類型,Delphi提供了IStrings接口

    procedure SpeakTo(const content: WideString; destid: Integer); safecall;

    function ReadReady(id: Integer): Byte; safecall;

    //用來提供給客戶端查詢指定的房間是否可讀,既指定房間緩沖區是否為空

    procedure ConnectRoom(const UserName: WideString; RoomID: Integer);

      safecall;

    procedure DisconnectRoom(const UserName: WideString; RoomID: Integer);

      safecall;

    function TestClearBufferTag(RoomID: Integer): Integer; safecall;

  end;

實現部分:

function TChatManager.ReadFrom(sourceid: Integer): IStrings;

var

 TempRoom:TChatRoom;

begin

 TempRoom:=ChatRoomManager.FindRoomByID(sourceid);

 while TempRoom.Locked do

 begin

  //do nothing只是等待解鎖

 end;

 GetOleStrings(TempRoom.OneRead,Result);

end;

 

procedure TChatManager.SpeakTo(const content: WideString; destid: Integer);

var

 TempRoom:TChatRoom;

begin

 TempRoom:=ChatRoomManager.FindRoomByID(destid);

 while TempRoom.Locked do

 begin

  //do nothing只是等待解鎖

 end;

 TempRoom.OneSpeak(content);

end;

 

function TChatManager.ReadReady(id: Integer): Byte;

var

 TempRoom:TChatRoom;

begin

 TempRoom:=ChatRoomManager.FindRoomByID(id);

 if TempRoom.CanRead then result:=1 else Result:=0;

end;

 

procedure TChatManager.ConnectRoom(const UserName: WideString;

  RoomID: Integer);

//客戶端通過接口登陸到指定的房間,沒有完全實現

var

 TempRoom:TChatRoom;

begin

 TempRoom:=ChatRoomManager.FindRoomByID(RoomID);

 TempRoom.LoginRoom(UserName);

end;

 

procedure TChatManager.DisconnectRoom(const UserName: WideString;

  RoomID: Integer);

//客戶端通過接口離開指定的房間,沒有完全實現

var

 TempRoom:TChatRoom;

begin

 TempRoom:=ChatRoomManager.FindRoomByID(RoomID);

 TempRoom.LeaveRoom(UserName);

end;

 

function TChatManager.TestClearBufferTag(RoomID: Integer): Integer;

var

 TempRoom:TChatRoom;

begin

 TempRoom:=ChatRoomManager.FindRoomByID(RoomID);

 result:=TempRoom.ClearBufferTag;

end;

 

initialization

  TAutoObjectFactory.Create(ComServer, TChatManager, Class_ChatManager,

    ciMultiInstance, tmApartment);

end.

比較關鍵TchatRoom是下面的樣子:

type

  TChatRoom=class

  private

   FBuffer:array[1..20] of string;

   FBufferLength:integer;

   FRoomName:string;

   FRoomID:integer;

   FLocked:boolean;//同步鎖,用來處理多人同時發出對話的情況

   FConnectCount:integer;//當前房間的人數

   FClearBufferTag:integer;

   //每清空一次buffer此值便跳變一次,此脈沖被客戶端檢測

  protected

   procedure ClearBuffer;//清空緩沖區

   function GetCanRead:boolean;

  public

   constructor Create(RoomName:string;RoomID:integer);

   procedure OneSpeak(content:string);//將一條聊天內容加入緩沖區

   procedure LoginRoom(UserName:string);//參看實現部分注釋

   procedure LeaveRoom(UserName:string);//參看實現部分注釋

   function OneRead:Tstrings;//從緩沖區中讀出記錄

   property Locked:boolean read FLocked; //readonly;//供IChatManager檢測

   property CanRead:boolean read GetCanRead;//判斷緩沖區是否為空,否則是不可讀的

   property ClearBufferTag:integer read FClearBufferTag;

    end;
  (接後文)

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved