（死亡历险）Delphi7 IdTCPClient1，IdTCPServer1客户端向服务端传送大型文件

最新推荐文章于 2024-05-05 02:21:00 发布

nimeide1234567890

最新推荐文章于 2024-05-05 02:21:00 发布

阅读量2.9k

点赞数

分类专栏： CSDN高手之博客地址龙卷风之感悟篇

本文链接：https://blog.csdn.net/luojianfeng/article/details/53882481

版权

本文详细介绍了如何利用Delphi7的 Indy 组件IdTCPClient1和IdTCPServer1实现在客户端和服务端之间高效地传输大型文件。内容涵盖了设置连接、断点续传、错误处理等关键步骤，为开发者提供了一个可靠的文件传输解决方案。

摘要由CSDN通过智能技术生成

服务端

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPServer, ExtCtrls, Buttons,

StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

IdTCPServer1: TIdTCPServer;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

host: TEdit;

port: TEdit;

Label1: TLabel;

Label2: TLabel;

Memo1: TMemo;

SaveDialog1: TSaveDialog;

procedure IdTCPServer1Execute(AThread: TIdPeerThread);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

var

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

nimeide1234567890

关注关注

0
点赞
踩
4

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

（死去活来）Delphi IdTCPClient IdTCPServer 点对点传送文件

的专栏

12-31

5376

Delphi IdTCPClient 点对点传送文件 客户端向另一个客户端传送文件，不通过服务端中转那一个很重要的点是，这个客户端也要放一个IdTCPServer，也就是说这个客户端既是客户端，当接收文件的时候也是服务端，必须相应其它客户端对它的连接，这个时候客户端相当与服务端，好了，明白这个道理就好办了 A客户端（放一个IdTCPClient控件，发送

（死亡历程）Delphi7 自带的控件 IdTCPClient，IdTCPServer 客户端发送给服务端，服务端转发给其它客户端

的专栏

01-05

5649

客户端 private { Private declarations } FThread: TThread; public { Public declarations } iFileHandle:integer; i: integer; host,port,qm:string; sFile:TFileStre

参与评论您还未登录，请先登录后发表或查看评论

delphi7的IdTCPClient和IdTCPServer的write用法

10-13

delphi7的IdTCPClient和IdTCPServer的write用法

Delph7中TcpClient和TcpServer用法分析

最新发布

大龙软件工作室

05-05

687

服务端客户端连接查看桌面操作IdTCPClient1、IdTCPServer1

delphi xe 服务器发消息,Delphi XE IdTCPClient和IdTCPServer 发送和接收文件

weixin_31560545的博客

08-04

1541

Delphi XE IdTCPClient和IdTCPServer 发送和接收文件1、IdTCPClient1 发送示例variFileHandle: integer;iFileLen, cnt: integer;buf: TIdBytes;lfilename: string;ln: Cardinal;beginif dlgOpen1.Execute thenbeginlfilename := d...

delphi idtcpclient和idtcpserver的心跳包

kunlun122的专栏

02-20

5627

最近有个项目需要用到socket通信，对于socket的网络异常处理（程序异常退出或者网络掉了）及重连纠结了好久，网上虽然有很多资料，但是都是从一个地方转过来的，不够详细，查了很久的资料才弄出来的，原来的出处给忘了。环境：delphi7+indy控件（dephi7自带）工作需要才用delphi7，建议使用delphi2007及以上版本，delphi2007里面带的indy控件版本

自己写Delphi2007Indy10Tcp传输文件

05-29

自己写Delphi2007Indy10Tcp传输文件，客户端支持使用代理，大家多指教，大家共同进步！！呵呵

Delphi 基于IdTcpServer和IdTcpClient通讯实例源码.rar

07-10

delphi 基于IdTcpServer和IdTcpClient的通讯实例，包括客户端和服务端，　　procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread); 　　begin 　　 Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '的连接请求已被接纳'; 　　 AThread.Connection.WriteLn('Ariel:欢迎连接本服务器，竭诚为您服务'); 　　end; 　　procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread); 　　begin 　　Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '已断开连接'; 　　StatusBar1.Panels[0].Text:='连接已断开'; 　　end; 　　procedure TForm1.IdTCPServer1ListenException(AThread: TIdListenerThread; 　　 AException: Exception); 　　begin 　　StatusBar1.Panels[1].Text:='正在连接.....'; 　　end;

