Indy tcp server

unit serverUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, IdBaseComponent, IdComponent,
  IdTCPServer, ComCtrls, DB, DBAccess, MyAccess,MyRec;

type
  TDataState  =  (dstNone, dstReceiving);    
  TForm1  =   class (TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    BtStart: TButton;
    BtStop: TButton;
    BtClose: TButton;
    Image1: TImage;
    IdTCPServer1: TIdTCPServer;
    ProgressBar1: TProgressBar;
    MyConnection1: TMyConnection;
    procedure BtCloseClick(Sender: TObject);
    procedure BtStartClick(Sender: TObject);
    procedure echo(Data:  String );
    procedure BtStopClick(Sender: TObject);
    procedure IdTCPServer1Exception(AThread: TIdPeerThread;
      AException: Exception);
    procedure IdTCPServer1Disconnect(AThread: TIdPeerThread);
    procedure IdTCPServer1Connect(AThread: TIdPeerThread);
   private
    {  Private  declarations }
   public
    {  Public  declarations }
   end ;

var
  Form1: TForm1;
  State:TDataState;

implementation

{$R  * .dfm}

procedure TForm1.BtCloseClick(Sender: TObject);
begin
  Close;
end ;

procedure TForm1.echo(Data:  String );
begin
   if  ListBox1.Items.Count  > 20   then   ListBox1.Clear;
  ListBox1.items.append(Data);
end ;

procedure TForm1.BtStartClick(Sender: TObject);
begin
  BtStart.Enabled : =   False ;
  IdTCPServer1.Active: = true ;
  echo( ' 图片传送服务已启动  ( yiparts.com )');
  BtStop.Enabled : =   True ;
end ;

procedure TForm1.BtStopClick(Sender: TObject);
begin
  BtStart.Enabled : =   True ;
  IdTCPServer1.Active: = false ;
  echo( ' 服务停止');
  BtStop.Enabled : =   False ;
end ;

procedure TForm1.IdTCPServer1Exception(AThread: TIdPeerThread;
  AException: Exception);
var
  aFileSize :  Integer ;       // aFileSize用来表示文件大小，整型
  aFileName :  String ;     // aFileName表示文件名，字串型
  Buff : array[ 0 .. 1023 ]  of   Byte ;   //  Buff 缓存区大小设置，byte型
  ReadCount :  Integer ;   // 实际每次读取文件块的大小，整型
  Stream : TFileStream;
  s,sCommand, sAction :  string ;
begin
s : =  AThread.Connection.ReadLn(# 13 # 10 ,  100 );
sCommand : =  copy(s, 1 , 4 );
sAction : =  copy(s, 6 , 100 );
if  sCommand  =   ' SEND' then
  begin
  Stream: = nil;
   if  State  =  dstNone  then
    begin
     if   not  AThread.Terminated  and  AThread.Connection.Connected  then
      begin
      // aFileName : =  AThread.Connection.ReadLn(# 13 # 10 ,  100 );
     aFileName : =  sAction;
         if  aFileName  =   ' ' then
           Exit ;
      AThread.Connection.WriteLn;
      AThread.Connection.ReadBuffer(aFileSize,  4 ); // 开始读取文件长度，放进变量aFileSize中
      ProgressBar1.Max : =  aFileSize;
      echo( ' 开始接收文件：'+ aFileName);
      Stream : =  TFileStream.Create(aFileName, fmCreate); // 创建一个文件流
      State : =  dstReceiving;
       end ;
     end ; // State  =  dstNone
   if   not  AThread.Terminated  and  AThread.Connection.Connected  then
  begin
       // 读取文件流
      repeat
         if  aFileSize  -  Stream.Size  >  SizeOf(Buff)  then
          ReadCount : =  SizeOf(Buff)
         else
          ReadCount : =  aFileSize  -  Stream.Size;
         // 从连接中读取 ReadCount长度的文件块放到缓冲区Buff,中
        AThread.Connection.ReadBuffer(Buff, ReadCount);
         // 将缓冲区中的内容写进文件流中，这是就是写到文件aFileName中啦
        Stream.WriteBuffer(Buff, ReadCount);
         // 文件流当前写的大小，值赋给进度条的位置
        ProgressBar1.Position : =  Stream.Size;
         // 显示已经传输和实际文件大小的比例
        Caption : =  IntToStr(trunc(Stream.Size / 1024 ))  +   ' K/' + IntToStr(trunc(aFileSize/1024)) + 'K';
         // 这句作用是让消息传递动态显示起来，如果没有这句上面的caption是不会显示跳动的
        Application.ProcessMessages;
       until  Stream.Size  >=  aFileSize;   // 直到文件大小和原文件大小一致结束循环
      AThread.Connection.WriteLn( ' OK');  //返回一个信息 OK，让客户端知道你读完了
   end ;
  Stream.Free;
   // Stream: = nil;
   // 定义成没有人连接，准备接受下一个人的连接
  State: =  dstNone;
  echo( ' 文件接收完成');
  echo( ' 开始分析记录文件');

   end ;  // IF  SEND
end ;

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  echo( ' 客户端断开连接');
end ;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  echo( ' 客户端连接成功');
end ;

end .