我用Tclientsocket实现了文件的发送，本来可以找mm聊天去了，后来发现。。。

2002-04-04 11:34:47 112 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Asianux 8一键安装Oracle 11gR2单机实战指南 Oracle数据库是企业级应用的核心数据底座，而Linux操作系统作为其主流运行平台，对内核参数、SELinux策略、用户权限和共享内存配置有严格要求。在国产化替代背景下，Asianux 8作为基于RHEL 8深度定制的企业级系统，具备强安全基线与合规管控能力，但与老旧但稳定的Oracle 11gR2存在兼容性挑战。本文围绕‘一键安装’这一工程实践目标，解析如何通过环境快照、策略路由与原子事务三重机制，在Asianux 8上实现可审计、可回滚、符合安全基线的Oracle 11gR2单机部署。涵盖SELinu 阅读详情

发一个8M的文件用了45秒，平均每秒还不到200K，我真是郁闷了，tcp连接、
局域网，怎么会是这个速度，我想可能是代码有问题，就去查
发送方：
loop until data not over
GetMem(bufSend,MaxDateLength);//开辟buffer
MemoryStream.Read(bufSend^,MaxDateLength);//从MemoryStream中读取MaxDateLength个字节,MemoryStream存放了文件内容
ClientSocket.SendBuf(bufSend^,ActBytes);//发送
FreeMem(bufSend,MaxDateLength);//释放buffer
end;//end loop
接收方：
使用了WinSocketStream
loop until data not over
Stream := TWinSocketStream.Create(ClientSocket.Socket,8000);
Try
if Stream.WaitForData(8000) then
begin
GetMem(Bytes,MaxDateLength);//开辟buffer
I := Stream.Read(Bytes^,MaxDateLength);
fsData.Write(Bytes^,I);//写入文件流
FreeMem(Bytes);//释放buffer
。。。
Stream.free
end;//end loop
看了半天也没觉得有什么不对，难道MaxDateLength太小了？于是我把MaxDateLength从1K到1M试了个遍
还是不行。后来加入log，发现SendBuf越执行越慢，最长一次用了6秒，MemoryStream.Read(bufSend^,MaxDateLength)这一句很快。
后来我又想，是不是Socket的缓冲区太小了，改大一定应该就可以了，结果找了半天delphi的帮助，竟然没发现有这个属性？！！
后来调API，SetSocketOpt，拼命报错。我实在没辙了，诸位CSDN的老大，帮帮忙。救我于水深火热之中吧。

...全文

光栅衍射有入射角时_衍射型多焦点人工晶体光学原理多焦点人工晶体如何把光线分成多个焦点的？这个问题大部分专业书只是蜻蜓点水，并没有讲明白。希此文粗浅的解释，能帮您加深理解，请多指正。接下来，我将按照一下历史发展的顺序讲解一下：光的认识、菲涅尔灯塔(菲涅尔透镜)、菲涅尔波带盘(半波带盘)、多焦点人工晶体。一：首先复习一下光的认识历史。我们现在都知道光是一种电磁波，具有波粒二相性，但是认识光的本质也经历非常曲折漫长的过程。牛顿时代的几何光... 阅读详情

chenjbjbjb

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

chenjbjbjb 2002-04-07

打赏
举报

终于搞定了。
kofxdm(八稚)
你说的不太正确。后来我去一些国外的论坛上看到另一种处理方式。
server采用阻塞模式（因为有可能同时给多个客户发文件，每个连接请求创建一个线程处理），而客户端使用非阻塞模式－－但如果客户端也要同时接收多个用户的文件那也必须在线程中处理。（此线程的执行代码实际上是一个空循环，由于是在线程中的循环，并不会导致程序其他操作的运行）
接收文件时利用clientSocket的onread和ondisconnect事件。
onread下创建buffer，然后调用Readbuffer，接着保存数据，释放buffer
但是要注意一点，delphi的文档描述如下
Note: Non-blocking sockets do not always receive an OnRead event for the last bit of data passed over the connection. When using a non-blocking socket, check for any unread data in the OnDisconnect event to make sure that everything is handled.
所以还要在ondisconnect里在做一个onread里的事情。就ok了。
后来发一个8M的文件，算上显示进度条，保存文件等收尾操作一共用了16秒
就是它了。这下可以找mm去了。但愿还没被人拐走。呵呵

来者有分！！！不会让大家白辛苦的。

lastshrill 2002-04-05

打赏
举报

你是把8M的文件一次读到了一个Buffer里吗？
如果是这样的话，你把它分成几份,分几次发送试试

chenjbjbjb 2002-04-05

打赏
举报

太大？
我从1k到1m都设过了。不会的，我试过我改动buffuer的大小，速度变换不大

njbudong 2002-04-05

打赏
举报

可能是你的缓冲池定义的太大的缘故！

chenjbjbjb 2002-04-05

打赏
举报

kofxdm 2002-04-05

打赏
举报

对5秒，但是如果网络速度不好的话，可能要慢些，但是绝对用不了30秒以上的。

chenjbjbjb 2002-04-05

打赏
举报

我试试。5秒？这么夸张？

kofxdm 2002-04-05

打赏
举报

我做了，用了5秒左右来着。用的是Delphi6 Indy的控件，建议你也使用Indy中的控件。idTcpserver,idtcpclient.
我以前也是用Dephi5做的，差点搞的吐血也没有搞好，用了DELPHI6一天就OK了。

chenjbjbjb 2002-04-05

打赏
举报

有没有人做过发送文件，8M的文件发了多久？？？？！！！

chenjbjbjb 2002-04-05

打赏
举报

先别收藏，问题还没有解决了。快帮帮忙。
我们经理更我急，说“怎么这么慢？”
来人啊！

Liusp 2002-04-05

打赏
举报

chenjbjbjb 2002-04-05

打赏
举报

没有人做过这方面的东东吗？速度是这样的吗？
我用icq发送（UDP）8M只用了17秒。
在TCP上的传输很多，Smtp、rpc什么的，都挺快的啊。
是不是Socket的Buffer太小（这里的Buffer是指Socket的，不是我读取对文件数据时键的buffer）。可是在delphi里怎么设置这个buffer呢。

chenjbjbjb 2002-04-05

打赏
举报

可能是我没说清楚，是这样
While data not over Do
GetMem for Buffer
Read Data from file into Buffer
Socket.SendBuffer
FreeMem(Buffer)
end;
to redwoodnymph(红蜂鸟)
是不是想说Getmem和Freemem占用了太多的时间，我试了一下，这两个操作非常快，几乎不耗时。用GetTickCount计算操作之间的差值一直是0，我想不是这里的问题。

lastshrill 2002-04-05

打赏
举报

你再Loop前开Buffer，Loop Finish后再释放

chenjbjbjb 2002-04-05

打赏
举报

不是啊，我不是loop until data over了吗
一次从文件读取MaxDateLength个字节发送

chenjbjbjb 2002-04-04

打赏
举报

释放了，我后面的代码没有贴出来。

njbudong 2002-04-04

打赏
举报

MemoryStream 没有释放.

我用Tclientsocket实现了文件的发送，本来可以找mm聊天去了，后来发现。。。

相关推荐