49 |
|
uses |
50 |
|
{$IFDEF WINDOWS } |
51 |
|
Windows, |
52 |
< |
{$ELSE} |
53 |
< |
unix, |
52 |
> |
{$ENDIF} |
53 |
> |
{$IFDEF UNIX} |
54 |
> |
cthreads, unix, |
55 |
|
{$ENDIF} |
56 |
|
SysUtils, Classes, IBDatabase, IBExternals, IB, IBSQL, Db, |
57 |
|
IBUtils, IBBlob, IBSQLParser, IBDatabaseInfo, fpTimer; |
1412 |
|
inherited Create; |
1413 |
|
FDataSet := ADataSet; |
1414 |
|
FTimer := TFPTimer.Create(nil); |
1415 |
< |
{$IF FPC_FULLVERSION >= 30002} |
1415 |
< |
FTimer.Enabled := true; |
1416 |
< |
{$IFEND} |
1415 |
> |
FTimer.Enabled := false; |
1416 |
|
FTimer.Interval := 0; |
1417 |
|
FTimer.OnTimer := HandleRefreshTimer; |
1418 |
|
FDelayTimerValue := 0; |
1427 |
|
|
1428 |
|
procedure TIBDataLink.HandleRefreshTimer(Sender: TObject); |
1429 |
|
begin |
1430 |
< |
FTimer.StopTimer; |
1430 |
> |
FTimer.Enabled := false; |
1431 |
|
if FDataSet.Active then |
1432 |
|
FDataSet.RefreshParams; |
1433 |
|
end; |
1457 |
|
begin |
1458 |
|
{$IF FPC_FULLVERSION >= 30002} |
1459 |
|
if FDelayTimerValue > 0 then |
1460 |
< |
FTimer.StartTimer |
1460 |
> |
with FTimer do |
1461 |
> |
begin |
1462 |
> |
if Enabled then |
1463 |
> |
begin |
1464 |
> |
StopTimer; |
1465 |
> |
StartTimer; |
1466 |
> |
end |
1467 |
> |
else |
1468 |
> |
Enabled := true; |
1469 |
> |
end |
1470 |
|
else |
1471 |
|
{$IFEND} |
1472 |
|
FDataSet.RefreshParams; |