🚀 go-pugleaf

lxs@dei.unipd.it wrote in message <6ifaan$12c$1@nnrp1.dejanews.com>...
>I have a problem opening an Access DB in an OLE server created with
>Delphi 3.
>I have prepared a very short example that demonstrate how the server
>work (and crash):

<snip>

I access a Access DB from an Automation Server, but the BDE Native Access
drivers can be slow...
Here is my source code:

Automation server code:
,,,
procedure TMyAutoServer.Initialize;
begin
  // create a database to connect to the DB
  try
    db := TDatabase.Create(nil);
    with db do
    begin
      AliasName := 'ComsCtr';          // BDE alias to DB
      DatabaseName := 'aComsCtr'; // dummy not used
      LoginPrompt := False;
      Params.Add('USER NAME=MyUserName');
      Params.Add('PASSWORD=foo');
      Connected := TRUE;
    end;
  except
    // problem! BDE installed? Alias 'ComCentre' pointing to a ComCtr.MDB?
  end;
end;

// returns true if user logged in OK, False otherwise
function TMyAutoServer.Login: WordBool;
var
  qUsers     : TQuery;
begin
  result := BOOLFALSE; // by default
  qUsers := nil;       // suppress warning re qUsers may not have been
init'd
 try
    qUsers := TQuery.Create(nil);
    qUsers.DatabaseName := db.DatabaseName;
    qUsers.SQL.Add('SELECT *');
    qUsers.SQL.Add('FROM Users');
    qUsers.SQL.Add(WHERE   usr_Name = "'+FUserName+'"');
    qUsers.SQL.Add('AND   usr_Password = "'+FPassword+'"');
    qUsers.Open;
    if not qUsers.EOF then   // user found
    begin
      result := BOOLTRUE;
      FUserName        := qUsers.FieldByName('usr_Name').AsString;
      FUserAccessLevel := qUsers.FieldByName('usr_AccessLevel').AsInteger;
    end; // if located user
  finally
   if qUsers <> nil then qUsers.Free;
 end; // with dmodule
end;


and the client:
...
begin
  try
    ComControl := CreateOleObject('TVDComCtr.MyAutoServer);
  except
     on e: Exception do
        ShowMessage(e.Message);
  end;

  ComControl.UserName := eName.Text;
  ComControl.Password := ePassword.Text;
  if ComControl.Login then
    begin
      ModalResult := mrOK;
    end
  else
    begin
      MessageBeep(MB_ICONASTERISK);
      FlashWindow(LoginDlg.Handle,FALSE);
    end;
end;



Regards,
Grant