| 導購 | 订阅 | 在线投稿
分享
 
 
當前位置: 王朝網路 >> delphi >> Delphi開發基于DCOM的聊天室
 

Delphi開發基于DCOM的聊天室

2008-06-01 01:57:58  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
 
  分布式COM(以下簡稱DCOM)的出現給我們輕松的創建分布式應用提供了機會;我們可以完全不去理會低級別的Windows Sockets(DCOM通過MS-RPC讓客戶與對象進行通信,幸運的是要開發COM應用,開發者幾乎可以不去理會MS-RPC)而開發出功能強大、偶合性低(功能模塊相對獨立,

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  很好的發揮了OO的思想)、易于部署的分布式計算系統。

  本文我們打算使用DCOM來開發一個局域網聊天室,不僅是作爲技術上的研究,實際上我相信這應該也是一個有用的工具。首先我們要對這個聊天室的功能有一個大致的了解:

  1、至少這個聊天室應該答應多個局域網用戶進行聊天。

  2、應該能夠有多個話題的子聊天室,用戶可以選擇進入某個聊天室進行聊天。

  3、客戶端應該盡量簡單(不用配置DCOM),並需要一個服務器端治理所有的交互行爲,治理聊天室的數目和相關配置,並做好系統監測和日志記錄等。

  4、對聊天室功能進行擴展(如靜靜話功能,表情符號等)。根據以上的功能描述,在仔細分析問題以後我們設計出下面的草圖:

Delphi開發基于DCOM的聊天室


  這篇文章中我們要大致實現這個程序的一個基本的核心,包括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;

  TchatRoom的實現:

  { TChatRoom }

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

  begin

  FBufferLength:=0;

  FConnectCount:=0;

  FClearBufferTag:=1;

  FLocked:=false;

  FRoomName:=RoomName;

  FRoomID:=RoomID;

  end;

  procedure TChatRoom.ClearBuffer;

  var

  i:integer;

  begin

  ///在這裏可以檢測一個標志,判定是否需要服務器記錄每一次聊天內容

  for i:=1 to 20 do

  FBuffer[i]:='';

  FBufferLength:=0;

  FClearBufferTag:=0-FClearBufferTag;

  end;

  procedure TChatRoom.OneSpeak(content:string);

  begin

  FLocked:=true;

  inc(FBufferLength);

  if FBufferLength>20 then

  begin

  ClearBuffer;

  inc(FBufferLength);

  end;

  FBuffer[FBufferLength]:=content;

  FLocked:=false;

  end;

  function TChatRoom.OneRead:TStrings;

  var

  FStrings:TStrings;

  i:integer;

  begin

  FLocked:=true;

  FStrings:=TStringList.Create;

  for i:=1 to FBufferLength do

  FStrings.Add(FBuffer[i]);

  result:=FStrings;

  FLocked:=false;

  end;

  function TChatRoom.GetCanRead: boolean;

  begin

  result:=false;

  if FBufferLength>0 then result:=true;

  end;

  procedure TChatRoom.LoginRoom(UserName:string);

  //用戶登陸聊天室事件,這裏沒有完全實現

  begin

  inc(FConnectCount);

  end;

  procedure TChatRoom.LeaveRoom(UserName: string);

  //用戶離開聊天室事件,這裏沒有完全實現

  begin

  Dec(FConnectCount);

  end;

  服務器端的最後一個比較重要的部分TchatRoomManager:

  type

  TChatRoomManager=class

  private

  ChatRoom:array of TChatRoom;

  public

  constructor Create;

  function FindRoomByID(id:integer):TChatRoom;

  end;

  實現部分:

  { TChatRoomManager }

  constructor TChatRoomManager.Create;

  var

  i,RoomCount:integer;

  RoomNames:TStrings;//RoomName是配置文件中的聊天室名稱

  begin

  RoomCount:=1;

  //這裏將從配置文件中讀出有幾個聊天室

  RoomNames:=TStringList.Create;

  RoomNames.Add('TestRoom');//這句將被最終的從配置文件讀取替換掉

  setlength(ChatRoom,RoomCount);

  for i:=1 to RoomCount do

  ChatRoom[i]:=TChatRoom.Create(RoomNames[i-1],i);

  end;

  function TChatRoomManager.FindRoomByID(id:integer): TChatRoom;

  //該函數由IChatManager接口調用,由于最終版本的接口將會提供給客戶

  //端得到房間列表的功能,所以客戶端知道自己房間的id

  begin

  result:=ChatRoom[id];

  end;

  initialization

  ChatRoomManager:=TChatRoomManager.Create;

  end.

  

  

  

  在服務器端的主要核心部分完成以後,我們配置好服務器端的DCOM配置,就可以開發一個簡單的客戶端進行測試了:(雖然客戶端盡可能的簡單,我們不用配置DCOM但我們仍需要拷貝服務器端的類型庫文件.tlb到客戶端並注冊後才能開發和使用客戶端,當然,這些都可以通過安裝程序來完成)

  在客戶端我們只列出兩個相對重要的函數,其余的都省略,請想我來信獲得全部的程序:

  

  procedure TForm1.Button1Click(Sender: TObject);

  //點擊button1後將edit的內容「說」出去

  begin

  Server.SpeakTo(edit1.Text,1);

  end;

  procedure TForm1.Timer1Timer(Sender: TObject);

  //每隔一段時間向服務器請求談話內容,我設置了爲1.5秒

  var

  TempStrings:TStrings;

  i:integer;

  begin

  if Server.ReadReady(1)=1 then

  begin

  TempStrings:=TStringList.Create;

  SetOleStrings(TempStrings,Server.ReadFrom(1));

  if FReadStartPos>19 then

  if (FClearBufferTag=0-Server.TestClearBufferTag(1)) then

  begin

  FReadStartPos:=0;

  FClearBufferTag:=Server.TestClearBufferTag(1);

  end;

  for i:=FReadStartPos to TempStrings.Count-1 do

  Memo1.Lines.Add(TempStrings[i]);

  FReadStartPos:=TempStrings.Count;

  end;

  end;

  一個基于DCOM的局域網聊天室的核心部分就基本完成了,並且所有的測試都比較順利,這裏需要補充說明一下聊天室服務器的一個難點:就是需要開發者非常謹慎的處理同步,雖然我也進行了一定的同步處理,但在客戶端人數衆多的情況下仍然可能發生死鎖或其它活鎖的情況,這個程序還需要更進一步的測試、甚至進行一定的重構。
 
 
 
