_uf_rcvFile.pas

unit _uf_rcvFile;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, shellapi, xocLabel, ComCtrls;

type
  T_FRcvFile = class(TForm)
    tm_accept: TTimer;
    TMkbs: TTimer;
    _Panel_CONFIRM: TPanel;
    AA_0586_ask: TLabel;
    AA_0585_vv1: TLabel;
    AA_0571_Label4: TLabel;
    ee1: TLabel;
    ee2: TLabel;
    ee3: TLabel;
    AA_0589_Label9: TLabel;
    Label10: TLabel;
    sec: TLabel;
    gg: TImage;
    ckbs: TLabel;
    AA_0571_Label2: TLabel;
    AA_0577_Label3: TLabel;
    AA_0578_Label4: TLabel;
    cread: TLabel;
    csiz: TLabel;
    pers: TLabel;
    AA_0580_Label1: TLabel;
    AA_0579_Label5: TLabel;
    tmrest: TLabel;
    Image3: TImage;
    Shape1: TShape;
    AA_0584_eCapFromUser: TExoSeeLabel;
    Image2: TImage;
    Image4: TImage;
    AA_0570_Label5: TLabel;
    zzRemoteFileName: TLabel;
    gress: TProgressBar;
    Shape2: TShape;
    AA_0569_canz: TButton;
    cpStat: TLabel;
    AA_0582_ww2: TButton;
    AA_0581_ww1: TButton;
    AA_0588_BtnDeny: TButton;
    AA_0587_BtnAccept: TButton;
    Shape3: TShape;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure AA_0569_canzClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure tm_acceptTimer(Sender: TObject);
    procedure TMkbsTimer(Sender: TObject);
    procedure AA_0588_BtnDenyClick(Sender: TObject);
    procedure AA_0587_BtnAcceptClick(Sender: TObject);
    procedure AA_0581_ww1Click(Sender: TObject);
    procedure AA_0582_ww2Click(Sender: TObject);
  private
      pair :Boolean;
  protected
  procedure CreateParams(var Params: TCreateParams); override;

  public
      Permission_OK :boolean;
      BytesRCV,BytesLAST :Int64;
      _otodw_timeA:string[20];
      _set_cancel:Boolean;
  end;

implementation

 uses unit1, _uc_funcs, _uc_refs_consts, _uc_refs_vars, _uc_GuiLanG;

{$R *.DFM}
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure T_FRcvFile.CreateParams(var Params: TCreateParams);
begin

Inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;

end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=caFree;
end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=(Tag=5);
end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.FormCreate(Sender: TObject);
begin

GoSetLANG(Self); //----- go loadLang --- if ok  (1st here)

Caption:='ExoSee - '+___ccc__0569__FileDownload;

_FXOC_MAIN._images.GetIcon(13,icon);
pair            :=false;
Permission_OK   :=false;
_set_cancel     :=false;

tm_accept.Tag   :=20; // set sure
BytesRCV:=0;
BytesLAST:=0;
_Panel_CONFIRM.Top:=72;

gg.Picture.Icon.Handle := LoadIcon(0, IDI_QUESTION);

end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.AA_0569_canzClick(Sender: TObject);
begin
if AA_0569_canz.Tag=0 then _set_cancel:=true
else begin
     //Tag:=5;
     Close;
     end;
end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.FormActivate(Sender: TObject);
begin
update;
end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.tm_acceptTimer(Sender: TObject);
begin

pair:=not pair;
flashwindow(handle, pair);

tm_accept.Tag:=tm_accept.Tag-1;
sec.Caption  :=inttostr(tm_accept.Tag);

if tm_accept.Tag=0 then begin
                        _FXOC_MAIN.TheLOGGER.Log(format(___ccc__0073__FileAutoDeniedFrom,[ee1.Caption,ee2.Caption])+ret,1);
                        tm_accept.Enabled:=false; // last here
                        end;

end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.TMkbsTimer(Sender: TObject);
var
kk:integer;
begin

kk:=BytesRCV - BytesLAST;
if kk<1 then exit;

//tmrest.Caption:=_time_left((gress.MaxValue - rcvBB) div kk);
ckbs.Caption :=_octos(kk)+'/s';  // kbs
BytesLAST    :=BytesRCV;

end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.AA_0588_BtnDenyClick(Sender: TObject);
begin
Permission_OK    :=false;
tm_accept.Enabled:=false;
end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.AA_0587_BtnAcceptClick(Sender: TObject);
begin
Permission_OK      :=true;
tm_accept.Enabled  :=false;
_Panel_CONFIRM.Visible :=false; // hide_panel
end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.AA_0581_ww1Click(Sender: TObject);
begin
ShellExecute(0,'open',pchar(AA_0581_ww1.Hint),nil,nil,SW_SHOWNORMAL);
Close;
end;

//------------------------------------------------------------------------------
procedure T_FRcvFile.AA_0582_ww2Click(Sender: TObject);
begin
ShellExecute(0,'explore',pchar(_VV_LOCAL_CONFIG_THE_DOWNLOADS_FOLDER+'Completed'),nil,nil,SW_SHOWNORMAL);
Close;
end;

end.





../delphi71code/exosee-code-source/uf_rcvfile-pas..