Devart Forums

Code: Select all

function TdmSkupno.PoveziStreznik : Boolean;

  function PoveziSQL(var AMsg : String) : integer;
  begin
    AMsg := '';
    Result := -1;
    with sqlConn do
    try
      Logger(logTrail, 'trying to connect ' + glSkupno.NastZbirka.Server);
      Open; //  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('User_name=' + glSkupno.NastZbirka.Uporabnik);
    Params.Add('Password=' + glSkupno.NastZbirka.Geslo);
    Params.Add('Hostname=' + glSkupno.NastZbirka.Server); 
    Params.Add('DataBase=' + glSkupno.NastZbirka.Zbirka);
    Params.Add('LongStrings=True');
    Params.Add('EnableBCD=False');
    Params.Add('FetchAll=True');
//    Params.Add('UseUnicode=True');
    LoginPrompt := False;
    KeepConnection := True;
  end;

  sMsg := '';
  iRez := PoveziSQL(sMsg);
  if iRez = -10 then
  //timeout, trying to reconnect
    iRez := PoveziSql(sMsg);

  Result := iRez = 0;
  if not Result then
    MsgBox('An error has occured while connecting to the server.' + ^m +
           'The application will now exit.' + ^m +
           'Error:' + ^m + sMsg,
           'Error', mtError, [mbOK]);
end;