[Delphi] inloggen op remote server (IAppServer)

[Tomatoman]

Mijn client databaseprogramma moet een verbinding maken met een remote application server. Op de client zijn de datasets gekoppeld aan een TConnectionBroker, die weer is gekoppeld aan een TDCOMConnection. Op de server zijn de TDataSetProviders gekoppeld aan een TADOConnection. Alles werkt naar behoren.

Nu wil een een authentificatie inbouwen, zodat niet iedere client zomaar een verbinding met de server kan opbouwen. Dat moet al plaatsvinden voordat de server een databaseverbinding opbouwt. Het gaat me dus om het inloggen van de client op de server en niet om het inloggen van de server in de serverdatabase.

Nu kan ik daar wel een functie voor aan de IAppServer interface van de server toevoegen, maar ik zie dat zowel TConnectionBroker als TDCOMServer de property LoginPrompt kent en ook de events OnGetUsername en OnLogin. Wat ik ook probeer, OnGetUsername en OnLogin worden nooit aangeroepen , blijkbaar doe ik iets fout. Maar wat?

En waarvoor dient OnLogin van TConnectionBroker/TDCOMServer eigenlijk? Om de client in te laten loggen op de server of om de server in de serverdatabase te laten inloggen? Delphi Help is hier niet duidelijk over.

[Tomatoman]

We zijn nu ongeveer een etmaal verder . Tijd voor een schopje.

[LordLarry]

Zet LoginPrompt op True en ze worden wel aangeroepen met het resultaat van dat scherm. Niet nuttig voor jouw, denk ik.

Het beste is gewoon een methode toe te voegen aan IAppServer zoals je al voorstelde. Je kan ook gebruik maken van OwnerData van de OnBeforeGetRecords property.

[Tomatoman]

Als ik LoginPrompt van de TConnectionBroker op True zet, wordt TConnectionBroker.OnLogin niet aangeroepen. Ook als ik TDCOMConnection.LoginPrompt op True zet, wordt TConnectionBroker.OnLogin niet aangeroepen. Hoort dat zo?

Hoe dan ook, ik zal IAppServer met een method uitbreiden.