上一篇《使用Delphi心得兩則》
下一篇《Delphi中建表》
 
 
 
 
 
 
日版寵物情人插曲《Winding Road》歌詞

日版寵物情人2017的插曲,很帶節奏感,日語的,女生唱的。 最後聽見是在第8集的時候女主手割傷了,然後男主用嘴幫她吸了一下,插曲就出來了。 歌手:Def...

兄弟共妻,我成了他們夜裏的美食

老鍾家的兩個兒子很特別,就是跟其他的人不太一樣,魔一般的執著。兄弟倆都到了要結婚的年齡了,不管自家老爹怎麽磨破嘴皮子,兄弟倆說不娶就不娶,老父母爲兄弟兩操碎了心...

如何磨出破洞牛仔褲?牛仔褲怎麽剪破洞?

把牛仔褲磨出有線的破洞 1、具體工具就是磨腳石,下面墊一個硬物,然後用磨腳石一直磨一直磨,到把那塊磨薄了,用手撕開就好了。出來的洞啊很自然的。需要貓須的話調幾...

我就是掃描下圖得到了敬業福和愛國福

先來看下敬業福和愛國福 今年春節,支付寶再次推出了“五福紅包”活動,表示要“把欠大家的敬業福都還給大家”。 今天該活動正式啓動,和去年一樣,需要收集“五福”...

冰箱異味産生的原因和臭味去除的方法

有時候我們打開冰箱就會聞到一股異味,冰箱裏的這種異味是因爲一些物質發出的氣味的混合體,聞起來讓人惡心。 産生這些異味的主要原因有以下幾點。 1、很多人有這種習...

《極品家丁》1-31集大結局分集劇情介紹

簡介 《極品家丁》講述了現代白領林晚榮無意回到古代金陵,並追隨蕭二小姐化名“林三”進入蕭府,不料卻陰差陽錯上演了一出低級家丁拼搏上位的“林三升職記”。...

李溪芮《極品家丁》片尾曲《你就是我最愛的寶寶》歌詞

你就是我最愛的寶寶 - 李溪芮 (電視劇《極品家丁》片尾曲) 作詞:常馨內 作曲:常馨內 你的眉 又鬼馬的挑 你的嘴 又壞壞的笑 上一秒吵鬧 下...

烏梅的功效與作用以及烏梅的食用禁忌有哪些?

烏梅,又稱春梅,中醫認爲,烏梅味酸,性溫,無毒,具有安心、除熱、下氣、祛痰、止渴調中、殺蟲的功效,治肢體痛、肺痨病。烏梅泡水喝能治傷寒煩熱、止吐瀉,與幹姜一起制...

什麽是脂肪粒?如何消除臉部脂肪粒?

