Форум программистов [Powered by Invision Power Board]

Код

 { Invokable implementation File for TBillingGaz which implements IBillingGaz }
    
    unit BillingGazImpl;
    
    interface
    
    uses InvokeRegistry, Types, XSBuiltIns, BillingGazIntf, WebService.ReturnRecord,
         Classes, SyncObjs, SysUtils, StrUtils, Messages;
    
    type
    
      { TBillingGaz }
      TBillingGaz = class(TInvokableClass, IBillingGaz)
      public
        function echoDouble(const Value: Double): Double; stdcall;
        function GetBill(const AccountNo: string; const ConsumValue: Integer): TBillForClient; stdcall;
      end;
    
    
    type
      TNThread = class(TThread)
      private
        FAcc : string;
        FCons : Integer;
        procedure Sync;
      protected
        procedure Execute; override;
      public
        property AccTh : string read FAcc write FAcc;// write Fcons;
        property Cons : Integer read Fcons write Fcons;
      end;
    
    var
      acc: string;
      cons1, i: Integer;
      CS: TCriticalSection;
      mBillingGaz : TBillingGaz;
    
    implementation
    
    uses WebService.CalcPayAmount{, BillingGazThread};
      
    
    function TBillingGaz.echoDouble(const Value: Double): Double; stdcall;
    begin
      { TODO : Implement method echoDouble }
      Result := Value;
    end;
    
    function TBillingGaz.GetBill(const AccountNo: string; const ConsumValue: Integer): TBillForClient; stdcall;
    var
      NewThread: TNThread;
      prevAcc : string;
    begin
      Result := TBillForClient.Create;
   
      cons1 := 0;
      acc :=  AccountNo;
      prevAcc := AccountNo;
      Result.FullName := acc + ' ' + FormatDateTime('hh:mm:ss.zzz', Now);
   
      NewThread:= TNThread.Create(true);
      NewThread.FreeOnTerminate:=true;
      NewThread.Priority:=tpLower;
      NewThread.AccTh := prevAcc;
      NewThread.Resume;
      Sleep(5);
   
      if Copy(Result.FullName, 1, 9) <> acc then
        Result.FullName := Result.FullName + ' ' + acc + ' ' + prevAcc;
      Result.ErrorCode := NewThread.Cons;
    end;
    
    
    procedure TNThread.Execute;
    begin
      CS.Enter;
      case AnsiIndexText(Copy(AccTh, 1, 2), ['00','01','02','03','04','05']) of
        0 : begin
          Cons := 1;
        end;
        1 : begin
          Cons := 2;
        end;
        2 : begin
          Cons := 3;
        end;
        3 : begin
          Cons := 4;
        end;
        4 : begin
          Cons := 5;
        end;
        5 : begin
          Cons := 6;
        end
      else
        Cons := ERROR_WRONG_ACCOUNT_NO;
      CS.Leave;
    end;
    
    procedure TNThread.Sync;
    begin
    //  mBillingGaz.Billingcons := cons1;
    end;
    
    
    initialization
    { Invokable classes must be registered }
       InvRegistry.RegisterInvokableClass(TBillingGaz);
       CS := TCriticalSection.Create;
    
    end.