unit1.pas

用delphi的现有控件写的一个简单的发送文件客户端

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  StdCtrls;

type
  TForm1 = class(TForm)
    IdTCPClient: TIdTCPClient;
    btnSendFile: TButton;
    dlgOpen: TOpenDialog;
    procedure btnSendFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnSendFileClick(Sender: TObject);
var
  SendFileName: string;
  R: string;
  SendFile: TFileStream;
begin
  if dlgOpen.Execute then
  begin
    SendFileName := ExtractFileName(dlgOpen.FileName);
    with IdTCPClient do
    begin
      Connect;
      try
        IOHandler.WriteLn('file');
        R := IOHandler.ReadLn;
        if R = '-filename' then
        begin
          IOHandler.WriteLn('filename:' + SendFileName);
          R := IOHandler.ReadLn;
          if R = '-size' then
          begin
            SendFile := TFileStream.Create(dlgOpen.FileName, fmOpenRead or fmShareDenyWrite);
            try
              IOHandler.WriteLn(IntToStr(SendFile.Size));
              R := IOHandler.ReadLn;
              if R = '-ready' then
              begin
                IOHandler.LargeStream := True;
                IOHandler.Write(SendFile, SendFile.Size);
                R := IOHandler.ReadLn;
                if R = '-ok' then ShowMessage('Send finished.')
                else ShowMessage('Send failed.');
              end;
            finally
              SendFile.Free;
            end;
          end;
        end;
      finally
        Disconnect;
      end;
    end;
  end;
end;

end.