tag:blogger.com,1999:blog-6407108.post110362194485859558..comments2023-04-28T20:05:17.918+05:45Comments on Milan's Blog: Console application with ADO in DelphiMilanhttp://www.blogger.com/profile/18166736704399832422noreply@blogger.comBlogger8125tag:blogger.com,1999:blog-6407108.post-59424206369523683362019-04-23T15:54:01.403+05:452019-04-23T15:54:01.403+05:45if u want to add usr and password came from encryp...if u want to add usr and password came from encrypt ini file add :<br /><br />Var<br />.....<br /> DocILCnn : TADOConnection;<br /> CatalogQry : TADOQuery;<br /> InsBlobRecCmd : TADOCommand;<br /> GeneralQry : TADOQuery;<br /> SqlConnectionStr : String;<br /> SqlConnectionUser : String;<br /> SqlConnectionPassword : String;<br /> WinTempDir : String;<br />....<br /><br /> Procedure LoadIniParams;<br /> Var<br /> LocalConnection : String;<br /> IniFileName : String;<br /> ParamsIni : TIniFile;<br /> begin<br /> SqlConnectionStr := '';<br /> SqlConnectionUser := '';<br /> SqlConnectionPassword := '';<br /> IniFileName := GetIniFileName (make your proc);<br /> If Not FileExists(IniFileName) Then<br /> Exit;<br /><br /> ParamsIni := TIniFile.Create(IniFileName);<br /> Try<br /> SqlConnectionStr := Trim(ParamsIni.ReadString('SQLSec','SqlConnectionString',LocalConnection));<br /> SqlConnectionUser := Trim(ParamsIni.ReadString('SQLSec','SQLUserName',''));<br /> SqlConnectionPassword := Trim(ParamsIni.ReadString('SQLSec','SQLPassWord',LocalConnection));<br /> SqlConnectionPassword := Trim(DecryptString(SqlConnectionPassword,SQLEncryptKey));<br /> Finally<br /> ParamsIni.Free;<br /> End;<br /> end;<br /><br /><br />type<br /> TMyConsoleAdoCnn = class<br /> public<br /> class procedure DocILCnnWillConnect(Connection: TADOConnection;<br /> var ConnectionString, UserID, Password: WideString;<br /> var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);<br /> end;<br /><br />class procedure TMyConsoleAdoCnn.DocILCnnWillConnect(Connection: TADOConnection;<br /> var ConnectionString, UserID, Password: WideString;<br /> var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);<br />begin<br /> If Trim(SqlConnectionStr) = '' Then<br /> Exit;<br /> ConnectionString := SqlConnectionStr;<br /> if Trim(SqlConnectionUser) <> '' then<br /> begin<br /> UserID := SqlConnectionUser;<br /> Password := SqlConnectionPassword;<br /> end;<br />end;<br /><br /><br />begin<br />....<br /><br />LoadIniParams;<br /><br />....<br /> DocILCnn := TADOConnection.Create(nil);<br /> DocILCnn.LoginPrompt := False;<br /> DocILCnn.OnWillConnect := TMyConsoleAdoCnn.DocILCnnWillConnect;<br /><br />....<br />end<br />Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-6407108.post-36399265279419219182012-03-23T17:30:10.589+05:452012-03-23T17:30:10.589+05:45Thanks a lotThanks a lotAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-6407108.post-31539579658754846162010-09-18T03:51:36.021+05:452010-09-18T03:51:36.021+05:45Great about this Post. Thanks for sharing all this...Great about this Post. Thanks for sharing all this Info. <a href="http://delphicomponentdevelopment.webs.com/" rel="nofollow">Delphi</a>Unknownhttps://www.blogger.com/profile/17056398072745959635noreply@blogger.comtag:blogger.com,1999:blog-6407108.post-48049331005054480802010-05-09T19:21:22.961+05:452010-05-09T19:21:22.961+05:45This is a great research. I am trying to do a Delp...This is a great research. I am trying to do a Delphi CGI with ADO connection and it has been a pain in the ass. Before seeing this post i was using delphi types files to get it working. But this post....saved my life. Good job dude !<br />AlinAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-6407108.post-89040616167741639842010-01-22T17:21:40.034+05:452010-01-22T17:21:40.034+05:45Thank you Milan, I had problem with this too.Thank you Milan, I had problem with this too.Soul Intruderhttps://www.blogger.com/profile/16873694208138872553noreply@blogger.comtag:blogger.com,1999:blog-6407108.post-53503351959980878592009-01-09T01:04:00.000+05:452009-01-09T01:04:00.000+05:45Excellent!Exactly what I was looking for that I co...Excellent!<BR/>Exactly what I was looking for that I couldn't find anywhere else.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-6407108.post-8742679627774032172008-10-15T13:27:00.000+05:452008-10-15T13:27:00.000+05:45Was very helpful for me too, thank youWas very helpful for me too, thank youAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-6407108.post-73115649260178581132008-04-12T23:56:00.000+05:452008-04-12T23:56:00.000+05:45Your posting on using ADO components in a Delphi c...Your posting on using ADO components in a Delphi console application is absolutely GREAT!!!<BR/><BR/>This is the first posting I could find that truly helped me solve my problem.<BR/><BR/>Thank you for posting this.Anonymousnoreply@blogger.com