ViewVC Help

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

root/public/ibx/trunk/fbintf/testsuite/Test10.pas

Comparing ibx/trunk/fbintf/testsuite/Test10.pas (file contents):
Revision 401 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 402 by tony, Mon Aug 1 10:07:24 2022 UTC

#	Line 110 | Line 110 | begin
110		end;
111		writeln(OutFile,'Signal Event');
112		Attachment.ExecImmediate([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],sqlEvent);
113	<	while not FEventSignalled do Sleep(50);
113	>	while not FEventSignalled do
114	>	begin
115	>	Sleep(50);
116	>	CheckSynchronize;
117	>	end;
118		ShowEventCounts(EventHandler);
119		FEventSignalled := false;
120
#	Line 202 | Line 206 | begin
206		DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
207		DPB.Add(isc_dpb_password).setAsString(' ');
208		DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
205	–	DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
209		DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
210		Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
211		EventsTest(Attachment);

Diff Legend

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