9
963119
Unregistered / Unconfirmed
GUEST, unregistred user!
1、发送“你好”到指定IP的project1程序并显示在project1的Label1.caption
2、显示为提示showmessage形式
谢谢
2、显示为提示showmessage形式
谢谢
9
963119
Unregistered / Unconfirmed
GUEST, unregistred user!
看了要帮顶哦[
]
]
W
wp231957
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵
鳄
鳄鱼先生
Unregistered / Unconfirmed
GUEST, unregistred user!
UDP,TCP都可以
W
weiliu
Unregistered / Unconfirmed
GUEST, unregistred user!
话题448158的标题是： 高分求购聊天室源程序(最好是用delphi编写的！) (200分)
分类：Internet/TCPIP 老Q (2001-02-04 9:25:00)
高分求购聊天室源程序(最好是用delphi编写的！)
其它的也可以考虑。如果使用不错,再加400分!
wsn (2001-02-04 9:27:00)
wdl有自己编写的这样的 东东
你可以和他交流一下
lgl (2001-02-04 13:19:00)
到http://delphis.yeah.net上去下载一个NetICQ的源代码,带有一个聊天室程序(不过是用UDP协议写的)
liguang (2001-02-04 14:16:00)
lgl你好.看在我们名字差不多的份上,能否把那个NETICQ源码发给我一份,因为我上不去那
个站.我的E-MAIL地址是:ligwin@21cn.com.多谢了:->
小李飞刀 (2001-02-05 0:55:00)
lgl你好.看在我们名字差不多的份上,能否把那个NETICQ源码发给我一份,因为我上不去那
个站.我的E-MAIL地址是:lixiuchuan@263.net多谢了:->
beta (2001-02-05 2:23:00)
给你发过去一份，Delphi 写的，请接收。
jingtao (2001-02-05 3:24:00)
beta》也烦请给俺一份吧
vileo (2001-02-05 8:57:00)
beta》也烦请给俺一份吧
教父 (2001-02-05 10:16:00)
to liguang:
我的主页（http://delphis.yeah.net）这两天好象有些问题，你再去试试，如果不行的，
到另一个镜像（http://bruce_zhao.163.net）上去看看。
jqw (2001-02-05 10:45:00)
beta》也烦请给俺一份吧
j_qw_cn@sina.com
房客 (2001-02-08 1:48:00)
聊天室?
什么要求啊？
C/S？
zhaoap (2001-02-09 12:35:00)
好多教材上都有，boland的例程中也有，如果作为学习还可以，功能一般很简单
老Q (2001-02-11 10:20:00)
to beta 大侠：
代码已经收到，非常咸谢.不过，不知是什么
原因不能正确编译,请指教。
to lgl 大侠：
你的程序已经下地载，很不错。可是源代码
无法下载，能否E-mail一份？
老Q (2001-03-04 10:28:00)
还有没有感兴趣的?
3h (2001-03-04 14:30:00)
能否关注一下我的问题？
http://202.120.85.61/delphibbs/DispQ.asp?LID=461723
谢谢！
NetICQ的Source已下载，研究中……
3h (2001-03-05 8:53:00)
大量的消息，程序真够简洁，不错，不过可真难明白的：）
zhangkan (2001-03-05 9:21:00)
给我发一个过来,好吗?我是kan@freetrend.com.vn,谢谢!
guobozhang (2001-03-17 15:18:00)
to beta 大侠：
烦劳给我发一个过来。
guobozhang@263.net
无题 (2001-03-17 15:41:00)
在http://202.112.105.179/delphi/上就有一个聊天室的源程序
热带鱼聊天室 2.000及其DELPHI源程序: 改进后的TCP/IP聊天程序，
小巧可爱，动感十足，非常适合在局域网上聊天，或直接通过IP地址进行聊天
速度非凡！内含DELPHI源程序。（//不过它写入注册表一开机它就出现）
无题 (2001-03-17 15:49:00)
谁如果下不下来我可以发给你们
wsn (2001-03-17 22:08:00)
to beta 大侠：
烦劳给我发一个过来。
highnice@sohu.com
老Q (2001-03-20 21:02:00)
to 无题：
烦劳给我发一个过来（qyx@jd.cnpc.com.cn),谢谢！
zhangkan (2001-03-20 21:27:00)
无题：给我一份好吗？kan@freetrend.com.vn，谢谢！
CJ (2001-03-20 21:32:00)
无题 and beta: please send me a copy
cjcjc@online.sh.cn
thanx a lot
Bcbhua (2001-03-22 9:44:00)
小弟的主页上有小弟的一个拙作，是C++Builder的，
基于TCP，
你可以去看看！
LoveBcb.yeah.net
lcd (2001-03-22 11:13:00)
也烦请给俺一份吧
悲酥清风 (2001-03-22 11:21:00)
beta: please send me a copy!
zengr (2001-03-22 12:00:00)
这里也来一个！zr_pst@21cn.com
Buder (2001-03-29 19:52:00)
无题：
也给我一份，好不好？bingren2000@263.net
wufengscl (2001-03-30 1:24:00)
wufengscl@sina.com
如可将原码e来，不胜感激//
yaya8163 (2001-03-30 8:49:00)
无题上不去,来一份:YAYA8163@21CN.COM
scorpions (2001-03-30 9:24:00)
俺也要
fsy_2000@sina.com
nnyxm (2001-03-30 14:49:00)
能给我一份吗？(99yxm@263.net)
iori1 (2001-04-14 7:54:00)
本人有kinpro@fm365.com
luket (2001-04-14 10:19:00)
我有一个完整的类似MSN，OICQ的程序，用ICS写的，有谁要？
mantousoft (2001-04-14 11:19:00)
我很早的时候作了一个用UDP的，还不要服务器，不过在局域网里用的
由源程序：mantousoft.51.net
zhangfeng1001 (2001-04-14 12:41:00)
给我一份哦
CJ (2001-04-14 14:08:00)
》来自：luket 时间：01-4-14 10:19:41 ID:502372
》我有一个完整的类似MSN，OICQ的程序，用ICS写的，有谁要？
cjcjc@online.sh.cn
多谢
iori1：你那个我也要，呵呵，谢谢
CJ (2001-04-14 14:09:00)
mantousoft：还有你那个，呵呵，谢谢cjcjc@online.sh.cn
老Q (2001-04-23 21:26:00)
to luket:
烦劳给我一份,thank you!
(qyx@jd.cnpc.com.cn)
wwxxpp123 (2001-04-25 13:00:00)
烦劳给我一份,thank you!
flybirdwxp@163.net
lanler (2001-04-25 13:06:00)
to beta 烦请发一份给我
栋栋 (2001-05-01 14:04:00)
luket
NetICQ
给我吧，快点
andyyau@wx88.net 或者 栋栋@antdown.com 都可以！
jollier (2001-05-01 16:50:00)
我这儿有个局域网聊天室（DELPHI写的），若你想要，请先给我E-MAIL。
luket (2001-05-04 23:54:00)
各位：由于163近期不能上传，所以拖至现在...
下载地址：
http://go1.163.com/~luket/Download/MSN.zip
完整OICQ！服务器与客户端基于UDP，客户之间基于TCP。
CJ (2001-05-05 20:32:00)
MSN没有源码？？？
luket (2001-05-05 21:51:00)
Sorry,分成几次上传，好麻烦！
源代码下载地址：
http://go1.163.com/~luket/Download/MSN_Source.zip
黄文林 (2001-05-07 8:52:00)
也传给我一份:
hwl2000@netease.com
jammi (2001-05-07 10:29:00)
请传给我一份:
jammichen@21cn.com
huchunguo (2001-05-09 11:04:00)
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls, Buttons, ScktComp, ExtCtrls, ComCtrls;
type
TChatForm = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
FileConnectItem: TMenuItem;
FileListenItem: TMenuItem;
StatusBar1: TStatusBar;
Bevel1: TBevel;
Panel1: TPanel;
Memo1: TMemo;
Memo2: TMemo;
N1: TMenuItem;
SpeedButton1: TSpeedButton;
Disconnect1: TMenuItem;
ServerSocket: TServerSocket;
ClientSocket: TClientSocket;
procedure FileListenItemClick(Sender: TObject);
procedure FileConnectItemClick(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure ServerSocketError(Sender: TObject; Number: Smallint;
var Description: string; Scode: Integer; const Source,
HelpFile: string; HelpContext: Integer; var CancelDisplay: Wordbool);
procedure Disconnect1Click(Sender: TObject);
procedure ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
procedure ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
protected
IsServer: Boolean;
end;
var
ChatForm: TChatForm;
Server: String;
implementation
{$R *.DFM}
procedure TChatForm.FileListenItemClick(Sender: TObject);
begin
FileListenItem.Checked := not FileListenItem.Checked;
//反置状态
if FileListenItem.Checked then
//监听
begin
ClientSocket.Active := False;
//禁止本机方客户程序
ServerSocket.Active := True;
//激活本机方客户程序
Statusbar1.Panels[0].Text := 'Listening...';
end
else
begin
if ServerSocket.Active then
ServerSocket.Active := False;
//禁止本机方服务器程序
Statusbar1.Panels[0].Text := '';
end;
end;
procedure TChatForm.FileConnectItemClick(Sender: TObject);
begin
if ClientSocket.Active then ClientSocket.Active := False;
//如当前状态是连接，则断开
if InputQuery('Computer to connect to', 'Address Name:', Server) then
//用户输入服务器地址
if Length(Server) > 0 then
with ClientSocket do
begin
Host := Server; //指定服务器方
Active := True; //激活客户方模块
FileListenItem.Checked := False;
end;
end;
procedure TChatForm.Exit1Click(Sender: TObject);
begin
ServerSocket.Close;
//关闭服务器socket
ClientSocket.Close;
//关闭客户socket
Close;
//退出程序
end;
procedure TChatForm.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
//用户按回车键则一次发送完毕
if IsServer then
ServerSocket.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.Count - 1])
//如果是服务器方，这由本机服务器方模块发送消息
else
ClientSocket.Socket.SendText(Memo1.Lines[Memo1.Lines.Count - 1]);
//如果是客户方，则由本机客户方模块发送信息
end;
procedure TChatForm.FormCreate(Sender: TObject);
begin
// FileListenItemClick(nil);
//程序开始时处于监听状态
end;
procedure TChatForm.ServerSocketError(Sender: TObject; Number: Smallint;
var Description: string; Scode: Integer; const Source, HelpFile: string;
HelpContext: Integer; var CancelDisplay: Wordbool);
begin
ShowMessage(Description);
//显示出错信息
end;
procedure TChatForm.Disconnect1Click(Sender: TObject);
begin
ClientSocket.Active := False;
//断开与客户方的连接
ServerSocket.Active := True;
//打开服务器方模块，执行监听
Statusbar1.Panels[0].Text := 'Listening...';
end;
procedure TChatForm.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteHost;
end;
procedure TChatForm.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TChatForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TChatForm.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
IsServer := True;
//作为服务器方
Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteAddress;
end;
procedure TChatForm.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Clear;
end;
procedure TChatForm.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
FileListenItemClick(nil);
//客户方断开后重新开始监听
end;
procedure TChatForm.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Memo2.Lines.Add('Error connecting to : ' + Server);
//memo中显示出错信息
ErrorCode := 0;
end;
procedure TChatForm.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Statusbar1.Panels[0].Text := 'Listening...';
end;
end.
//TserverSocket,TClientSocket
//使用socket构件，基于tcp/ip协议
//socker编程中，通讯两端不必关心实际底层软件，套接字会提供基于
//tcp/ip,xns,DECnet,IPX/SPX协议的连接
//socket编程中通过读写套接字互相收发数据，不同服务通过
//服务器套接字的不同端口给客户提供服务，使之相互不干扰，这就保证客户与服务期间不仅可以有多个连接，而且可以有多个程序同时运行
老赵 (2001-05-09 12:58:00)
to 无题：
烦劳给我发一个过来（aayzhao@263.net),谢谢！
celeries (2001-05-09 13:19:00)
谢谢，celeries@21cn.com
老Q (2001-06-01 9:36:00)
go on please
leebons (2001-06-01 14:23:00)
能不能给我一份？
e to：leebonslee@263.net
devecom (2001-06-01 14:28:00)
给我一份吧！devecom@163.com
不过也可以改写delphi的例子
小半 (2001-06-01 15:18:00)
to 无题
给我一个行吗，jacksoft@netease.com
润五月 (2001-06-01 15:41:00)
to 无题
麻烦给我一个行吗？谢谢
cuicuiczy@sina.com
ygc (2001-06-01 15:52:00)
好象DELPHI的DOMES下有例子（包括原代码）
你可以看看！！！！！！！！
lollman (2001-06-01 16:49:00)
Indy套件里面有个例子不错。
finelin (2001-06-01 21:23:00)
to lollman
如何用NMHTTP POST 文件到服务器？先谢啦
飞来石 (2001-09-08 11:57:00)
Internet盛行的今天，网上聊天已成为一种时尚。同时，各单位已建成了自己的局域网；能否在局域网上实现聊天呢？可以，网上到处都有这种工具。当然，我们可以拥有自己版权的聊天工具。
User Datagram Protocol (UDP)协议，是一种无连接协议。在Delphi中利用这种协议，可以轻松的编写出聊天程序，以下的程序，在Delphi 5+Pwin98中通过。
打开Delphi，新建Application
放置以下几个控件：Panel1、Panel2，其属性如下：
然后，放置以下控件：Edit1
ListBox1
Memo1
Button1
Button2
BitBtn1
Nmudp1其主要控件的属性如下：
各主要控件的功能如下：
现在的界面如下：
源程序如下：
unit main;
interface
uses
Windows
Messages
SysUtils
Classes
Graphics
Controls
Forms
Dialogs
StdCtrls
Buttons
ExtCtrls
NMUDP
Menus
ComCtrls
WinSock; file://增加WinSock
type
TForm1 = class(TForm)
NMUDP1: TNMUDP;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
Memo1: TMemo;
Panel3: TPanel;
Panel4: TPanel;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
FromIP: String; Port: Integer);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ComputerName: array[0..127] of Char;
implementation
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
var
sz: dword;
begin
sz := SizeOf(Computername);
GetComputerName(ComputerName
sz);//得到本机的标识
ListBox1.Items.Clear;
ListBox1.Items.Add('大家');//在网友清单中，增加"大家"和
ListBox1.Items.Add(ComputerName);//本机名称
ListBox1.ItemIndex:=0;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MyStream: TMemoryStream;
TmpStr: String;
i:integer;
Begin
if Edit1.Text<>'' then file://如果所说的内容不为空
则发送。
begin
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemotePort :=8888;//端口为：8888，可以自己定义，但必须与LocalPort相一致。
if ListBox1.Items[ListBox1.ItemIndex]=ComputerName then
Edit1.Text:=ComputerName+'自言自语道:'+Edit1.Text file://如果和自己对话.
Else
Edit1.Text:=ComputerName+'对'+ListBox1.Items[listbox1.itemindex]+'说:'+Edit1.Text;
TmpStr :=Edit1.text;
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[1]
Length(Edit1.Text));
if ListBox1.ItemIndex=0 then
begin
for i:=1 to ListBox1.Items.Count-1 do file://如果选择"大家"，则对所有的网友发送信息
begin
NMUDP1.RemoteHost :=ListBox1.Items;//远程主机的名称或地址.
NMUDP1.SendStream(MyStream);//发送信息.
End;
end
else 如果私聊
begin
NMUDP1.RemoteHost :=ListBox1.Items[ListBox1.itemindex]; file://仅对所选中的网友.
NMUDP1.SendStream(MyStream);
End;
finally
MyStream.Free;
end;
Edit1.Text:='';
Edit1.SetFocus;
end else
Edit1.SetFocus;
end;
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
MyStream: TMemoryStream;
TmpStr: String;
begin
MyStream := TMemoryStream.Create;
try
NMUDP1.ReadStream(MyStream);
SetLength(TmpStr
NumberBytes);
MyStream.Read(TmpStr[1]
NumberBytes);
Memo1.Lines.Add(TmpStr); file://显示对话的内容.
finally
MyStream.Free;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
MyStream: TMemoryStream;
TmpStr: String;
i:integer;
Begin
if (key=#13) and (Edit1.Text<>'') then file://如果所说的内容不为空，且最后一个按键为"Enter"
则发送。
begin
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemotePort :=8888;
if ListBox1.Items[ListBox1.ItemIndex]=ComputerName then
Edit1.Text:=ComputerName+'自言自语道:'+Edit1.Text
else
Edit1.Text:=ComputerName+'对'+ListBox1.Items[listbox1.itemindex]+'说:'+Edit1.Text;
TmpStr :=Edit1.text;
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[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;
Edit1.Text:='';
edit1.SetFocus;
end else
Edit1.SetFocus;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
InputString:String;
begin file://增加网友，输入的可以是IP地址或计算机名称。
InputString:=InputBox('增加人员'
'IP地址或计算机名'
'');
if Inputstring<>'' then ListBox1.Items.Add(Inputstring);
ListBox1.ItemIndex:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin file://删除当前选中的网友，但"大家"不能被删除.
if ListBox1.ItemIndex<>0 then ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end.
这样，一个简单的聊天工具就做好了，只要双方同时运行本程序，且将对方的计算机名称或IP地址加入到网友中即可实现实时聊天了
一个属于自己版权的聊天程序，就这样编写成功了。
程序运行时，自动加入两个网友："大家"和本地计算机名称，运行时，界面如下：
当然，你可以增加更多的内容，使程序更加的完善，以求更多的功能。
zcm1975117 (2001-09-08 15:41:00)
to:luket
怎么上不了那个网站,请发给我一份吧!!
zcm1975117@21cn.com
un1 (2001-09-09 2:05:00)
http://www.banasoft.com/AVPhone.htm
CJ (2001-09-10 20:42:00)
avphone 干吗？
有没有那个ACTIVEX的零售版本？
cloudcrane (2001-09-15 13:56:00)
谢谢哪位可以给我发过来oicq的源代码，那个站好象是上不去
再次感谢！！！
lobate (2001-09-16 8:23:00)
我怎么也下摘不了您所提供的原码，能发给我吗。谢谢！
jingwei@goldeastpaper.com.cn
xieyj (2001-09-16 8:40:00)
给小弟发过来一份吧.xieyj@esquel.com
boy1979 (2001-09-16 21:34:00)
asp的可不可以啊？
ZXW49362727 (2001-09-17 15:53:00)
也给我一份，好不好？ZXW96136@21CN.COM
rainxy2002 (2001-09-17 16:44:00)
小弟先谢过了!!!
Rainxy2000@163.net
ironfist (2001-09-17 17:07:00)
想看一下delphi的源码
ironfist777@sina.com.cn
hathathat (2001-10-11 23:07:00)
无题
你说的聊天程序下载后无法打开 能给我发一份吗 多谢
hathathat@yeah.net
liuyuch2000 (2001-10-12 18:51:00)
这是一个未来高手的请教！！！
给我也来一份吧，万分感谢！！！
liu-yu-2000@sohu.com
老Q (2001-10-22 20:42:00)
俺要求用web的方式聊天!
un1 (2001-10-25 23:33:00)
[8D]一个使用 AVPhone 的点对点的语音及视频聊天程序源代码：
http://www.banasoft.com/DownLoad/AVPhone.zip
CJ (2001-10-27 21:14:00)
楼上：AVPHONE CRACK有伐？SOURCE更好！呵呵...
另外到底有没有人真正找到用DELPHI 实现H.XX的源码啊？或者其它的带源码的？
物理 (2001-10-27 22:06:00)
我想要delphi的icq源代码，哪为大虾愿意转让，到我的问题下领分
johnnyli (2001-10-28 1:03:00)
beta,你好，麻烦您给我发一份聊天程序的SOURCE好吗？
goddy (2001-11-08 17:37:00)
哪里有啊，没有一个可上地去的!!!!!!!!!!!
sukuen (2001-11-08 19:17:00)
请传给我一份:
mao_1@163.net
johnnyli (2001-11-09 0:33:00)
lgl你好.可以把那个NETICQ源码发给我一份吗,我上不去那个站.
E-MAIL地址:lilinian@163.net 多谢!
kenwoo (2001-11-19 17:33:00)
lgl你好.可以把那个NETICQ源码发给我一份吗,我上不去那个站.
E-MAIL地址:kenwoo@263.net多谢!
super[x] (2001-11-19 18:10:00)
也给我一份，好不好？superxliew@yahoo.com
jinzuo007 (2001-11-22 15:48:00)
lgl你好!可以把那个NETICQ源码发给我一份吗,我上不去那个站.
E-MAIL地址:Jinzuo007@21cn.com多谢!
zya2002 (2001-11-23 11:22:00)
lgl你好.看在我们名字差不多的份上,能否把那个NETICQ源码发给我一份,因为我上不去那
个站.我的E-MAIL地址是:zya2002@163.com.多谢了:->
apple058 (2001-11-23 12:02:00)
lgl 大侠：能否把那个NETICQ源码发给我一份, mydelphiweb@cmmail.com 谢谢！谢谢！
beta 大侠：有空也给我发一份，我的 Email: mydelphiweb@cmmail.com 谢谢！谢谢！
无题 大侠：有空也给我发一份，我的 Email: mydelphiweb@cmmail.com 谢谢！谢谢！
jollier 大侠：有空也给我发一份，我的 Email: mydelphiweb@cmmail.com 谢谢！谢谢！
不好意思各位高手，本人乃刚入门。所以想弄几个源代码（Delphi）瞧瞧！谢谢！
coolcat (2001-11-23 12:09:00)
我也想要一份.
我的MAIL: netcat2@21cn.com
dingbaosheng (2001-11-23 12:27:00)
大家就知道伸手 上传不就行了么
coolbaby (2001-12-04 9:20:00)
agree dingbaosheng
就是好象教父的网站现在一直上不了
可惜，难道教父放弃了么
lk114 (2002-01-30 20:50:00)
to 无题：
劳驾给我发一个过来（lk114@sina.com）,谢谢！
kuqugun (2002-05-14 19:28:00)
lgl 大侠：能否把那个NETICQ源码发给我一份, kuqugun@hotmail.com 谢谢！谢谢！
beta 大侠：有空也给我发一份，我的 Email: kuqugun@hotmail.com 谢谢！谢谢！
无题 大侠：有空也给我发一份，我的 Email: kuqugun@hotmail.com 谢谢！谢谢！
jollier 大侠：有空也给我发一份，我的 Email: kuqugun@hotmail.com 谢谢！谢谢！
不好意思各位高手，本人乃刚入门。所以想弄几个源代码（Delphi）瞧瞧！谢谢！
教父 (2002-05-14 20:03:00)
我现在放到 http://delphi.mychangshu.com/dispdoc.asp?id=928 上了，以前的那个主页
早就上不去了，加上一直以来很忙，所以就没有再做主页了，不过前几天新申请了一个，
还可以通过delphis.yeah.net来访问，不过还没有东西，呵呵。
感谢大家的关注！
topdelphi (2002-09-03 22:26:00)
我也想要个DELPHI写的聊天程序啊,我有邮箱是say-forevers@163.com
xiehong (2002-09-04 19:18:00)
聊天室用asp或php写比较好.用delphi嘛...
老Q (2002-09-04 19:23:00)
接受答案了.
xyl999 (2002-09-04 19:24:00)
来晚了， 我也要 XYL999@163.NET 谢谢！
qdyoung (2002-09-07 16:16:00)
www.8421.org
主页就有下载
xjhsoft (2003-11-07 13:12:00)
兄弟们，这些网址，我去看了都不能一载，你们谁有视频聊天的源码，发一份给我，谢谢。
要多少分说一下，我给。
cxlin (2004-06-12 12:03:24)
我也想要一份neticq.的源码,我的email:cxgsliang@yahoo.com.cn
xiehong的回答最终被接受。
分类：Internet/TCPIP 老Q (2001-02-04 9:25:00)
高分求购聊天室源程序(最好是用delphi编写的！)
其它的也可以考虑。如果使用不错,再加400分!
wsn (2001-02-04 9:27:00)
wdl有自己编写的这样的 东东
你可以和他交流一下
lgl (2001-02-04 13:19:00)
到http://delphis.yeah.net上去下载一个NetICQ的源代码,带有一个聊天室程序(不过是用UDP协议写的)
liguang (2001-02-04 14:16:00)
lgl你好.看在我们名字差不多的份上,能否把那个NETICQ源码发给我一份,因为我上不去那
个站.我的E-MAIL地址是:ligwin@21cn.com.多谢了:->
小李飞刀 (2001-02-05 0:55:00)
lgl你好.看在我们名字差不多的份上,能否把那个NETICQ源码发给我一份,因为我上不去那
个站.我的E-MAIL地址是:lixiuchuan@263.net多谢了:->
beta (2001-02-05 2:23:00)
给你发过去一份，Delphi 写的，请接收。
jingtao (2001-02-05 3:24:00)
beta》也烦请给俺一份吧
vileo (2001-02-05 8:57:00)
beta》也烦请给俺一份吧
教父 (2001-02-05 10:16:00)
to liguang:
我的主页（http://delphis.yeah.net）这两天好象有些问题，你再去试试，如果不行的，
到另一个镜像（http://bruce_zhao.163.net）上去看看。
jqw (2001-02-05 10:45:00)
beta》也烦请给俺一份吧
j_qw_cn@sina.com
房客 (2001-02-08 1:48:00)
聊天室?
什么要求啊？
C/S？
zhaoap (2001-02-09 12:35:00)
好多教材上都有，boland的例程中也有，如果作为学习还可以，功能一般很简单
老Q (2001-02-11 10:20:00)
to beta 大侠：
代码已经收到，非常咸谢.不过，不知是什么
原因不能正确编译,请指教。
to lgl 大侠：
你的程序已经下地载，很不错。可是源代码
无法下载，能否E-mail一份？
老Q (2001-03-04 10:28:00)
还有没有感兴趣的?
3h (2001-03-04 14:30:00)
能否关注一下我的问题？
http://202.120.85.61/delphibbs/DispQ.asp?LID=461723
谢谢！
NetICQ的Source已下载，研究中……
3h (2001-03-05 8:53:00)
大量的消息，程序真够简洁，不错，不过可真难明白的：）
zhangkan (2001-03-05 9:21:00)
给我发一个过来,好吗?我是kan@freetrend.com.vn,谢谢!
guobozhang (2001-03-17 15:18:00)
to beta 大侠：
烦劳给我发一个过来。
guobozhang@263.net
无题 (2001-03-17 15:41:00)
在http://202.112.105.179/delphi/上就有一个聊天室的源程序
热带鱼聊天室 2.000及其DELPHI源程序: 改进后的TCP/IP聊天程序，
小巧可爱，动感十足，非常适合在局域网上聊天，或直接通过IP地址进行聊天
速度非凡！内含DELPHI源程序。（//不过它写入注册表一开机它就出现）
无题 (2001-03-17 15:49:00)
谁如果下不下来我可以发给你们
wsn (2001-03-17 22:08:00)
to beta 大侠：
烦劳给我发一个过来。
highnice@sohu.com
老Q (2001-03-20 21:02:00)
to 无题：
烦劳给我发一个过来（qyx@jd.cnpc.com.cn),谢谢！
zhangkan (2001-03-20 21:27:00)
无题：给我一份好吗？kan@freetrend.com.vn，谢谢！
CJ (2001-03-20 21:32:00)
无题 and beta: please send me a copy
cjcjc@online.sh.cn
thanx a lot
Bcbhua (2001-03-22 9:44:00)
小弟的主页上有小弟的一个拙作，是C++Builder的，
基于TCP，
你可以去看看！
LoveBcb.yeah.net
lcd (2001-03-22 11:13:00)
也烦请给俺一份吧
悲酥清风 (2001-03-22 11:21:00)
beta: please send me a copy!
zengr (2001-03-22 12:00:00)
这里也来一个！zr_pst@21cn.com
Buder (2001-03-29 19:52:00)
无题：
也给我一份，好不好？bingren2000@263.net
wufengscl (2001-03-30 1:24:00)
wufengscl@sina.com
如可将原码e来，不胜感激//
yaya8163 (2001-03-30 8:49:00)
无题上不去,来一份:YAYA8163@21CN.COM
scorpions (2001-03-30 9:24:00)
俺也要
fsy_2000@sina.com
nnyxm (2001-03-30 14:49:00)
能给我一份吗？(99yxm@263.net)
iori1 (2001-04-14 7:54:00)
本人有kinpro@fm365.com
luket (2001-04-14 10:19:00)
我有一个完整的类似MSN，OICQ的程序，用ICS写的，有谁要？
mantousoft (2001-04-14 11:19:00)
我很早的时候作了一个用UDP的，还不要服务器，不过在局域网里用的
由源程序：mantousoft.51.net
zhangfeng1001 (2001-04-14 12:41:00)
给我一份哦
CJ (2001-04-14 14:08:00)
》来自：luket 时间：01-4-14 10:19:41 ID:502372
》我有一个完整的类似MSN，OICQ的程序，用ICS写的，有谁要？
cjcjc@online.sh.cn
多谢
iori1：你那个我也要，呵呵，谢谢
CJ (2001-04-14 14:09:00)
mantousoft：还有你那个，呵呵，谢谢cjcjc@online.sh.cn
老Q (2001-04-23 21:26:00)
to luket:
烦劳给我一份,thank you!
(qyx@jd.cnpc.com.cn)
wwxxpp123 (2001-04-25 13:00:00)
烦劳给我一份,thank you!
flybirdwxp@163.net
lanler (2001-04-25 13:06:00)
to beta 烦请发一份给我
栋栋 (2001-05-01 14:04:00)
luket
NetICQ
给我吧，快点
andyyau@wx88.net 或者 栋栋@antdown.com 都可以！
jollier (2001-05-01 16:50:00)
我这儿有个局域网聊天室（DELPHI写的），若你想要，请先给我E-MAIL。
luket (2001-05-04 23:54:00)
各位：由于163近期不能上传，所以拖至现在...
下载地址：
http://go1.163.com/~luket/Download/MSN.zip
完整OICQ！服务器与客户端基于UDP，客户之间基于TCP。
CJ (2001-05-05 20:32:00)
MSN没有源码？？？
luket (2001-05-05 21:51:00)
Sorry,分成几次上传，好麻烦！
源代码下载地址：
http://go1.163.com/~luket/Download/MSN_Source.zip
黄文林 (2001-05-07 8:52:00)
也传给我一份:
hwl2000@netease.com
jammi (2001-05-07 10:29:00)
请传给我一份:
jammichen@21cn.com
huchunguo (2001-05-09 11:04:00)
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls, Buttons, ScktComp, ExtCtrls, ComCtrls;
type
TChatForm = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
FileConnectItem: TMenuItem;
FileListenItem: TMenuItem;
StatusBar1: TStatusBar;
Bevel1: TBevel;
Panel1: TPanel;
Memo1: TMemo;
Memo2: TMemo;
N1: TMenuItem;
SpeedButton1: TSpeedButton;
Disconnect1: TMenuItem;
ServerSocket: TServerSocket;
ClientSocket: TClientSocket;
procedure FileListenItemClick(Sender: TObject);
procedure FileConnectItemClick(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure ServerSocketError(Sender: TObject; Number: Smallint;
var Description: string; Scode: Integer; const Source,
HelpFile: string; HelpContext: Integer; var CancelDisplay: Wordbool);
procedure Disconnect1Click(Sender: TObject);
procedure ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
procedure ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
protected
IsServer: Boolean;
end;
var
ChatForm: TChatForm;
Server: String;
implementation
{$R *.DFM}
procedure TChatForm.FileListenItemClick(Sender: TObject);
begin
FileListenItem.Checked := not FileListenItem.Checked;
//反置状态
if FileListenItem.Checked then
//监听
begin
ClientSocket.Active := False;
//禁止本机方客户程序
ServerSocket.Active := True;
//激活本机方客户程序
Statusbar1.Panels[0].Text := 'Listening...';
end
else
begin
if ServerSocket.Active then
ServerSocket.Active := False;
//禁止本机方服务器程序
Statusbar1.Panels[0].Text := '';
end;
end;
procedure TChatForm.FileConnectItemClick(Sender: TObject);
begin
if ClientSocket.Active then ClientSocket.Active := False;
//如当前状态是连接，则断开
if InputQuery('Computer to connect to', 'Address Name:', Server) then
//用户输入服务器地址
if Length(Server) > 0 then
with ClientSocket do
begin
Host := Server; //指定服务器方
Active := True; //激活客户方模块
FileListenItem.Checked := False;
end;
end;
procedure TChatForm.Exit1Click(Sender: TObject);
begin
ServerSocket.Close;
//关闭服务器socket
ClientSocket.Close;
//关闭客户socket
Close;
//退出程序
end;
procedure TChatForm.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
//用户按回车键则一次发送完毕
if IsServer then
ServerSocket.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.Count - 1])
//如果是服务器方，这由本机服务器方模块发送消息
else
ClientSocket.Socket.SendText(Memo1.Lines[Memo1.Lines.Count - 1]);
//如果是客户方，则由本机客户方模块发送信息
end;
procedure TChatForm.FormCreate(Sender: TObject);
begin
// FileListenItemClick(nil);
//程序开始时处于监听状态
end;
procedure TChatForm.ServerSocketError(Sender: TObject; Number: Smallint;
var Description: string; Scode: Integer; const Source, HelpFile: string;
HelpContext: Integer; var CancelDisplay: Wordbool);
begin
ShowMessage(Description);
//显示出错信息
end;
procedure TChatForm.Disconnect1Click(Sender: TObject);
begin
ClientSocket.Active := False;
//断开与客户方的连接
ServerSocket.Active := True;
//打开服务器方模块，执行监听
Statusbar1.Panels[0].Text := 'Listening...';
end;
procedure TChatForm.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteHost;
end;
procedure TChatForm.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TChatForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add(Socket.ReceiveText);
end;
procedure TChatForm.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
IsServer := True;
//作为服务器方
Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteAddress;
end;
procedure TChatForm.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Clear;
end;
procedure TChatForm.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
FileListenItemClick(nil);
//客户方断开后重新开始监听
end;
procedure TChatForm.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Memo2.Lines.Add('Error connecting to : ' + Server);
//memo中显示出错信息
ErrorCode := 0;
end;
procedure TChatForm.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Statusbar1.Panels[0].Text := 'Listening...';
end;
end.
//TserverSocket,TClientSocket
//使用socket构件，基于tcp/ip协议
//socker编程中，通讯两端不必关心实际底层软件，套接字会提供基于
//tcp/ip,xns,DECnet,IPX/SPX协议的连接
//socket编程中通过读写套接字互相收发数据，不同服务通过
//服务器套接字的不同端口给客户提供服务，使之相互不干扰，这就保证客户与服务期间不仅可以有多个连接，而且可以有多个程序同时运行
老赵 (2001-05-09 12:58:00)
to 无题：
烦劳给我发一个过来（aayzhao@263.net),谢谢！
celeries (2001-05-09 13:19:00)
谢谢，celeries@21cn.com
老Q (2001-06-01 9:36:00)
go on please
leebons (2001-06-01 14:23:00)
能不能给我一份？
e to：leebonslee@263.net
devecom (2001-06-01 14:28:00)
给我一份吧！devecom@163.com
不过也可以改写delphi的例子
小半 (2001-06-01 15:18:00)
to 无题
给我一个行吗，jacksoft@netease.com
润五月 (2001-06-01 15:41:00)
to 无题
麻烦给我一个行吗？谢谢
cuicuiczy@sina.com
ygc (2001-06-01 15:52:00)
好象DELPHI的DOMES下有例子（包括原代码）
你可以看看！！！！！！！！
lollman (2001-06-01 16:49:00)
Indy套件里面有个例子不错。
finelin (2001-06-01 21:23:00)
to lollman
如何用NMHTTP POST 文件到服务器？先谢啦
飞来石 (2001-09-08 11:57:00)
Internet盛行的今天，网上聊天已成为一种时尚。同时，各单位已建成了自己的局域网；能否在局域网上实现聊天呢？可以，网上到处都有这种工具。当然，我们可以拥有自己版权的聊天工具。
User Datagram Protocol (UDP)协议，是一种无连接协议。在Delphi中利用这种协议，可以轻松的编写出聊天程序，以下的程序，在Delphi 5+Pwin98中通过。
打开Delphi，新建Application
放置以下几个控件：Panel1、Panel2，其属性如下：
然后，放置以下控件：Edit1
ListBox1
Memo1
Button1
Button2
BitBtn1
Nmudp1其主要控件的属性如下：
各主要控件的功能如下：
现在的界面如下：
源程序如下：
unit main;
interface
uses
Windows
Messages
SysUtils
Classes
Graphics
Controls
Forms
Dialogs
StdCtrls
Buttons
ExtCtrls
NMUDP
Menus
ComCtrls
WinSock; file://增加WinSock
type
TForm1 = class(TForm)
NMUDP1: TNMUDP;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
Memo1: TMemo;
Panel3: TPanel;
Panel4: TPanel;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
FromIP: String; Port: Integer);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ComputerName: array[0..127] of Char;
implementation
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
var
sz: dword;
begin
sz := SizeOf(Computername);
GetComputerName(ComputerName
sz);//得到本机的标识
ListBox1.Items.Clear;
ListBox1.Items.Add('大家');//在网友清单中，增加"大家"和
ListBox1.Items.Add(ComputerName);//本机名称
ListBox1.ItemIndex:=0;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MyStream: TMemoryStream;
TmpStr: String;
i:integer;
Begin
if Edit1.Text<>'' then file://如果所说的内容不为空
则发送。
begin
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemotePort :=8888;//端口为：8888，可以自己定义，但必须与LocalPort相一致。
if ListBox1.Items[ListBox1.ItemIndex]=ComputerName then
Edit1.Text:=ComputerName+'自言自语道:'+Edit1.Text file://如果和自己对话.
Else
Edit1.Text:=ComputerName+'对'+ListBox1.Items[listbox1.itemindex]+'说:'+Edit1.Text;
TmpStr :=Edit1.text;
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[1]
Length(Edit1.Text));
if ListBox1.ItemIndex=0 then
begin
for i:=1 to ListBox1.Items.Count-1 do file://如果选择"大家"，则对所有的网友发送信息
begin
NMUDP1.RemoteHost :=ListBox1.Items;//远程主机的名称或地址.
NMUDP1.SendStream(MyStream);//发送信息.
End;
end
else 如果私聊
begin
NMUDP1.RemoteHost :=ListBox1.Items[ListBox1.itemindex]; file://仅对所选中的网友.
NMUDP1.SendStream(MyStream);
End;
finally
MyStream.Free;
end;
Edit1.Text:='';
Edit1.SetFocus;
end else
Edit1.SetFocus;
end;
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
MyStream: TMemoryStream;
TmpStr: String;
begin
MyStream := TMemoryStream.Create;
try
NMUDP1.ReadStream(MyStream);
SetLength(TmpStr
NumberBytes);
MyStream.Read(TmpStr[1]
NumberBytes);
Memo1.Lines.Add(TmpStr); file://显示对话的内容.
finally
MyStream.Free;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
MyStream: TMemoryStream;
TmpStr: String;
i:integer;
Begin
if (key=#13) and (Edit1.Text<>'') then file://如果所说的内容不为空，且最后一个按键为"Enter"
则发送。
begin
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemotePort :=8888;
if ListBox1.Items[ListBox1.ItemIndex]=ComputerName then
Edit1.Text:=ComputerName+'自言自语道:'+Edit1.Text
else
Edit1.Text:=ComputerName+'对'+ListBox1.Items[listbox1.itemindex]+'说:'+Edit1.Text;
TmpStr :=Edit1.text;
MyStream := TMemoryStream.Create;
try
MyStream.Write(TmpStr[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;
Edit1.Text:='';
edit1.SetFocus;
end else
Edit1.SetFocus;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
InputString:String;
begin file://增加网友，输入的可以是IP地址或计算机名称。
InputString:=InputBox('增加人员'
'IP地址或计算机名'
'');
if Inputstring<>'' then ListBox1.Items.Add(Inputstring);
ListBox1.ItemIndex:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin file://删除当前选中的网友，但"大家"不能被删除.
if ListBox1.ItemIndex<>0 then ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end.
这样，一个简单的聊天工具就做好了，只要双方同时运行本程序，且将对方的计算机名称或IP地址加入到网友中即可实现实时聊天了
一个属于自己版权的聊天程序，就这样编写成功了。
程序运行时，自动加入两个网友："大家"和本地计算机名称，运行时，界面如下：
当然，你可以增加更多的内容，使程序更加的完善，以求更多的功能。
zcm1975117 (2001-09-08 15:41:00)
to:luket
怎么上不了那个网站,请发给我一份吧!!
zcm1975117@21cn.com
un1 (2001-09-09 2:05:00)
http://www.banasoft.com/AVPhone.htm
CJ (2001-09-10 20:42:00)
avphone 干吗？
有没有那个ACTIVEX的零售版本？
cloudcrane (2001-09-15 13:56:00)
谢谢哪位可以给我发过来oicq的源代码，那个站好象是上不去
再次感谢！！！
lobate (2001-09-16 8:23:00)
我怎么也下摘不了您所提供的原码，能发给我吗。谢谢！
jingwei@goldeastpaper.com.cn
xieyj (2001-09-16 8:40:00)
给小弟发过来一份吧.xieyj@esquel.com
boy1979 (2001-09-16 21:34:00)
asp的可不可以啊？
ZXW49362727 (2001-09-17 15:53:00)
也给我一份，好不好？ZXW96136@21CN.COM
rainxy2002 (2001-09-17 16:44:00)
小弟先谢过了!!!
Rainxy2000@163.net
ironfist (2001-09-17 17:07:00)
想看一下delphi的源码
ironfist777@sina.com.cn
hathathat (2001-10-11 23:07:00)
无题
你说的聊天程序下载后无法打开 能给我发一份吗 多谢
hathathat@yeah.net
liuyuch2000 (2001-10-12 18:51:00)
这是一个未来高手的请教！！！
给我也来一份吧，万分感谢！！！
liu-yu-2000@sohu.com
老Q (2001-10-22 20:42:00)
俺要求用web的方式聊天!
un1 (2001-10-25 23:33:00)
[8D]一个使用 AVPhone 的点对点的语音及视频聊天程序源代码：
http://www.banasoft.com/DownLoad/AVPhone.zip
CJ (2001-10-27 21:14:00)
楼上：AVPHONE CRACK有伐？SOURCE更好！呵呵...
另外到底有没有人真正找到用DELPHI 实现H.XX的源码啊？或者其它的带源码的？
物理 (2001-10-27 22:06:00)
我想要delphi的icq源代码，哪为大虾愿意转让，到我的问题下领分
johnnyli (2001-10-28 1:03:00)
beta,你好，麻烦您给我发一份聊天程序的SOURCE好吗？
goddy (2001-11-08 17:37:00)
哪里有啊，没有一个可上地去的!!!!!!!!!!!
sukuen (2001-11-08 19:17:00)
请传给我一份:
mao_1@163.net
johnnyli (2001-11-09 0:33:00)
lgl你好.可以把那个NETICQ源码发给我一份吗,我上不去那个站.
E-MAIL地址:lilinian@163.net 多谢!
kenwoo (2001-11-19 17:33:00)
lgl你好.可以把那个NETICQ源码发给我一份吗,我上不去那个站.
E-MAIL地址:kenwoo@263.net多谢!
super[x] (2001-11-19 18:10:00)
也给我一份，好不好？superxliew@yahoo.com
jinzuo007 (2001-11-22 15:48:00)
lgl你好!可以把那个NETICQ源码发给我一份吗,我上不去那个站.
E-MAIL地址:Jinzuo007@21cn.com多谢!
zya2002 (2001-11-23 11:22:00)
lgl你好.看在我们名字差不多的份上,能否把那个NETICQ源码发给我一份,因为我上不去那
个站.我的E-MAIL地址是:zya2002@163.com.多谢了:->
apple058 (2001-11-23 12:02:00)
lgl 大侠：能否把那个NETICQ源码发给我一份, mydelphiweb@cmmail.com 谢谢！谢谢！
beta 大侠：有空也给我发一份，我的 Email: mydelphiweb@cmmail.com 谢谢！谢谢！
无题 大侠：有空也给我发一份，我的 Email: mydelphiweb@cmmail.com 谢谢！谢谢！
jollier 大侠：有空也给我发一份，我的 Email: mydelphiweb@cmmail.com 谢谢！谢谢！
不好意思各位高手，本人乃刚入门。所以想弄几个源代码（Delphi）瞧瞧！谢谢！
coolcat (2001-11-23 12:09:00)
我也想要一份.
我的MAIL: netcat2@21cn.com
dingbaosheng (2001-11-23 12:27:00)
大家就知道伸手 上传不就行了么
coolbaby (2001-12-04 9:20:00)
agree dingbaosheng
就是好象教父的网站现在一直上不了
可惜，难道教父放弃了么
lk114 (2002-01-30 20:50:00)
to 无题：
劳驾给我发一个过来（lk114@sina.com）,谢谢！
kuqugun (2002-05-14 19:28:00)
lgl 大侠：能否把那个NETICQ源码发给我一份, kuqugun@hotmail.com 谢谢！谢谢！
beta 大侠：有空也给我发一份，我的 Email: kuqugun@hotmail.com 谢谢！谢谢！
无题 大侠：有空也给我发一份，我的 Email: kuqugun@hotmail.com 谢谢！谢谢！
jollier 大侠：有空也给我发一份，我的 Email: kuqugun@hotmail.com 谢谢！谢谢！
不好意思各位高手，本人乃刚入门。所以想弄几个源代码（Delphi）瞧瞧！谢谢！
教父 (2002-05-14 20:03:00)
我现在放到 http://delphi.mychangshu.com/dispdoc.asp?id=928 上了，以前的那个主页
早就上不去了，加上一直以来很忙，所以就没有再做主页了，不过前几天新申请了一个，
还可以通过delphis.yeah.net来访问，不过还没有东西，呵呵。
感谢大家的关注！
topdelphi (2002-09-03 22:26:00)
我也想要个DELPHI写的聊天程序啊,我有邮箱是say-forevers@163.com
xiehong (2002-09-04 19:18:00)
聊天室用asp或php写比较好.用delphi嘛...
老Q (2002-09-04 19:23:00)
接受答案了.
xyl999 (2002-09-04 19:24:00)
来晚了， 我也要 XYL999@163.NET 谢谢！
qdyoung (2002-09-07 16:16:00)
www.8421.org
主页就有下载
xjhsoft (2003-11-07 13:12:00)
兄弟们，这些网址，我去看了都不能一载，你们谁有视频聊天的源码，发一份给我，谢谢。
要多少分说一下，我给。
cxlin (2004-06-12 12:03:24)
我也想要一份neticq.的源码,我的email:cxgsliang@yahoo.com.cn
xiehong的回答最终被接受。
9
963119
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.