2024年3月9日发(作者：)

局域网内发送文件的例子（IdUdpClient,IdUdpServer）-

Delphi编程

//客户端程序发送文件代码部分

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,

Dialogs, StdCtrls, IdUDPClient, IdBaseComponent,

IdComponent, IdUDPBase,IdSocketHandle,

IdUDPServer;

type

TForm1 = class(TForm)

IdUDPClient1: TIdUDPClient;

Button1: TButton;

OpenDialog1: TOpenDialog;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

fileName:string;

FileSize:integer;

mem:TFileStream;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure 1Click(Sender: TObject);

var

receivedString:string;

mem:tfileStream;

posi,len:integer;

p:array [0..1023] of byte;

begin

if e then

begin

:=;

:= StrToIntDef(,8090);

:=true;

('Send

name:'+me);

Sleep(1000);

ReceivedString:=eString;

if uppercase(Receivedstring)=upperCase('Received File ok')

then

begin

File:File