如何用ServerSocket和ClientSocket进行文件的互相传送。
要给代码哦。
-
等级
本版专家分：1658结帖率 100% -
明天开始找活。来CSDN这么久，学了许多东西，明天要开始找活了，不知以后能不能再经常光顾CSDN，大家再帮忙解决这个问题。高分相送。
如何用ServerSocket和ClientSocket进行文件的互相传送。
要给代码哦。展开阅读全文
-
等级
本版专家分：1353 -
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls;
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
myreadfile,mywritefile:tfilestream;
serversend,cliendaccept:boolean;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.Active:=true;
clientsocket1.Active:=true;
myreadfile:=tfilestream.Create('d:\aaa.txt',fmOpenRead);
serversend:=false;
cliendaccept:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Socket.Sendtext('givemefile');
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var i:integer;
begin
mywritefile:=tfilestream.Create('d:\basd.txt',fmcreate);
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
if not serversend then
begin
if (socket.ReceiveLength<>10) or (socket.ReceiveText<>'givemefile') then
exit
else begin
serversend:=true;
socket.SendStream(myreadfile);
serversend:=false;
end;
end;
end;
end.
窗体中有一个按钮和serversocket1 clientsocket1
这里只是简单的实现了.
-
等级
本版专家分：1353
-
如果文件太大的话,需要分割开传.
serversocket一次传一部分,clientsocket收到文件后追加,
然后发读下一部分的请求,serversocket再发下一部分.
-
等级
本版专家分：194 -
多谢xzisgood(夏)的代码，同时祝saoren找个工作。
-
等级
本版专家分：1658
-
谢谢xzisgood
我需要的是要两个程序Server端在A机，Client端在B机，而且传送的文件不是*.txt,是任何文件。要Server端用ServerSocket,Client端用ClientSocket.之间的文件传送。
有点像下载东西一样了。
-
等级
本版专家分：1353
-
虽然这是一个程序,但是可以很方便的分成两个程序.这里主要在clientsocket的onread和serversocket的onclientread事件编程.只要把serversocket和clientsocket放在两个程序,就实现了远程通讯.另外我用的是Tfilestream.他可以打开别的文件,不是非要txt文件.
myreadfile:=tfilestream.Create('d:\aaa.exe',fmOpenRead);这样就打开exe 文件了.你可以试试看.
-
等级
本版专家分：1353
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls;
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
myreadfile,mywritefile:tfilestream;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.Active:=true;
clientsocket1.Active:=true;
myreadfile:=tfilestream.Create('d:\aaa.exe',fmOpenRead);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mywritefile:=tfilestream.Create('d:\basd.abc',fmcreate);
clientsocket1.Socket.Sendtext('givemefile');
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var buffer:array[1..1000] of byte; len:integer;
begin
len:=socket.ReceiveLength;
if len>500 then
begin
mywritefile.Free;
showmessage('file send over!');
exit;
end;
socket.ReceiveBuf(buffer,len);
mywritefile.Write(buffer,len);
socket.SendText('continue');
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var buffer:array[1..1000] of byte; len:integer;
begin
if socket.ReceiveText<>'givemefile' then
begin
len:=myreadfile.Read(buffer,500);
if len=0 then
begin
socket.SendBuf(buffer,501);
end;
socket.SendBuf(buffer,len);
end
else begin
len:=myreadfile.Read(buffer,500);
socket.SendBuf(buffer,len);
end;
end;
end.
刚才的程序有问题,下面的程序我测试过了,没有问题.
-
等级
本版专家分：1658
-
给分
- 【计网笔记】一起重温计网咯 | TCP与UDP协议
一起了解TCP与UDP协议的区别？ 讨论TCP的三次握手，四次挥手
- 「计算机网络知识」更新中~
TCP三次握手 画图自己画一个，分析握手过程，进行理解。 TCP四次挥手 TCP和UDP的区别 计算机网络体系结构 OSI七层协议 TCP/IP四层协议 五层协议
- DELPHI下的Socket编程
本文是写给公司新来的程序员的，算是一点...本文不会涉及太多的编程细节，只是简单讲解在DELPHI下进行Winsock编程最好了解的知识。 题外话：我认为学习编程就如同学习外语一样，最好的方式是你先学会如何去运用它...
- Delphi 下的socket通讯(转自http://www.cnblogs.com/devcjq/articles/2325600.html)
本文不会涉及太多的编程细节，只是简单讲解在DELPHI下进行Winsock编程最好了解的知识。 题外话：我认为学习编程就如同学习外语一样，最好的方式是你先学会如何去运用它，然后才是了解它的语言特性、语法之类的东西...
- DELPHI下的SOCK编程
本文不会涉及太多的编程细节，只是简单讲解在DELPHI下进行Winsock编程最好了解的知识。 题外话：我认为学习编程就如同学习外语一样，最好的方式是你先学会如何去运用它，然后才是了解它的语言特性、语法之类...
- DELPHI下的SOCK编程(转)
DELPHI下的SOCK编程 本文是写给公司新来的程序员的，算是一点培训的教材。本文不会涉及太多的编程细节，只是简单...不过很可惜，我们以前的外语教育使用了相反的过程。软件编程也是一样，在很多人的大学阶段，你更多
- 数学建模30种算法大全
数学建模最常用的30种算法！ 全国大学生数学建模竞赛创办于1992年，每年一届，已成为全国高校规模最大的基础性学科竞赛，也是世界上规模最大的数学建模竞赛。2018年，来自全国34个省/市/区(包括香港、澳门和台湾)及美国和新加坡的1449所院校/校区、42128个队（本科38573队、专科3555队）、超过12万名大学生报名参加本项竞赛。
- C语言内存管理机制精讲-高手必修课视频教程
在企业级项目开发中一个非常重要的设计就是如何有效地管理内存资源。在C语言中，关于内存管理的知识点比较多，如函数变量、作用域、指针、堆 、栈、 常量区、全局静态区、要想真正掌握和理解C语言，就必须先精通C语言内存管理机制。 黄老师精选内存相关知识点，循序渐进，最后以一个复杂的内存池设计实现贯穿对整个课程知识要点，让学员真正透彻理解C语言内存管理！
- 常见30种数学建模模型
常见的30种数学模型，比较详细，非常适合搞数学建模的学生使用
- matlab教程ppt(完整版).pdf
MATLAB信号处理详解 结合MATLAB最新版本系统地介绍信号处理及现代信号处理或者非平稳信号处理(包括信号处理、阵列信号处理、时频分析及高阶谱分析)的基本理论及在工程应用中的一些基本方法；详细地介绍MATlLAB工具箱函数的用法；最后结合一些应用实例，说明基于MATLAB进行分析与设计的方法。 《MATLAB信号处理》首次将信号处理涉及的各种MATLAB工具箱全面加以说明分析，简明扼要地介绍相关领域的基本概念和基本理论，重在讲述有关基本理论和物理背景，避开繁复的推导和中间过程，结合编程应用介绍工具箱函数的功能及用法，并且通过各种应用实例阐述如何利用MATLAB工具箱来解决工程应用问题。
- 2020年五一赛B题论文
自己做的五一赛论文，代码数据都在附录。本文针对股票投资组合问题进行了研究，建立了投资效用与多目标规划模 型，运用了历史模拟、灰色关联等方法，旨在确定股票投资组合策略。
- 波士顿房价预测数据及代码
本资源包含数据，代码，解释，相应的文件。代码是练习用的，文章中的代码都可以运行出来，是很好的一个练手项目。
- 2020-五一数学建模大赛C类问题饲料加工配比及优化.pdf
2020年，“51”数学建模C类问题，关于饲料配比问题以及加工优化方案。论文采用统计分析，建立了关于饲料加工的多目标优化模型。并利用蒙特卡罗算法对目标函数进行优化，解决了饲料加工质量最优配比问题并进行了成本控制。
- ARIMA模型-matlab代码
ARIMA模型-matlab代码，可以根据自己的实际情况进行参数调节，实现所需要的效果。
- 数模_改进SEIR模型的matlab代码.zip
各种基于SEIR模型的改进算法代码、Python代码，还包含Si，sir，sis的代码，是做数学建模比赛整理的资料，具全，带论文。研究COVID-19的传播过程和受感染人数的变化规律，是探索如何制止COVID-19蔓延的重要环节。本文针对COVID-19的防控问题，通过对各个国家疫情状况数据的分析，采用……方法，建立……模型，获得……，同时以……为优化目标，获得……最优模型。 针对问题一，为了确定COVID-19的传播系数。通过对国家卫健委公布的1月21日～2月5日的疫情数据分析，考虑易感人群(S)、潜伏人群(E)、感染人群(I)、治愈人群(R)建立SEIR模型，基于SEIR模型计算的COVID-19的传播系数(R0)在3.096～3.613之间。 针对问题二，针对不同地区采取的不同防控策略建立模型分析、预测未来的疫情数据。通过分析COVID-19存在潜伏期且康复后二次感染的概率低的传播特性，结合国内公开的疫情防控数据，考虑隔离/未隔离情况、疫苗接种情况、医疗卫生条件等因素提出了改进的SEIR模型，与logistic模型和传统的SEIR模型比较，预测率有较大提升。由于国外的数据不包含疑似病例数据，采用SIR模型进行分析预测未来疫情数据。
- 2020五一建模A题解题思路.zip
2020年五一数学建模A题解题思路 最容易建模的是秦皇岛港动力煤价格的主要因素的影响，分别统计2019年5月1日至2020年4月30日一年内影响煤炭价格数据变化，（主要因素包括气候变化、出行方式、能源消耗方式、国际煤炭市场）。建立预测模型（时间序列预测模型， Elman神经网络预测模型等），预测煤炭价格变化。
- 自动驾驶.pdf（2021 mathorcup A题）
自动驾驶模型的建立
- Java基础核心技术：多线程(day16-day17)
本套Java视频完全针对初级学员，课堂实录，自发布以来，好评如潮！Java视频中注重与学生互动，讲授幽默诙谐、细致入微，覆盖Java基础所有核心知识点，同类Java视频中也是代码量大、案例多、实战性强的。同时，本Java视频教程注重技术原理剖析，深入JDK源码，辅以代码实战贯穿始终，用实践驱动理论，并辅以必要的代码练习。 通过20的课程学习，使学员掌握java核心语法、面向对象思想编程、异常处理、IO流、集合类、多线程、网络编程等。
- 2020五一建模比赛B题论文与代码
针对本文给出的基金资产配置策略问题，本文建立了结合小波分析算法，均值-方 差模型，蒙特卡罗模拟方法以及遗传算法的资产配资投资效益优化模型，对企业购买股 票以及合理进行资金的配置具有一定的指导作用。 针对问题一 本文使用皮尔逊相关系数与系统聚类 针对问题二 本文结合小波分析算法与均值-方差模型确定使投资效用最大化的股 票投资策略，使用小波分析算法对数据进行降噪，再使用样条插值补全数据。之后计算协方差矩阵代入均值方差模型求解确定了投资效用最大的策略 针对问题三 本文使用历史模拟法、蒙特卡罗方法，参数模拟法度量每个基金公司 2020 年 95% 置信水平下的风险价值。 针对问题四 本文建立了整个系统的兼顾投资效益以及风险价值的投资策略优化 模型，并且使用遗传算法，改变初始参数多次进行求解。
- 建模论文（五一建模比赛）
五一建模写的论文，当时是拿啦奖的，你们可以参考下哦
- 2020五一数学建模A题 论文 煤炭价格预测问题
本问主要以预测秦皇岛煤炭价格为目标，通过问题一中不同因素对其影响权重的大小以及神经网络算法，建立价格预测模型。BP神经网络模型处理信息的基本原理是：输入信号，通过中间节点（隐层点）作用于输出节点，经过非线性变换，产生输出信号，网络训练的每个样本包括输入向量和期望输出量t，网络输出值y与期望输出值t之间的偏差，通过调整输入节点与隐层节点的连接强度值和隐层节点与输出节点之间的连接强度以及阈值，使误差沿梯度方向下降，经过反复学习训练，确定与最小误差相对应的网络参数（权值和阈值），训练即告停止。此时经过训练的神经网络即能对类似样本的输入信息，自行处理输出误差最小的经过非线性转换的信息。
- 2021华中杯第二问配套思路.rar
2021华中杯第一问配套思路，内有处理后的可读数据，输出结果，可视化图片，新增的RGB坐标。（R语言代码） 声明：只可自己使用，不可商用。违者必究。 具体思路见：https://tjxwz.blog.csdn.net/article/details/116310441
- 数据结构基础系列(2)：线性表
数据结构课程是计算机类专业的专业基础课程，在IT人才培养中，起着重要的作用。课程按照大学计算机类专业课程大纲的要求，安排教学内容，满足需要系统学习数据结构的人。系列课程包含11个部分，本课为第2部分，线性表的逻辑结构，线性表的顺序表和链表两种存储结构，以及在各种存储结构中基本运算的实现，还通过相关的应用案例介绍了相关知识的应用方法。 系列课程的目标是帮助学习者系统掌握数据结构课程的相关知识，具备利用这些知识分析问题、解决问题的能力。本课是系列课程中的第2部分，具体目标包括：掌握线性表的特征以及逻辑结构定义；掌握顺序表存储结构，及各种基本运算的实现；掌握单链表存储结构，及各种基本运算的实现；了解双链表、循环链表、有序表的存储、应用；学会用线性表解决实际问题。
- 数学建模30种基本模型分析
文中把历年来的常见的数学建模比赛模型总结在一起，便于大家的学习，总共有30中模型，每一种模型都会有详细的分析，议论文的形式展现出来......
- APP内置IM 系统——从入门到千万级在线
IM （即时通讯）系统是一种大型实时系统，其对技术方面的要求非常高。在APP社交化的今天，很多APP都希望为自己的应用增加IM系统，但却不得其法。本课程抽丝剥茧，搭建一套简IM 系统，先让开发者了解如何实现这类系统，然后会不断的对系统进行扩展，并详述要支撑千万级别的用户，系统架构要经过哪些方面的演变，在每个阶段需要具体考量哪些因素；其中涉及到大型网络开发、协议的制定解析、数据库的优化、负载均衡、监控、测试等方面的知识。相信通过此课程，开发者对IM 系统将有一个全面的认识。 a:0:{}
- Python 3.9 安装包
Python是一种编程语言，可让您快速工作 无论您是编程新手还是经验丰富的开发人，都可以轻松学习和使用Python
- 2020深圳杯C题.docx
参考了许多网络上的解法，自己做的练习题，完整的论文，附录有完整的python代码，仅大家供学习参考。
- 学会在Linux上编译调试C++项目
本课程主要针对没有或者很少写过linux上C++程序的同学， 本课程会教你如何从0基础开始，安装配置ubuntu虚拟机、使用GCC编译普通程序、动态库、静态库，编写复杂项目配置文件makefile，使用GDB工具调试C++程序。 通过本课程学习，可以熟练掌握如何高效的编译调试Linux上的c++程序，掌握如何安装配置ubuntu系统，掌握gcc编译动态、静态库，掌握makefile的编写，能够用Makfile编写出高效的项目配置文件。
- 基于Java的WebSocket的聊天室
HTML5中定义了WebSocket规范，该规范使得能够实现在浏览器端和服务器端通过WebSocket协议进行双向通信，运用Java语言和Tomcat的WebSocket实现作为服务端，实现一个聊天室的搭建。 运用Java语言和Tomcat的WebSocket实现作为服务端，快速实现一个聊天室的搭建。
- 数学建模校车安排问题
数学建模 校车安排问题 优秀论文