unit_up_report.pas

来自「招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言」· PAS 代码 · 共 125 行

unit Unit_up_report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls,SHDocVw, OleCtrls;

type
  TFrm_up_report = class(TForm)
    Label1: TLabel;
    Animate1: TAnimate;
    TimerConncet: TTimer;
    TimerExport: TTimer;
    Label2: TLabel;
    Edt_path: TEdit;
    WebBrowserExport: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure TimerConncetTimer(Sender: TObject);
    procedure TimerExportTimer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    BtnSubmit        : string;
    AConnectting     : boolean;
    AConnectSecond   : Integer;

  public
    { Public declarations }
    up_id  : string;

  end;

var
  Frm_up_report: TFrm_up_report;

implementation

{$R *.dfm}

uses
  systemobject;

procedure TFrm_up_report.FormCreate(Sender: TObject);
begin
  //初始化
  AConnectSecond:=0;
  AConnectting:=False;

end;

procedure TFrm_up_report.TimerConncetTimer(Sender: TObject);
begin
  inherited;
  inc(AConnectSecond);
  if not AConnectting then
  begin
    if ExportUrl <> '' then
    begin
      WebBrowserExport.Navigate(DBLogin.BsServer+ExportUrl);
      AConnectting := True;
    end
    else
    begin
      TimerConncet.Enabled := False;
      application.MessageBox('参数错误，请设置上报服务器地址，如果仍有问题请与开发商联系！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
      close;
    end;
  end;
  if WebBrowserExport.Busy then       // ExportBusy
  begin
    if AConnectSecond > 20 then
    begin
      TimerConncet.Enabled := false;
      application.MessageBox('连接邮件服务器失败！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
      close;
    end;
  end
  else
  begin
    TimerConncet.Enabled := false;

    WebBrowserExport.OleObject.Document.UploadToBSForm.res_id.value :=up_id;
    WebBrowserExport.OleObject.Document.UploadToBSForm.file.click;
    WebBrowserExport.OleObject.Document.UploadToBSForm.button1.click;

    TimerExport.Enabled := true;
  end;
end;

procedure TFrm_up_report.TimerExportTimer(Sender: TObject);
begin
  inherited;
  if not WebBrowserExport.Busy then
  begin
    if WebBrowserExport.LocationURL<>DBlogin.BsServer+ExportSuccessUrl then
    begin
      TimerExport.Enabled:=False;
      application.MessageBox('上传失败！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
    end
    else
    begin
      TimerExport.Enabled:=False;
      Frm_up_report.Close;
      application.MessageBox('上传成功！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
    end;

  end;
end;

procedure TFrm_up_report.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_up_report.Button1Click(Sender: TObject);
begin
  TimerConncet.Enabled := true;
end;

end.