Indy tcp client

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBAccess, MyAccess, StdCtrls, ComCtrls, ExtCtrls, MemDS,
  MyRec, OBRARCompress, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, jpeg , inifiles;

type
  TForm1  =   class (TForm)
    MyConnection1: TMyConnection;
    pb1: TProgressBar;
     Next : TButton;
    s: TButton;
    Panel1: TPanel;
    MyTable1: TMyTable;
    MyTable1id: TIntegerField;
    MyTable1path: TStringField;
    MyTable1pic: TStringField;
    OBRARCompress1: TOBRARCompress;
    IdTCPClient1: TIdTCPClient;
    Image1: TImage;
    procedure sClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure NotBt;
    procedure OBRARCompress1Compressing(Sender: TObject;
      Progress:  Integer );
    procedure upload( const  FFileName :  string );  
    procedure NextClick(Sender: TObject);
   private
    {  Private  declarations }
   public
    {  Public  declarations }
   end ;

var
  Form1: TForm1;
  doing:  Integer ;
  inifile : Tinifile;
implementation

{$R  * .dfm}

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  doing : =   1 ;
  inifile : =  Tinifile.Create(ExtractFilePath(paramstr( 0 )) + ' config.ini');
end ;

procedure TForm1.NotBt;
begin
   Next .Enabled: =   not   Next .Enabled;
end ;

procedure TForm1.OBRARCompress1Compressing(Sender: TObject;
  Progress:  Integer );
begin
  pb1.Position : =  Progress;
  Application.ProcessMessages;
end ;

procedure TForm1.upload( const  FFileName :  string );
var
  Buf : array[ 0 .. 1023 ]  of   Byte ;
  aSize, ReadCount, Tmpint :  Integer ;
  aStream : TFileStream;
  aIdTCPClient: TIdTCPClient;
begin
try
  aStream : =  TFileStream.Create(FFileName, fmOpenRead  or  fmShareDenyWrite);
  aIdTCPClient : =   TIdTCPClient.Create(Application);
  aIdTCPClient.Port : =  StrToInt(inifile.readstring( ' Server','Port','3303'));
  aIdTCPClient.Host : =  inifile.readstring( ' Server','Host','59.36.101.91');
  aIdTCPClient.Connect;
  pb1.Position : =   0 ;
     // 发送文件名
  aIdTCPClient.WriteLn( ' SEND:'+ExtractFileName(FFileName));
     // 等待接受确认
    aIdTCPClient.ReadLn(# 13 # 10 ,  1000 );
     // 写文件长度和文件流
    aSize : =  aStream.Size;
    pb1.Max : =  aSize;
    aIdTCPClient.WriteBuffer(aSize,  4 );
         while  aStream.Position  <  aStream.Size  do
        begin
           if  aStream.Size  -  aStream.Position  >=  SizeOf(Buf)  then
              ReadCount : =  sizeOf(Buf)
           else  ReadCount : =  aStream.Size  -  aStream.Position;
          pb1.Position : =   aStream.Position;
          aStream.ReadBuffer(Buf, ReadCount);
          aIdTCPClient.WriteBuffer(Buf, ReadCount);
         end ;
        aIdTCPClient.ReadLn;
        aIdTCPClient.Disconnect;
   finally
  aIdTCPClient.Disconnect;
   if  aStream <> nil  then  FreeAndNil(aStream);
   if  aIdTCPClient <> nil  then  FreeAndNil(aIdTCPClient);
   end ;
end ;

procedure TForm1.NextClick(Sender: TObject);
var
  Myrec:TMyrec;
  Rec:TPersonRec;
  Tp:TSearchRec;
  Tct:_SystemTime;
  filename: string ;
begin
case  doing  of
1 :
  begin
  NotBt;
  MyTable1.Active : =   True ;
  Myrec : =  TMyrec.Create( ' rec.dat',fmCreate or fmShareDenyWrite);
  pb1.Max : =  MyTable1.RecordCount;
   while   not  MyTable1.Eof  do
    begin
    Rec.id : = varToStr(MyTable1.FieldValues[ ' id']);
    Rec.path : = varToStr(MyTable1.FieldValues[ ' path']);
    Rec.pic : = varToStr(MyTable1.FieldValues[ ' pic']);
     if  Rec.pic  <> ' ' then
      begin
      filename : =  inifile.readstring( ' CONFIG','DataPath','E:yipartswwwDATAxG5ARCZH6c') + '/'+ varToStr(MyTable1.FieldValues['path']) + '/' + varToStr(MyTable1.FieldValues['pic']);
      FindFirst(filename,faAnyFile,Tp);
      FileTimeToSystemTime(Tp.FindData.ftLastWriteTime,Tct);
      Rec.tdate : =   FormatDateTime ( ' YYYYMMDDHHMMSS',SystemTimeToDateTime(Tct));
       end ;
    Myrec.AppandRec(Rec);
    pb1.Position : =  pb1.Position  + 1 ;
    MyTable1.Next;
     end ; // while
    Myrec.Free;
    Panel1.Caption : =   ' 开始压缩';
    pb1.Position : =   0 ;
    pb1.Max : =   100 ;
    OBRARCompress1.OnCompressing: = OBRARCompress1Compressing;
    OBRARCompress1.SourceFiles.Add(ExtractFilePath(paramstr( 0 )) + ' rec.dat');
    OBRARCompress1.RARFileName : =  ExtractFilePath(paramstr( 0 )) + ' rec.rar';
    OBRARCompress1.Compress;
    Panel1.Caption : =   ' 记录文件生成完成,开始上传至服务器。';
    upload(ExtractFilePath(paramstr( 0 )) + ' rec.rar');
    Panel1.Caption : =   ' 记录文件已上传至服务器,服务器开始分析。';
   end ; // case   1 :
end ; // case  doing  of
end ;

end .