Delphi简单IDTCPsever和IDTCPclient应用

05-10

在程序中，服务端与客户端相连接后，应用readln和writerln实现两个程序字符串的链接

Delphi 7基于TCP Sockets 实现的简易聊天室

08-13

Delphi 7基于TCP Sockets 实现的简易聊天室

网络文件传输 TIdTCPClient TIdTCPServer

09-18

非常好用的文件传输小软件，自己写的。 Delphi P2P(点对点)网络文件传输,利用TCP协议连接双方，服务器端建立文件流读入待发送文件进入监听状态，客户端发送信号开始传输，服务器根据客户端发送的当前文件流传输位置按接收缓冲区大小一块一块的发送给客户端，客户端接受后再保存到接收文件流，直到整个文件流发送完毕，这里服务器端使用TIdTCPServer组件，客户端对应的使用TIdTCPClient组件。

delphi用IdTCPServer和IdTCPClient传输文件

weixin_30622107的博客

04-28

639

其它某些文件传输代码精练很多,传输的文件大小任意,个人建议:写网络文件传输程序时最好用Indy的控件(因为其默认即阻塞模式,Server端已封装了多线程,没有数据包大小限制),ClientSocket VS ServerSocket传输文件很麻烦,要自定通信协议,并且有个8KB的瓶颈,实现大文件传输比较麻烦, 服务端发送:var iFileHandle:integer; iFileL...

粘包拆包，Netty及远洋通信中的解决方案！超实用

HollisChuang's Blog

12-16

914

在进行Java NIO学习时，发现，如果客户端连续不断的向服务端发送数据包时，服务端接收的数据会出现两个数据包粘在一起的情况，这就是TCP协议中经常会遇到的粘包以及拆包的问题。一、什么粘...

客户端IdTCPClient向服务端IdTCPServer1发送消息

diexiao1313的博客

09-07

297

客户端IdTCPClient向服务端IdTCPServer1发送消息 1、连接 with IdTCPServer1 do begin Bindings.Clear; Bindings.Add.IP := '127.0.0.1'; Bindings.Add.Port := 1982; Active ...

.net byte转java byte_高级Java程序员之实现一个RPC或HTTP协议服务框架

weixin_39822493的博客

11-02

153

网络世界离不开的就是通信,不管是任何框架只要是提供互联网服务就必须有通信的能力。作为业务开发者可能我们业务中也会遇到这样的需求,或者是有啥好的创意性框架,但是无奈现在通信层框架都太厚重了,想要快速学习使用显然不太可能,所以呢本文就是教你如何来实现一个封装一个通信层框架。当看完本篇你将会对Java技术有一个更深入的了解。你可以利用本文学习的内容去实现一下业务自己设计一个Tomcat容器;自己设计一...

delphi idtcpclient idtcpserver

05-12

Delphi是一种面向对象的编程语言，可以用来开发各种Windows应用程序。而IDTCPClient和IDTCPServer是Delphi中的两个重要组件，主要用于实现基于TCP/IP协议的网络通信。 IDTCPClient组件是一个TCP客户端组件，可以与远程服务器建立连接，发送和接收数据。使用IDTCPClient组件可以轻松实现网络通信操作。例如，可以利用该组件开发一个简单的聊天室程序，实现用户之间的文字、图片、文件等数据传输。 IDTCPServer组件是一个TCP服务器组件，可以监听指定端口，等待客户端连接，并接收客户端发送的数据。使用IDTCPServer组件可以轻松实现TCP服务器程序。例如，可以利用该组件开发一个简单的文件共享服务器，实现客户端上传文件到服务器，并让其他客户端下载该文件。无论是IDTCPClient还是IDTCPServer组件，都需要了解TCP/IP协议基础知识，例如TCP连接、数据传输、端口等内容。另外，网络通信涉及到数据加密、异常处理、多线程等复杂问题，需要开发者具备丰富的编程经验和技巧。