什麽是脂肪粒 在我們的臉上總會長一個個像脂肪的小顆粒,弄也弄不掉,而且顔色還是白白的。它既不是粉刺也不是其他的任何痘痘,它就是脂肪粒。 脂肪粒雖然也是由油脂...

網絡安全治理:國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰受害者

來源:中國青年報 新的攻擊方法不斷湧現,黑客幾乎永遠占據網絡攻擊的上風,我們不可能通過技術手段杜絕網絡攻擊。國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰...

河南夫妻在溫嶺網絡直播“造人”內容涉黃被刑事拘留

夫妻網絡直播“造人”爆紅   1月9日,溫嶺城北派出所接到南京警方的協查通告,他們近期打掉了一個涉黃直播APP平台。而根據掌握的線索,其中有一對涉案的夫妻主播...

如何防止牆紙老化?牆紙變舊變黃怎麽辦?

如何防止牆紙老化? (1)選擇透氣性好的牆紙 市場上牆紙的材質分無紡布的、木纖維的、PVC的、玻璃纖維基材的、布面的等,相對而言,PVC材質的牆紙最不透氣...

鮮肌之謎非日本生産VS鮮肌之謎假日貨是謠言

觀點一:破日本銷售量的“鮮肌之謎” 非日本生産 近一段時間,淘寶上架了一款名爲“鮮肌之謎的” 鲑魚卵巢美容液,號稱是最近日本的一款推出的全新護膚品,産品本身所...

中國最美古詩詞精選摘抄

系腰裙(北宋詞人 張先) 惜霜蟾照夜雲天,朦胧影、畫勾闌。人情縱似長情月,算一年年。又能得、幾番圓。 欲寄西江題葉字,流不到、五亭前。東池始有荷新綠,尚小如...

關于女人的經典語句

關于女人的經典語句1、【做一個獨立的女人】 思想獨立:有主見、有自己的人生觀、價值觀。有上進心,永遠不放棄自己的理想,做一份自己喜愛的事業,擁有快樂和成就...

未來我們可以和性愛機器人結婚嗎?

你想體驗機器人性愛嗎?你想和性愛機器人結婚嗎?如果你想,機器人有拒絕你的權利嗎? 近日,第二屆“國際人類-機器人性愛研討會”大會在倫敦金史密斯大學落下帷幕。而...

全球最變態的十個地方

10.土耳其地下洞穴城市 變態指數:★★☆☆☆ 這是土耳其卡帕多西亞的一個著名景點,傳說是當年基督教徒們爲了躲避戰爭而在此修建。裏面曾住著20000人,...

科學家稱,人類死亡後意識將在另外一個宇宙中繼續存活

據英國《每日快報》報道,一位科學家兼理論家Robert Lanza博士宣稱,世界上並不存在人類死亡,死亡的只是身體。他認爲我們的意識借助我們體內的能量生存,而且...

《屏裏狐》片頭曲《我愛狐狸精》歌詞是什麽?

