ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/udr/testsuite/Test03.pas
(Generate patch)

Comparing ibx/branches/udr/udr/testsuite/Test03.pas (file contents):
Revision 380 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 381 by tony, Sat Jan 15 00:06:22 2022 UTC

# Line 69 | Line 69 | var MyTestProc: TExternalProcedureWrappe
69      Results: IProcedureResults;
70   begin
71    UDRPlugin.Attachment := Attachment;
72 <  MyTestProc := UDRPlugin.GetExternalProcedure('MYSELECTPROC','','fbudrtests!select_proc');
72 >  MyTestProc := UDRPlugin.makeProcedure('MYSELECTPROC','','fbudrtests!select_proc');
73    try
74      writeln(OutFile,'List Employees, salaries and accumulated salary');
75      Transaction := Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit);
# Line 92 | Line 92 | var MyReadText: TExternalProcedureWrappe
92      Results: IProcedureResults;
93   begin
94    UDRPlugin.Attachment := Attachment;
95 <  MyReadText := UDRPlugin.GetExternalProcedure('MYREADTEXT','','fbudrtests!read_txt');
95 >  MyReadText := UDRPlugin.makeProcedure('MYREADTEXT','','fbudrtests!read_txt');
96    try
97      MyReadText.InputParams[0].AsString := 'testsuite.conf';
98      writeln(OutFile,'Dump text file - testsuite.conf');

Diff Legend

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