Devart Forums

Code: Select all

create table xml_test (id number(38) primary key, x xmltype);
insert into xml_test values (1, '<data>Test 1</data>');
insert into xml_test values (2, '<data>Test 2</data>');
insert into xml_test values (3, '<data>Test 3</data>');
insert into xml_test values (4, '<data>Test 4</data>');
insert into xml_test values (5, '<data>Test 5</data>');
commit;
select * from xml_test;

Code: Select all

program XMLTypeTest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  OraCall,
  Ora;

var
  FOraSession: TOraSession;
  FOraQuery: TOraQuery;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    OraCall.OCIUnicode := True;
    OraCall.OCIDLL := 'D:\Oracle\oci.dll';
    FOraSession := TOraSession.Create(nil);
    try
      FOraSession.ConnectPrompt := False;
      FOraSession.Options.UseUnicode := True;
      FOraSession.ConnectString := 'SCOTT/tiger@//192.168.11.112/orcl.mfm2';
      FOraQuery := TOraQuery.Create(nil);
      try
        FOraSession.Connect;
        try
          FOraSession.ExecSQL('drop table zxml_test');
        except
          // Eat this error.
        end;
        FOraSession.ExecSQL('create table zxml_test (id number(38) primary key, x xmltype)');
        FOraSession.ExecSQL('insert into zxml_test values (1, ''<data>Test 1</data>'')');
        FOraSession.ExecSQL('insert into zxml_test values (2, ''<data>Test 2</data>'')');
        FOraSession.ExecSQL('insert into zxml_test values (3, ''<data>Test 3</data>'')');
        FOraSession.Commit;
        WriteLn('Connected');
        FOraQuery.SQL.Text := 'select x from zxml_test';
        // project XMLTypeTest.exe raised exception class $C0000005 with message
        // 'access violation at 0x03bdd7ed: read of address 0x00000008'.
        FOraQuery.Open;   // Should fail here with above message or similar.
        while not FOraQuery.Eof do
        begin
          WriteLn(FOraQuery.Fields[0].AsString);
          FOraQuery.Next;
        end;
      finally
        FOraQuery.Free;
      end;
      ReadLn;
    finally
      FOraSession.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Code: Select all

select cast(x as varchar2(1024)) x from zxml_test