有关网络间传送数据的问题，50分，快快来。(50分)

A

aynes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-20

• #1

请问如何实现网络间点对点的传输（通过IP来定位），
我急用，。
可以的话，发到我邮箱(zjg_aynes@hotmail.com)

最好的话，有以下功能：
1、程序分为发射程序与接收程序。
2、程序上有输入IP的EDIT框，能发射很随意的一些资料到接收处即可。
程序接收后，可以显示出来。
3、我是新手，在关键部分最好有注释。
谢谢大家了。
收到邮件就给分。

 

C

chobits

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-20

• #2

on the way

 

A

aynes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-20

• #3

to chobits:
接收方的地址就是：对方的IP地址？
接收方的端口是什么？应该如何填？
DELPHIT自带的控件是不是也能作同样的工作。

 

W

wsy539

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-20

• #4

用delphi自带的TNMUDP控件，
程序如下：
///////////发送
NMUDP1.RemoteHost :=对方IP;
NMUDP1.RemotePort :=对方localIP;
var
recechar:array[1..1024] of Char;
sentstr:string;
i:integer;
begin
sentstr:=Edit1.text;
for i:=1 to length(sentstr) do
sentusestr:=sentstr;
NMUDP1.SendBuffer(sentusestr,length(sentstr));
end;

///////////接收
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
sentstr:string;
recechar:array[1..1024] of Char;
i:integer;
recestr:string;
begin
NMUDP1.ReadBuffer(recechar,recenum);
for i:=1 to 4 do
recestr:=recestr+recechar;
Edit1.text:=recestr;
end;

 

A

aynes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-11

• #5

接受答案了.