基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

unit server;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdTCPServer, IdContext;

type
  TForm_FileTransimision = class(TForm)
    Edit_path: TEdit;
    Button_selectPath: TButton;
    Button_start: TButton;
    Button_cancel: TButton;
    IdTCPServer1: TIdTCPServer;
    OpenDialog1: TOpenDialog;
    procedure Button_selectPathClick(Sender: TObject);
    procedure Button_startClick(Sender: TObject);
    procedure IdTCPServer1Execute(AContext: TIdContext);
    procedure Button_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_FileTransimision: TForm_FileTransimision;
  AFileStream: TFileStream;

implementation

{$R *.dfm}

procedure TForm_FileTransimision.Button_cancelClick(Sender: TObject);
begin
  AFileStream.Free;
end;

procedure TForm_FileTransimision.Button_selectPathClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit_path.Text := OpenDialog1.FileName;
end;

procedure TForm_FileTransimision.Button_startClick(Sender: TObject);
begin
  if not FileExists(Edit_path.Text) then //检测文件是否存在
  begin
    Showmessage('文件不存在，请选择文件！');
    exit;
  end;
  AFileStream := TFileStream.Create(Edit_path.Text, fmOpenRead);
end;

procedure TForm_FileTransimision.IdTCPServer1Execute(AContext: TIdContext);
var
  cmd: string; //接收到客户端的字符串信息

begin
  with AContext.Connection do //已经连街上的一个进程
  begin
    cmd := UpperCase(IOHandler.ReadLn); //客户端发送的命令字符串
    if cmd = 'BEGIN' then //开始传输
    begin
      //告诉远程传输文件的大小和文件名
      IOHandler.WriteLn(Format('%d|%s', [AFileStream.Size, ExtractFileName(Edit_path.Text)]));

      IOHandler.Write(AFileStream,AFileStream.Size);
      //Exit;
    end;
    if cmd = 'END' then
    begin //传输完成
      AFileStream.Free;
      Exit;
    end;
    {if cmd = 'CANCEL' then
    begin //传输取消
      //保持传输状态
      Exit;
    end;  }

  end;
end;


end.