ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBSQLMonitor.pas

Comparing ibx/trunk/runtime/IBSQLMonitor.pas (file contents):
Revision 138 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 139 by tony, Wed Jan 24 16:16:29 2018 UTC

#	Line 724 | Line 724 | begin
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;
#	Line 981 | Line 981 | begin
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;
#	Line 1099 | Line 1099 | initialization
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

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines