有没有类似QQ的用于局域网聊天的程序源码？？？(50分)

最好每一个都能当server，而且能传送文件，有详细一点的注释就更好了。。
谢谢

还要吗？

我看到网上有几个，但编译却出现这样或那样的问题，不知是什么原因

我也要呀。
给我呀。如果好用的话，给100分！
不要是那个neticq哦。，这个我也有！
www@312000.net

分不是问题，好的话就给分，（500）
E_Mail:chenfreax@dbstep.com

http://www.hysofts.com/sell/
这里有一个，用Delphi6做的，不过源码要收费的，100元，应该不是很贵。
如果大家急需的话，可以支持一下作者。

我也在找啊！

我有c的，myicq，要吗，不过在网络上可以下

MyICQ 服务器端(myicqd) 1.0 alpha1测试版
http://myicq.cosoft.org.cn

我也想要！能不能给我一个了？
maxtda@163.com
谢谢！

我觉得那个100的多半是假的,就算是性能也很值得怀疑,因为我做了快2年了,现在才敢说能达到QQ的性能,那个多半是TCP的,虽然我有缘码可惜不能公开,不过大概会公开一套专门开发这种东西的控件吧,

indey 不是有Demo ，修改一下不就得了

那yangying-2000可以给稍微详细的介绍一下吗？

原来想做个玩的
现在事太多
只有一个雏形
但可以用
用的是udp广播和多播
需要的话你下个看看？
没有文件传送，但留了接口

没完工的实在不好意思，献丑了
BTW:我不喜欢买卖原代码的
不过希望看过后给些建议
我需要的就是这些

http://home.91i.net/bigMouse/Hi System.rar

编译前安装多播组件 Source/Communication/多播组件

good luck!

您访问的页面不存在。。。。
？？

http://home.91i.net/bigMouse/Hi System.rar
注意有个空格
http://home.91i.net/bigMouse/Hi%20System.rar

http://new.playicq.com/dispdocnew.php?id=7348

大家记得把分给我
看到这个帖子，刚发布地

有阿.原码如下:
unit Unt_LiaoLiao;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Psock, NMHttp, NMUDP,Inifiles;

type
TFrm_Liaoliao = class(TForm)
Panel1: TPanel;
NMUDP1: TNMUDP;
Edit1: TEdit;
Splitter1: TSplitter;
Panel3: TPanel;
ListBox1: TListBox;
Panel2: TPanel;
Memo1: TMemo;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Memo2: TMemo;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
FromIP: String; Port: Integer);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Frm_Liaoliao: TFrm_Liaoliao;
ComputerName:Array[0..127]of char;
FileName:TInifile;
//该函数获取所有局域网（网上邻居）里的所有计算机
Function NetGetUsers(GroupName: string; var List: TListBox): Boolean;
//该函数获取所有局域网（网上邻居）里的所有工作组
Function GetGroupList( var List : TListBox ) : Boolean;
implementation

