Devart Forums

Code: Select all

function TdmSkupno.ConnectServer(AProgramStart : boolean) : Boolean;

  function ConnectSQL(var AMsg : String) : integer;
  begin
    AMsg := '';
    Result := -1;
    with sqlConn do
    try
      Open;
      if Connected then
      begin
        Result := 0;
        AMsg := '';
      end;
    except
      on E: Exception do
      begin
        AMsg := E.Message;
        Logger(LogFull, 'Error, dmSkupno, ConnectServer, E: ' + E.ClassName+ ', msg: ' + E.Message);
        if Pos('could not open a connection', LowerCase(AMsg)) > 0 then
          Result := -10;
        if Pos('delay in opening server connection', LowerCase(AMsg)) >0  then
          Result := -10;
      end;
    end;
  end;

var
  iRez : Integer;
  sMsg : String;
begin
  with sqlConn do
  begin
    Close;
    ConnectionName := 'SQLServerConnection';
    DriverName := 'SQLServer';
    GetDriverFunc := 'getSQLDriverSQLServer';
    LibraryName := 'dbexpsda30.dll';
    VendorLib := 'sqloledb.dll';

    Params.Clear;
    Params.Add('BlobSize=-1');
    Params.Add('Hostname=' + FServer);
    Params.Add('DataBase=' + FDatabase);

    Params.Add('LongStrings=True');
    Params.Add('EnableBCD=False');
    Params.Add('FetchAll=True');
    LoginPrompt := True;
    KeepConnection := True;
  end;

  sMsg := '';
  iRez := ConnectSQL(sMsg);
  if iRez = -10 then
    iRez := ConnectSQL(sMsg);
  Result := iRez = 0;
  if (not Result) and AProgramStart then
    Application.MessageBox(PChar('The program can not start. Error:' + ^m + sMsg), 
	                       PChar('Error'), 
						   MB_ICONERROR+MB_OK)
 End;