十万火急,170分 全部身价了， D6 只要能实现 （c/s） c指定端囗(8000) 连接s指定端囗(8080) 局域网内稳定收发文件的功能, (

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #1

十万火急,170分 全部身价了， D6 只要能实现 （c/s） c指定端囗(8000) 连接s指定端囗(8080) 局域网内稳定收发文件的功能, ( 积分: 170 )<br />D6 求局域网内文件传输程序，不管理用什么方法，只要能实现（c/s） c指定端囗 连接s指定端囗, 稳定收发文件的功能。
已经好多天了，再不作不出来就，没饭吃了。[]

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #2

D6 求局域网内文件传输程序，不管理用什么方法，只要能实现（c/s） c指定端囗 连接s指定端囗, 稳定收发文件的功能。
已经好多天了，再不作不出来就，没饭吃了。[]

 

W

wei_feng2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #3

局域网内直接用copyfile就能搞定

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #4

TO :wei_feng2
文件内容比较机密，不充许用共享copyfile.

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #5

TNMUDP控件

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #6

To ak_2005
老大你那有相关的代码吗？可能发给我参加吗？
china9707133@163.com QQ:75240180

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #7

其实也不一定用TNMUDP,ServerSocket和ClientSocket,Indy 什么的都可以.
代码已发(别人写的),请查收!

 

8

860

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #8

局域网最好用INDY UDP 传送速度快，局域网内一般不会丢包。

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #9

To ak_2005
刚才出去一下，刚回来。
EnumInterfaces(sIP,sMask);　//获取IP地址及子网掩码
是不是没发全呀，好多东西我没法用，NMUDP 是 D6 自带吗？
麻烦你能不能，发一个带源文件的过来。

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #10

不太清楚,我用的是D5,D5是有的,D6不清楚,基本上差不多了啊,其它的我也没有,你要自己加上去.

 

R

rsjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #11

我已经给你发了一个，不是我写的，但传多大的文件都行，用的是ICS，很稳定，附件里面还有我电脑上的机密，哈哈

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #12

to rsjd:
非常感谢你， 问个问题，
1、我在D6 上打开时总是提示 找不到 TWSocketServer。
2、 这个能实现指定 客户端的端囗功能吗?

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #13

socket呀！

 

C

chen_liang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #14

简单点的，没有进度条，用的是INDY的UDP，
procedure TForm1.Button1Click(Sender: TObject);//发送文件
var temp:Tmemorystream;
begin
temp:= Tmemorystream.Create;
image1.Picture.Graphic.SaveToStream(temp);
IdTCPClient1.Connect;
IdTCPClient1.WriteStream(temp);
IdTCPClient1.Disconnect;
temp.Free;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);//接收文件
var t:Tmemorystream;
begin
t:=Tmemorystream.Create;
AThread.Connection.ReadStream(t,-1,true);
t.SaveToFile('c:/ccc.bmp');
image2.Picture.LoadFromFile('c:/ccc.bmp');
t.Free;
end;

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #15

谢谢各位帮忙：

to yeskert1
老大能不能，有个具体的例子，我现在主要的问题是 客户端-- 指定端囗 连接服务器端-- 指定端囗 稳定收发文件的功能。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3143547

To chen_liang
其实我用 ClientSocket 和 ServerSocket 已经作出来了，现在就差，客户端-- 指定端囗去连接服务器。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3143547

或是有其它的方法.

只要是能 客户端-- 指定端囗 连接服务器端-- 指定端囗 稳定收发文件的功能。立刻结分。

 

R

rsjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #16

TWSocketServer是ICS的控件啊，免费的，去http://www.overbyte.be下载，采用非阻塞异步传输方式，效率很高，我例子中缺省是用的20000端口号，端口你可以很简单地随便指定一个即可

 

欢

欢乐浪子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #17

170分偶全要了，我这有源码保证解决QQ:37813020

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-24

• #18

TO: 欢乐浪子
老大怎么不加我呀，老大分不够可以另外开帖。
我的 QQ ：75240180 (一团火)

 

金

金鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-25

• #19

To: rsjd
谢谢，能不能指定发送文件这一端的 端囗号(比如，收文件用 8000,发文件用8001)
客户机和服务器，都有防火墙，文件的收和发只能用固定的端囗来操作。

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-25

• #20

http://www.projectindy.org/DemoDownloads/Indy9Demos_26Oct04.zip