{$R *.dfm}
Function GetGroupList( var List : TListBox ) : Boolean;
type
TNetResourceArray = ^TNetResource;//网络类型的数组
Var
NetResource: TNetResource;
Buf: Pointer;
Count,BufSize,Res: DWORD;
lphEnum: THandle;
p: TNetResourceArray;
i,j: SmallInt;
NetworkTypeList: TList;
Begin
Result := False;
NetworkTypeList := TList.Create;
List.Clear;
//获取整个网络中的文件资源的句柄，lphEnum为返回名柄
Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, Nil,lphEnum);
if Res <> NO_ERROR then exit;//Raise Exception(Res);//执行失败
//获取整个网络中的网络类型信息
Count := $FFFFFFFF;//不限资源数目
BufSize := 8192;//缓冲区大小设置为8K
GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
//资源列举完毕 //执行失败
if ( Res = ERROR_NO_MORE_ITEMS ) or (Res <> NO_ERROR ) then Exit;
P := TNetResourceArray(Buf);
for i := 0 to Count - 1 do//记录各个网络类型的信息
begin
NetworkTypeList.Add(p);
Inc(P);
end;
Res := WNetCloseEnum(lphEnum);//关闭一次列举
if Res <> NO_ERROR then exit;
for j := 0 to NetworkTypeList.Count-1 do //列出各个网络类型中的所有工作组名称
begin//列出一个网络类型中的所有工作组名称
NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息
//获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);
if Res <> NO_ERROR then break;//执行失败
while true do//列举一个网络类型的所有工作组的信息
begin
Count := $FFFFFFFF;//不限资源数目
BufSize := 8192;//缓冲区大小设置为8K
GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
//获取一个网络类型的文件资源信息，
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
//资源列举完毕 //执行失败
if ( Res = ERROR_NO_MORE_ITEMS ) or (Res <> NO_ERROR) then break;
P := TNetResourceArray(Buf);
for i := 0 to Count - 1 do//列举各个工作组的信息
begin
List.Items.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称
Inc(P);
end;
end;
Res := WNetCloseEnum(lphEnum);//关闭一次列举
if Res <> NO_ERROR then break;//执行失败
end;
Result := True;
FreeMem(Buf);
NetworkTypeList.Destroy;
End;
Function NetGetUsers(GroupName: string; var List: TListBox): Boolean;
type
TNetResourceArray = ^TNetResource;//网络类型的数组
Var
i: Integer;
Buf: Pointer;
Temp: TNetResourceArray;
lphEnum: THandle;
NetResource: TNetResource;
Count,BufSize,Res: DWord;
begin
Result := False;
List.Clear;
FillChar(NetResource, SizeOf(NetResource), 0);//初始化网络层次信息
NetResource.lpRemoteName := @GroupName[1];//指定工作组名称
NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）
NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息
//获取指定工作组的网络资源句柄
Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);
if Res <> NO_ERROR then Exit; //执行失败
while True do//列举指定工作组的网络资源
begin
Count := $FFFFFFFF;//不限资源数目
BufSize := 8192;//缓冲区大小设置为8K
GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
//获取计算机名称
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
if Res = ERROR_NO_MORE_ITEMS then break;//资源列举完毕
if (Res <> NO_ERROR) then Exit;//执行失败
Temp := TNetResourceArray(Buf);
for i := 0 to Count - 1 do//列举工作组的计算机名称
begin
//获取工作组的计算机名称，+2表示删除"//"，如//wangfajun=>wangfajun
List.Items.Add(Temp^.lpRemoteName + 2);
inc(Temp);
end;
end;
Res := WNetCloseEnum(lphEnum);//关闭一次列举
if Res <> NO_ERROR then exit;//执行失败
Result := True;
FreeMem(Buf);
end;
procedure TFrm_Liaoliao.FormShow(Sender: TObject);
Var Szword;
begin
Sz:=Sizeof(ComputerName);
getComputerName(ComputerName,Sz);//得到本机的标识符
ListBox1.Items.Clear;
ListBox1.Items.Add('大家');//在本机中增加大家
ListBox1.Items.Add(ComputerName);//增加本机名称
ListBox1.ItemIndex:=0;
end;

procedure TFrm_Liaoliao.Button1Click(Sender: TObject);
Var
MyStream:TMemoryStream;
TemStr:String;
I:Integer;
begin
Memo1.Font.Color:=ClBlue;
if Not Memo1.Visible then
begin
Memo1.Visible:=True;;
Memo2.Visible:=False;
Button4.Caption:='聊天记录';
end;
if ListBox1.ItemIndex<0 then
begin
Application.MessageBox('请选择要发送的计算机名','发送提示',Mb_OK+MB_IconInformation);
Exit;
end;
if Trim(Edit1.Text)='' then
begin
Application.MessageBox('请输入你要发送的信息','发送提示',Mb_OK+MB_IconInformation);
Edit1.SetFocus;
Exit;
end;
NMUDP1.ReportLevel:=Status_Basic;
NMUDp1.RemotePort:=8888;//端口：8888，也可以自定义，但必须和LocalPort相一致
if ListBox1.Items[ListBox1.ItemIndex]=ComPuterName then
Edit1.Text:=ComPuterName+' 自言自语道: '
+Datetimetostr(Now)+Chr(13)+Chr(10)+Edit1.Text //如果和自己说话
else
Edit1.Text:=ComputerName+' 对 '+ListBox1.Items[ListBox1.ItemIndex]+' 说: '
+Datetimetostr(Now)+Chr(13)+Chr(10)+Edit1.Text;
{Edit1.Text:='你 对 '+ListBox1.Items[ListBox1.ItemIndex]+' 说: '
+Datetimetostr(Now)+Chr(13)+Chr(10)+Edit1.Text; }
TemStr:=Trim(Edit1.Text);
MyStream:=TMemoryStream.Create;
Try
MyStream.Write(TemStr[1],Length(Edit1.Text));
if ListBox1.ItemIndex=0 then //如果选中大家就给所以人发信息
begin
For I:=1 to ListBox1.Items.Count-1 do
begin
NMUdp1.RemoteHost:=ListBox1.Items;//远程主机的名称或地址
NMUDP1.SendStream(MyStream);//发送信息
end;
end
else //如果私聊
begin
NMUDP1.RemoteHost:=ListBox1.Items[ListBox1.itemIndex];
NMUDP1.SendStream(MyStream); //仅对选中的主机发送信息
end;
finally
MyStream.Free;
end;
if (Trim(Listbox1.Items[ListBOx1.itemIndex])<>ComputerName) And
(ListBox1.ItemIndex<>0) then Memo1.Lines.Add(Edit1.Text);
if Trim(Edit1.Text)<>'' then Edit1.Clear;
Edit1.SetFocus;
//Memo1.Font.Color:=Clred;
end;

procedure TFrm_Liaoliao.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
Var MyStream:TMemoryStream;
TemStr:String;
begin
MyStream:=TMemoryStream.Create;
Try
NMUDP1.ReadStream(MyStream);
Setlength(TemStr,NumBerbytes);
MyStream.Read(TemStr[1],Numberbytes);
Memo1.Lines.Add(TemStr);//显示对话的内容
Finally
MyStream.Free;
end;
end;

procedure TFrm_Liaoliao.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<>chr(13)) or (Trim(Edit1.Text)='') then Exit;
Button1.Click;
end;

procedure TFrm_Liaoliao.Button2Click(Sender: TObject);
VAr InputStr:String;
begin
InPutStr:=INputBox('增加人员','IP地址或计算机名称','');
if InPUtStr<>'' then LIstBox1.Items.Add(InPutStr);
ListBox1.ItemIndex:=0;
end;

procedure TFrm_Liaoliao.Button3Click(Sender: TObject);
begin
if LIstBox1.ItemIndex=0 then
Application.MessageBox('所有人不能删除','删除人员',Mb_OK+MB_IconINformation)
else
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TFrm_Liaoliao.ListBox1Click(Sender: TObject);
begin
Frm_Liaoliao.Caption:='聊天工具 '+'你 对 '+ListBox1.Items[ListBox1.itemIndex]+' 说:';
end;

procedure TFrm_Liaoliao.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
key:=Chr(0);
end;

procedure TFrm_Liaoliao.Button4Click(Sender: TObject);
VAr Str_Record:String;
begin
//查看聊天记录,只是上一天的
if Button4.Caption='聊天记录' then
begin
Str_Record:=ExtractFilePath(ParamStr(0))+'MyRecord.ini';
FileName:=TIniFile.Create(Str_Record);
if FileExists(Str_Record) then
begin
Memo1.Visible:=False;
if Not Memo2.Visible then
Memo2.Visible:=True;
Memo2.Lines.Clear;
//Memo2.Text:=FileName.ReadString('Liaorecord','MyRecord','');
Memo2.Lines.LoadFromFile(Str_Record);
end;
Button4.Caption:='返回';
end else
begin
if not Memo1.Visible then
Memo1.Visible:=True;
Memo2.Visible:=False;
Button4.Caption:='聊天记录';
end;
end;

