🚀 go-pugleaf

Hi Tumurbaatar S.

try as variant

PromptDataSource(unsigned(::GetDesktopWindow()), "");

to bring up native ADO dialog

Dmitry Konnov
http://www.weblinedesign.biz


> I had a problem on bringing up a default login dialog
> when TADOConnection::ConnectionString does not
> contain UserID/Password. Even LoginPrompt is true
> and <DBLogDlg.hpp> is included, the connection
> fails with "Invalid authorization specification".
> After examining BCB6's ADO and DB source files/includes,
> I found that the login dialog appears if LoginDialogExProc variable
> is set to a corresponding function: LoginDialogEx.
> So before opening a connection I executed below code:
>
>   if (LoginDialogExProc == NULL)
>     ShowMessage("NULL");
>   if (LoginDialogExProc != LoginDialogEx)
>     ShowMessage("NOT SAME");
>
> And it returns "NOT SAME" and login dialog does not appear.
> Due to this, I added:
>   LoginDialogExProc = LoginDialogEx;
> before connection open and now login dialog works well.
>
> P.S. In my old project which uses TADOConnection with LoginPrompt=true
> the login dialog works normally without an additional code. I don't know
> why.
>
>
>
>
>