Trying to catch error

[oz8hp]

I am using the code below to try and test the connection to my MySQL server, but it doesn't do the job. It doesn't catch the error with the wrong settings of servername, user and password.

I am rather new both to Delphi and MyDAC so please bear with my code

Procedure TfrmMain.hp_Validate_MySQL();

Var
strMessage : String;

Begin
strMessage := 'There was a problem in connection to MySQL server: ' + strMySQL_Server + ' !' + hp_NewLine;
strMessage := strMessage + 'Revise your settings in the .INI file';
Try
conMySQL_1.Server := 'kurt';
conMySQL_1.Database := 'Test';
conMySQL_1.Username := 'root';
conMySQL_1.Password := '';
conMySQL_1.Connect;
Except
On E: EMyError Do
If E.Errorcode = ER_ACCESS_DENIED_ERROR Then
Begin
MessageDlg(strMessage, mtError, [mbOK], 0);
Halt(9);
End
Else
Begin
ShowMessage(IntToStr(E.Errorcode));
Raise;
End;
End; //Try
End; //hp_Validate_MySQL

[Dimon]

What's the problem with catching the error? Are you sure that except block was not executed if the connection was established with error?

Try to add the MyDacVcl unit to the uses clause of the unit where Connect is caled, and don't use except block.

[oz8hp]

The problem is that I don't get the custom error - just a standard Delphi error and the program crashes.

I will try to see if I can test your suggestion, but I am not quite sure how to do it. But I will have to try

[Dimon]

The problem is that I don't get the custom error - just a standard Delphi error and the program crashes.

The program is crashed because you call Halt(9).

I will try to see if I can test your suggestion, but I am not quite sure how to do it. But I will have to try

Try to use the following code:

Code: Select all

uses
  MyDacVcl;

Procedure TfrmMain.hp_Validate_MySQL(); 
Begin 
  conMySQL_1.LoginPrompt := True;
  conMySQL_1.Server := 'kurt'; 
  conMySQL_1.Database := 'Test'; 
  conMySQL_1.Username := 'root'; 
  conMySQL_1.Password := ''; 
  conMySQL_1.Connect; 
End; //hp_Validate_MySQL

[oz8hp]

The only difference is that I then get a logon prompt for the MySQL server.
Since the app has to be 100% unattended I can't use that option.

(The app is a converter that takes >500 Paradox tables of different kind and convert to MySQL tables - is is being run by a server in the middle of the night and if errors occur the app sends a mail to SYSOP calling for his attention.)

[eduardosic]

The only difference is that I then get a logon prompt for the MySQL server.
Since the app has to be 100% unattended I can't use that option.

(The app is a converter that takes >500 Paradox tables of different kind and convert to MySQL tables - is is being run by a server in the middle of the night and if errors occur the app sends a mail to SYSOP calling for his attention.)

try this

Code: Select all

Procedure TfrmMain.hp_Validate_MySQL();
Begin
    try
      conMySQL_1.Server      := 'kurt';
      conMySQL_1.Database  := 'Test';
      conMySQL_1.Username := 'root';
      conMySQL_1.Password  := '';
      conMySQL_1.Connect;
    except
     on E:Exception do begin
      MessageDlg( 'There was a problem in connection to MySQL server: ' + #13 + E.Message, mtError, [mbOK], 0);
     end
    end; 

end; 

[oz8hp]

Makes no difference - still crashing

...raised exception class SocketException with message ''. Proces stopped. Use step..........[/img]

[eduardosic]

Makes no difference - still crashing

...raised exception class SocketException with message ''. Proces stopped. Use step..........[/img]

please, send more information, and a complete message.. this exception occurs in other point of you software.

[oz8hp]

What I could do is to send you a copy of my test app. It is just a form with a connection and a button that runs the function to validate the connection no more.

Is there anywhere I can send the file?

[eduardosic]

What I could do is to send you a copy of my test app. It is just a form with a connection and a button that runs the function to validate the connection no more.

Is there anywhere I can send the file?

Please, send files to [email protected] or [email protected]

don't send exe files, gmail block it's.

send-me a screen of error message in you computer.

[eduardosic]

What I could do is to send you a copy of my test app. It is just a form with a connection and a button that runs the function to validate the connection no more.

Is there anywhere I can send the file?

Please, send files to [email protected] or [email protected]

don't send exe files, gmail block it's.

send-me a screen of error message in you computer.

i receive the files and test it.. work's fine..

i send a e-mail to you with more details