TmyConnection Problem

[kenny]

Hi,
I'm using Delphi 5, MyDac 3.30.2.15.

I attempt to assign myconnection.connect to true at runtime, it appear the lost connection error.

Screen.Cursor := crHourGlass;
Try
MyConnection1.Connected := False;
MyConnection1.Server := TPCIP.FieldByName('IPAddress').AsString;
MyConnection1.Connected := True;
MessageDlg('Succesfully connected to IP : '
+ TPCIP.FieldByName('IPAddress').AsString
, mtInformation, [mbOK], 0);

Except
MessageDlg('Failed to connect to IP : '
+ TPCIP.FieldByName('IPAddress').AsString
, mtError, [mbOK], 0);
End;
Screen.Cursor := crDefault;

but when I used following code then work ok

Screen.Cursor := crHourGlass;
Try
MyConnection1.Connected := False;
MyConnection1.Server := TPCIP.FieldByName('IPAddress').AsString;

//MyConnection1.Connected := True;
QCheckConnect.Close;
QCheckConnect.Open;
MessageDlg('Succesfully connected to IP : '
+ TPCIP.FieldByName('IPAddress').AsString
, mtInformation, [mbOK], 0);

Except
MessageDlg('Failed to connect to IP : '
+ TPCIP.FieldByName('IPAddress').AsString
, mtError, [mbOK], 0);
End;
Screen.Cursor := crDefault;

This happend when the network is 100mbs but the client station is longer than that. (ps: design time the myconnection assign to true is work)

Thanks

[Ikar]

Does the behaviour change if to add a row

QCheckConnect.Server := MyConnection1.Server;

at the second case?

What value is set to ConnectionTimeout?

[kenny]

Hi,

QCheckConnect is TMyQuery component, and I found out that no Server properties to assign on it : QCheckConnect.Server := MyConnection1.Server; (Undeclare identifier 'Server')

The timeout connection I'd tried before were 15,30,60,90 and also 180 but not working at runtime too.

[Ikar]

We couldn't reproduce the problem.
Please send us (mydac*crlab*com) complete small sample to demonstrate it.

[kenny]

Hi,
This is the code for testing.
The network connection is 100mps while the distance of PC1 & PC2 is more than 100mps.

Screen.Cursor := crHourGlass;
Try
MyConnection1.Connected := False;
MyConnection1.Server := TPCIP.FieldByName('IPAddress').AsString;
MyConnection1.Connected := True;
MessageDlg('Succesfully connected to IP : '
+ TPCIP.FieldByName('IPAddress').AsString
, mtInformation, [mbOK], 0);

Except
MessageDlg('Failed to connect to IP : '
+ TPCIP.FieldByName('IPAddress').AsString
, mtError, [mbOK], 0);
End;
Screen.Cursor := crDefault;

Thanks

[Ikar]

Unfortunately by partial example we couldn't reproduce the problem. Please send complete sample.