| 27 |
|
{ IBX For Lazarus (Firebird Express) } |
| 28 |
|
{ Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk } |
| 29 |
|
{ Portions created by MWA Software are copyright McCallum Whyman } |
| 30 |
< |
{ Associates Ltd 2011 } |
| 30 |
> |
{ Associates Ltd 2011 - 2018 } |
| 31 |
|
{ } |
| 32 |
|
{************************************************************************} |
| 33 |
|
|
| 724 |
|
FMsgs := TObjectList.Create(true); |
| 725 |
|
FCriticalSection := TCriticalSection.Create; |
| 726 |
|
FMsgAvailable := TEventObject.Create(FGlobalInterface.Sa,true,false,cWriteMessageAvailable); |
| 727 |
< |
Resume; |
| 727 |
> |
Start; |
| 728 |
|
end; |
| 729 |
|
|
| 730 |
|
destructor TWriterThread.Destroy; |
| 981 |
|
FCriticalSection := TCriticalSection.Create; |
| 982 |
|
{$IFDEF DEBUG}writeln('Reader Thread Created');{$ENDIF} |
| 983 |
|
FGlobalInterface.ReadReadyEvent.Lock; { Initialise Read Ready} |
| 984 |
< |
Resume; |
| 984 |
> |
Start; |
| 985 |
|
end; |
| 986 |
|
|
| 987 |
|
destructor TReaderThread.Destroy; |
| 1099 |
|
FReaderThread := nil; |
| 1100 |
|
bDone := False; |
| 1101 |
|
{$IFDEF USE_SV5_IPC} |
| 1102 |
< |
if FpGetEnv('FBSQL_IPCFILENAME') <> nil then |
| 1103 |
< |
IPCFileName := strpas(FpGetEnv('FBSQL_IPCFILENAME')) |
| 1102 |
> |
if GetEnvironmentVariable('FBSQL_IPCFILENAME') <> '' then |
| 1103 |
> |
IPCFileName := GetEnvironmentVariable('FBSQL_IPCFILENAME') |
| 1104 |
|
else |
| 1105 |
< |
IPCFileName := GetTempDir(true) + IPCFileName + '.' + strpas(FpGetEnv('USER')); |
| 1105 |
> |
IPCFileName := GetTempDir(true) + IPCFileName + '.' + GetEnvironmentVariable('USER'); |
| 1106 |
|
{$ENDIF} |
| 1107 |
|
|
| 1108 |
|
finalization |
