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

=
局域网内发送文件的例子(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