WebService Registering dll

13

I have the following code:

CoInitialize(nil);
  try
    DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;
  except
    WinExec( 'regasm LarWS.dll /tlb:LarWS.tlb',SW_HIDE);
    Screen.Cursor := crHourGlass;
    Sleep(3000);
    Screen.Cursor := crDefault;
    DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;
  end;

DM_Principal:
  private
    larWS: IWS;
  public
    property pLarWS: IWS read larWS write larWS;

When running without internet the system will loop in the routine:

DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;

Failing to register, if I try to change the code to register in regasm also go into infinite loop.

Follow the link in the LARWS_TLB.pas file Archive.

    
asked by anonymous 13.04.2018 / 13:37

0 answers