VaR uniconnection: tuniconnection; uniquery: tuniquery; begin uniconnection: = tuniconnection. create (NiL); uniquery: = tuniquery. create (NiL); uniconnection. providername: = 'oracle '; uniconnection. specificoptions. clear; uniconnection. specificoptions. values ['direct']: = 'true'; uniconnection. server: = 'host: Port: database'; uniconnection. username: = 'username'; uniconnection. password: = 'passwd'; uniconnection. connect; uniquery. connection: = uniconnection; uniquery. SQL. text: = 'insert into temp3 (A4, A6) values (: A4,: A6) '; uniquery. parambyname ('a4 '). asstring: = 'pic1'; uniquery. parambyname ('a6 '). paramtype: = ptinput; // This sentence is necessary for uniquery.parambyname('a6'hangzhou.loadfromfile('1.jpg ', ftorablob); uniquery. execute; end;
If this uniconnection. specificoptions. Values ['useunicode ']: = 'true' is added, an error is returned.