局域网内发送文件的例子(IdUdpClient,IdUdpServer)

最新推荐文章于 2024-08-01 07:15:00 发布

formiss

最新推荐文章于 2024-08-01 07:15:00 发布

阅读量4.4k

点赞数

分类专栏：网络编程文章标签： file forms interface button delete action

本文链接：https://blog.csdn.net/formiss/article/details/1592756

版权

该博客展示了如何使用 Indy 的 TIdUDPServer 和 TIdUDPClient 在局域网内实现文件的发送和接收。服务端接收文件名，确认文件长度，接收并保存文件，最后发送接收完成确认。客户端则负责发送文件名，等待服务器确认，发送文件长度，然后分块发送文件，直到文件发送结束。

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

=
局域网内发送文件的例子(IdUdpClient,IdUdpServer)
2007-04-29

==============服务端================
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,idsockethandle,
Gauges;

type
TForm1 = class(TForm)
    IdUDPServer1: TIdUDPServer;
    SaveDialog1: TSaveDialog;
    Gauge1: TGauge;
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    FileName:string;//保存收到的文件名
    FileSize:integer;//文件的找度
    mem:tFileStream;
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
str:string;
begin
aData.Seek(0,0);
setLength(str,aData.size);
aData.Read(str[1],aData.Size);
if pos('Send File:File name:',str)>0 then begin