谁有类似winpopup的局域网聊天功能的软件原代码,能否发我一份?急用,谢谢!(145分)

我把分倾囊相赠!

Delphi5自带的Sample中就有实现此功能的范例。
目录为 Borland/Delphi5/Demos/Internet/Chat

那个例子也过于简单了点吧?

winpopup支持写机器名或用户名就可以对话
--这样就省了写IP号的麻烦
支持一句句对话式的发送
--这样就省了listening的监听时间
而我想了解的也就是这方面功能的实现,还请各位大虾赐教

>支持写机器名或用户名就可以对话
关注

关于："获取远程机的名字"

李过 在 00-8-21 15:54:15 提供了如下回答, 请您查阅和评估:
-----------------------------------------------------------------------------
请运行下面的测试程序，edit1.text填写IP地址，比如“202.101.xx.xx”,然后
点button,然后edit2会显示该IP对应的机器域名。要想获得更加多的信息可以对返回的phe结构做更多解析。

另外，这样好象不可以获得机器名字.是否还要建立socket来调用别的一些函数才可以完成获取机器工作组和名字等其他的功能呢？


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,winsock;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}


function remotename : string;
var
phe : PHostEnt;
GInitData : TWSADATA;
netaddr:u_long;

begin
WSAStartup($101, GInitData);
Result := '';
netaddr:=inet_addr(Pchar(form1.edit1.text));
phe:=GetHostbyaddr(pchar(@netaddr),30,0);
result:=strpas(phe.h_name);
WSACleanup;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=remotename;
end;

end.
-----------------------------------------------------------------------------
该问题的URL是：http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=292504

目前您已经获得积分 3213 分, 专家分 2795 分。欢迎经常光顾，争取上大富翁排行榜。

大富翁论坛(http://www.gislab.ecnu.edu.cn/delphibbs)

>>房客
这段程序实现了从IP推出域名的功能
但从用户名或主机名推出IP还是不行
看来微软还真有两下子,随便一个小程序就让人这么头疼
我觉得这个winpopup不是通过TCP/IP协议实现的
因为它只适用于同一个局域网内
所以或许可以用fastnet中的一些控件来实现,
不知大家以为然否?

程序已经发出...

万分感谢,可是...怎么还没收到?
能否拜托再发一份?
我的邮箱地址:wangrb@cattsoft.com

信已收到,虽然功能仍有些不同,但基本的都有了
正在研读中
多谢!

www.net-wing/kangwei/ 中有一个不错的源代码

我写错了 往往www.net-wing.net/kangwei

netwind:可以给我也一份吗。谢谢

netwind:可以给我也一份吗。谢谢
goubo@gou.com.cn

多人接受答案了。