关于Delphi的网络传输编程

======================================================
注：本文源代码点此下载
======================================================

delphi的工具栏中有一项fastnet,该栏中有很多组件可做传输;

工具栏的inernet中的socket也是做传输的,请问,有什么不一样呢?

另,请问谁可以找到关于delphi写网络传输的资料?

1、delphi的socket是从winsocket继承下来,那也就是说,winsock的方法,delphi的socket也直接使用.

最底层的winsocket,就是像那个书上写的。重初石化,侦听...开始写,我以前再写过一个这样的程序,异步socket,

加一个消息队列,30个工作线程,效率非常高,在项目投标的时候,完全战胜了另一个,vc程序,下个月我贴出来大家分析一下。

其实写一个delphi程序很简单,一个好的程序也是不简单的。

powersocket,对socket进行了,封装。有什么问题,贴出来大家讨论一下。

大家要原谅我从来没写过传输的程序和delphi程序,

现在突然,公司要我一个人写delphi的传输程序,而且连设计方案都没,还要我自己写,

我现在已经完全被socket、线程、各种传输组件搞昏了头。

我今天在看帮助文档时发现几个对象:

tclientsocket,tserversocket,tclientwinsocket,tserverwinsocket,tserverclientwinsocket

天拉!他们有什么不同呢?我都快哭拉!在周末我还得订好工作时间表。我简直不知道公司是看得起我,还是懒得理我。也许我把我要做的东西说说,大家就比较清楚拉,其实很简单的一个传输。

一、客户端:

(一)发送部分

1、判断网络是否连通;

2、登录界面(username、password);(也要发送到服务器端验证身份,再接收反馈信息显示用户是否合法。)

3、传输界面

选择需要传输文件、服务器地址、传输者、接收者(指另一个客户端)、服务器端文件名、状态栏、disconnection按钮、传输按钮、取消按钮;(蓝色字体是需要与文件一同传到服务器端的信息。如何把这些信息与文件一同传到服务器端?传输中如何中断?)

4、传输;

5、接收反馈信息;(线路中断、传输完毕、传输中断、传输不成功、传输成功、)

6、显示反馈信息;

(二)接收部分

1、判断网络是否连通?

2、登录界面(username、password);(也要发送到服务器端验证身份,再接收反馈信息显示用户是否合法。)

3、接收界面

发消息给服务器端要求接收数据(具体指出接受文件的文件名;不指定文件名,则接收所有未接收过的文件;接收者;接收文件后放置的路径及文件名;接收按钮、disconnection按钮;取消按钮;)

4、接收;

5、反馈信息给服务器端(接收成功、接收不成功);

6、显示反馈信息(线路中断、接收完毕、接受成功、接受不成功)

二、服务器端

(一)接收数据部分

1、验证客户身份(数据库中存有客户信息;返回客户端验证信息);

2、接收客户端传输的信息及文件,并根据该信息把接收到的文件放置在合适的位置。(应该在数据库表中存有对应关系)(每个分店有一个目录?文件名该如何确定?文件在传输目录下多久才过期?还是一被客户接收了,就放置到bak目录下?bak目录下的文件多久才过期?);

3、验证文件完整性;(??)

4、反馈信息给客户端(接收成功、接收不成功、接收完毕);

(二)发送数据部分

1、验证客户身份;

2、接收客户端传来的消息;

3、分解消息,并根据消息决定传输哪些文件给客户端(若客户端指定文件名,还要检查该客户是否有权限取得该文件;如何分解消息?);

4、发送文件;

5、接收客户端传来的反馈信息(接收成功、接收不成功);

6、若接收成功,则把已传输的文件从传输目录放置到bak目录,并在传输目录中删除该文件;若接收不成功,则不把文件从传输目录下移到bak目录下,也不继续重新传,直到客户重新请求才传。

(三)管理部分

1、用户身份管理(数据库表:username、password、dept.;添加、修改、删除);

2、用户与目录对应关系管理(数据库表:username、目录;添加、修改、删除);

3、日志管理;

另问题:

1、大家帮我看看用tclientsocket/tserversocket好还是用tnmstrm好?

2、是否用了其中一种就不能用另一种拉?

3、这里最困难的就是控制:反馈信息。该如何实现比较方便呢?

暂时就这些问题了。请大家帮帮忙拉!感谢!

客户端:

proceduretform1.button4click(sender:tobject);

var

myfstream:tfilestream;

begin

nmstrm1.host:=edit1.text;{host}

nmstrm1.fromname:=edit4.text;

myfstream:=tfilestream.create(edit2.text,fmopenread);

nmstrm1.write('hello!');{为什么加上这句,就报错???}

try

nmstrm1.postit(myfstream);

finally

myfstream.free;

end;

end;

服务器端:

proceduretform2.nmstrmserv1msg(sender:tcomponent;constsfrom:string;

strm:tstream);

var

myfstream:tfilestream;

begin

listbox1.items.add(nmstrmserv1.read(100));{接收客户端的write}

iffileexists('d:\test\tmp.txt')then

deletefile('d:\test\tmp.txt');

myfstream:=tfilestream.create('d:\test\tmp.txt',fmcreate);

try

myfstream.copyfrom(strm,strm.size);

finally

myfstream.free;

end;

end;

各位帮帮忙,p2p播放软件开发

b/s模式:web上实现数据交互的问题activex+indy

使用idtcpserver作为服务端接收请求,为什么首次处理的速度很慢.有无好的解决方案?

请问多层应用中,用户界面层与中间层的数据传递用的什么方式呢?欢迎大家讨论啊!

软件传参数给网页

在线等待..socket

socket,急...

我想开发一个ssh的程序,但是没有合适的控件,谁能给介绍一个免费的第三方控件,送上100分!

delphi短信群发

客户端如何反映出在中间层所作的修改??? 急 在线

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/