procedure TFrm_Liaoliao.FormClose(Sender: TObject;
var Action: TCloseAction);
VAr Str_Record:String;
begin
Str_Record:=ExtractFilePath(ParamStr(0))+'MyRecord.ini';
FileName:=TIniFile.Create(Str_Record);
if FileExists(Str_Record) then
FileName.EraseSection('Liaorecord');//删除以前的记录
//写入这次聊天的记录
//FileName.WriteString('Liaorecord','MyRecord',Memo1.Lines.Text);
Memo1.Lines.SaveToFile(Str_Record);
end;

procedure TFrm_Liaoliao.FormDestroy(Sender: TObject);
begin
FileName.Free;
end;

procedure TFrm_Liaoliao.ListBox1DblClick(Sender: TObject);
Var GroudWork:String;
begin
GroudWork:=Inputbox('工作组','请输入工作组名','');
if GroudWork<>'' then
begin
if not NetGetUsers(GroudWork,ListBox1) then //调用函数
begin
Application.MessageBox('该工作组不存在','操作提示',Mb_OK+Mb_IconInformation);
Exit;
end;
ListBox1.Items.Add('大家');//在本机中增加大家
end;
end;

end.

en ..先看看。。。。

一、CNC Messenger 的功能簡介與使用說明：

Q：什么是CNC Messenger？
A：CNC Messenger是一款局域網的即時通訊軟件，CNC Messenger企業版是針對企來而設計開發的企業內部網絡的即時通訊軟件!其主旨是讓處在同一局域網中的所有用戶之間的即時通訊、即時交流!CNC Messenger企業版不分客戶端與服務端﹔在同一局域網中至少有一台計算機運行CNC Messenger企業版!CNC Messenger企業版可以用于任何形式的局域網!

Q：CNC Messenger有哪些功能？
A：CNC Messenger是一款比較新穎的即時通訊軟件。主要有以下几個模塊：
1.群聊：可以在同一局域網多人群聊。類似Oicq我的群組功能。
2.二人世界：支持二人單獨t聊天。
3.語音聊天：支持語音聊天。
4.檔案傳送：可以在局域網任意與你的好友傳送檔案。
5.網絡游戲：嵌套一款網絡游戲---中國象棋，讓你不怕找不到人下棋了!讓你在辦公室也能與其它人對奕几盤。
6.可自由更換背景：有几款精美的背景圖案供你選擇。
7.支持托盤圖標，狀態顯示，上下線語音提示。

Q：如何使用CNC Messenger？
A：在您所在的局域網中的某一台計算機中運行CNC Messenger企業版﹔運行后，在其界面的[我的好友]會顯示計算機的電腦名稱﹔此電腦名稱也是預設的昵稱。其它計算機的CNC Messenger用戶登錄時，即可使用CNC Messenger和您所在的局域網中的同事進行即時交流!

Q：如何設置CNC Messenger？
A：安裝好CNC Messenger后，運行它，然后點擊"系統設置"按鈕，會彈出一個對話框，填寫廣播地址，如：(192.168.10.255)，端口號：12。且打勾(重新運行套用新的設置)，如果不你知道廣播地址，請點擊"開始"--->執行，輸入：Ping <你的電腦名稱>，把得到的IP地址輸入在廣播地址。即可。

Q：為什么要選擇CNC Messenger？
A：1.完善、穩定的系統，支持各種局域網，專門為一些大企業大公司設計。
2.這是一款能在由几台、几十台甚至上百台的計算機組成的局域網中的即時通訊軟件，是為局域量身定做的一款通用軟件!
3.如果為了企業內部網中的數據安全著想，讓企業內部網和互聯網物理隔離而又不想由此導至在網上的交流，那么CNC Messenger能使整個局域網中的計算機聯系在一起!同時，確保數據的交流及完全。
4.CNC Messenger是完全免費的軟件。可以自由傳播但不可能更改作者信息。
下載地址：www.jackysoft.9126.com

楼上的GG可否给出点源代码？让大家一起学习学习？