《我愛狐狸精》 - 劉馨棋   (電視劇《屏裏狐》主題曲)   作詞:金十三&李旦   作曲:劉嘉   狐狸精 狐狸仙   千年修...

 
 
 
  分布式COM(以下簡稱DCOM)的出現給我們輕松的創建分布式應用提供了機會;我們可以完全不去理會低級別的Windows Sockets(DCOM通過MS-RPC讓客戶與對象進行通信,幸運的是要開發COM應用,開發者幾乎可以不去理會MS-RPC)而開發出功能強大、偶合性低(功能模塊相對獨立, 很好的發揮了OO的思想)、易于部署的分布式計算系統。   本文我們打算使用DCOM來開發一個局域網聊天室,不僅是作爲技術上的研究,實際上我相信這應該也是一個有用的工具。首先我們要對這個聊天室的功能有一個大致的了解:   1、至少這個聊天室應該答應多個局域網用戶進行聊天。      2、應該能夠有多個話題的子聊天室,用戶可以選擇進入某個聊天室進行聊天。   3、客戶端應該盡量簡單(不用配置DCOM),並需要一個服務器端治理所有的交互行爲,治理聊天室的數目和相關配置,並做好系統監測和日志記錄等。   4、對聊天室功能進行擴展(如靜靜話功能,表情符號等)。根據以上的功能描述,在仔細分析問題以後我們設計出下面的草圖: [url=/bbs/detail_1785096.html][img]http://image.wangchao.net.cn/it/1323424723276.jpg[/img][/url]   這篇文章中我們要大致實現這個程序的一個基本的核心,包括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; TchatRoom的實現: { TChatRoom } constructor TChatRoom.Create(RoomName:string;RoomID:integer); begin FBufferLength:=0; FConnectCount:=0; FClearBufferTag:=1; FLocked:=false; FRoomName:=RoomName; FRoomID:=RoomID; end; procedure TChatRoom.ClearBuffer; var i:integer; begin ///在這裏可以檢測一個標志,判定是否需要服務器記錄每一次聊天內容 for i:=1 to 20 do FBuffer[i]:=''; FBufferLength:=0; FClearBufferTag:=0-FClearBufferTag; end; procedure TChatRoom.OneSpeak(content:string); begin FLocked:=true; inc(FBufferLength); if FBufferLength>20 then begin ClearBuffer; inc(FBufferLength); end; FBuffer[FBufferLength]:=content; FLocked:=false; end; function TChatRoom.OneRead:TStrings; var FStrings:TStrings; i:integer; begin FLocked:=true; FStrings:=TStringList.Create; for i:=1 to FBufferLength do FStrings.Add(FBuffer[i]); result:=FStrings; FLocked:=false; end; function TChatRoom.GetCanRead: boolean; begin result:=false; if FBufferLength>0 then result:=true; end; procedure TChatRoom.LoginRoom(UserName:string); //用戶登陸聊天室事件,這裏沒有完全實現 begin inc(FConnectCount); end; procedure TChatRoom.LeaveRoom(UserName: string); //用戶離開聊天室事件,這裏沒有完全實現 begin Dec(FConnectCount); end; 服務器端的最後一個比較重要的部分TchatRoomManager: type TChatRoomManager=class private ChatRoom:array of TChatRoom; public constructor Create; function FindRoomByID(id:integer):TChatRoom; end; 實現部分: { TChatRoomManager } constructor TChatRoomManager.Create; var i,RoomCount:integer; RoomNames:TStrings;//RoomName是配置文件中的聊天室名稱 begin RoomCount:=1; //這裏將從配置文件中讀出有幾個聊天室 RoomNames:=TStringList.Create; RoomNames.Add('TestRoom');//這句將被最終的從配置文件讀取替換掉 setlength(ChatRoom,RoomCount); for i:=1 to RoomCount do ChatRoom[i]:=TChatRoom.Create(RoomNames[i-1],i); end; function TChatRoomManager.FindRoomByID(id:integer): TChatRoom; //該函數由IChatManager接口調用,由于最終版本的接口將會提供給客戶 //端得到房間列表的功能,所以客戶端知道自己房間的id begin result:=ChatRoom[id]; end; initialization ChatRoomManager:=TChatRoomManager.Create; end.   在服務器端的主要核心部分完成以後,我們配置好服務器端的DCOM配置,就可以開發一個簡單的客戶端進行測試了:(雖然客戶端盡可能的簡單,我們不用配置DCOM但我們仍需要拷貝服務器端的類型庫文件.tlb到客戶端並注冊後才能開發和使用客戶端,當然,這些都可以通過安裝程序來完成)   在客戶端我們只列出兩個相對重要的函數,其余的都省略,請想我來信獲得全部的程序: procedure TForm1.Button1Click(Sender: TObject); //點擊button1後將edit的內容「說」出去 begin Server.SpeakTo(edit1.Text,1); end; procedure TForm1.Timer1Timer(Sender: TObject); //每隔一段時間向服務器請求談話內容,我設置了爲1.5秒 var TempStrings:TStrings; i:integer; begin if Server.ReadReady(1)=1 then begin TempStrings:=TStringList.Create; SetOleStrings(TempStrings,Server.ReadFrom(1)); if FReadStartPos>19 then if (FClearBufferTag=0-Server.TestClearBufferTag(1)) then begin FReadStartPos:=0; FClearBufferTag:=Server.TestClearBufferTag(1); end; for i:=FReadStartPos to TempStrings.Count-1 do Memo1.Lines.Add(TempStrings[i]); FReadStartPos:=TempStrings.Count; end; end;   一個基于DCOM的局域網聊天室的核心部分就基本完成了,並且所有的測試都比較順利,這裏需要補充說明一下聊天室服務器的一個難點:就是需要開發者非常謹慎的處理同步,雖然我也進行了一定的同步處理,但在客戶端人數衆多的情況下仍然可能發生死鎖或其它活鎖的情況,這個程序還需要更進一步的測試、甚至進行一定的重構。
󰈣󰈤
 
 
 
  免責聲明:本文僅代表作者個人觀點,與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
 
美得讓人陶醉
杭州美女模特米萊
清純迷人唐小妹
氣質一流的上海女生
夢醉克孜加爾湖畔
珠江公園(二)
魔域桃源
南嶺森林公園親水谷
 
>>返回首頁<<
 
 
 
 熱帖排行
 
 
 
 
© 2005- 王朝網路 版權所有