【文件属性】:
文件名称:Server___SendFile___Client
文件大小:519KB
文件格式:RAR
更新时间:2014-01-02 09:51:34
客户端与服务器传输文件源码,delphi
{
1,在服务器端如何维护已经登录的用户列表;
2,反向通讯,通过服务器端给客户端发送文件;
3,实现客户端与服务器端的Chat聊天功能(稍加改动可转化为C->S->C的聊天程序)
4,如何使用IdTCPServer和IdTCPClient控件
5,初步实现线程命令方式,在传送文件的时候不会让服务器端停止响应
本Demo通过D7+Indy Snapshot 版本编译通过,请不要使用任何Delphi自带的Indy编译
(包括BDS2006,因为这些Delphi自带的版本都有Bug),如想下载最新的Indy Snapshot包,
请从本群内空间下载,或去2ccc.com搜索(2ccc.com上可能不是最新的)。
谢谢合作,本群已经满员(100人),如您想加入,请帮助扩充人数。谢谢!}
program Client;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
【文件预览】:
Client
----Client.identcache(121B)
----Client.exe(531KB)
----Client.cfg(434B)
----Client.dpr(1010B)
----Unit1.dcu(11KB)
----Unit1.dfm(2KB)
----Client.res(876B)
----Unit1.pas(7KB)
----Client.dproj(3KB)
----Unit1.ddp(51B)
----Client.dof(12KB)
Server
----Server.identcache(121B)
----Unit1.dcu(20KB)
----Server.dof(12KB)
----Server.dpr(1010B)
----Unit1.dfm(3KB)
----Server.cfg(434B)
----Unit1.pas(15KB)
----Server.dproj(3KB)
----Server.exe(684KB)
----Server.res(876B)
----Unit1.ddp(51B)