Devart Forums

Code: Select all

procedure TForm1.FullTestButtonClick(Sender: TObject);
var
  OraSession: TOraSession;
  OraQuery: TOraQuery;
  sql: string;
  x: string;
  i: Integer;
begin
  Memo1.Lines.Clear;
  Screen.Cursor := crHourglass;

  OraCall.OCIUnicode := True;
  OraSession := TOraSession.Create(nil);
  OraSession.ConnectPrompt := False;
  OraSession.AutoCommit := False;
  OraSession.ThreadSafety := True;
  OraSession.Options.DisconnectedMode := False;
  OraSession.Options.UseUnicode := True;

  OraQuery := TOraQuery.Create(nil);
  OraQuery.Session := OraSession;
  OraQuery.Disconnected := True;

  OraSession.Username := 'scott';
  OraSession.Password := 'tiger';
  OraSession.Server := 'mfms3';
  OraSession.Connect;

  sql := 'select xmlelement("node", ''data'') "Test" from dual';
  Memo1.Lines.Add(sql);
  Memo1.Lines.Add('');

  OraQuery.SQL.Text := sql;
  OraQuery.Execute;
  Memo1.Lines.Add('First run through all records');
  while not OraQuery.eof do
  begin
    for i := 0 to OraQuery.FieldCount - 1 do
    begin
      x := OraQuery.Fields[i].AsString;
      Memo1.Lines.Add(x);
    end;
    OraQuery.Next;
  end;
  Memo1.Lines.Add('');

  OraSession.Disconnect;
  Memo1.Lines.Add('Disconnected');
  Memo1.Lines.Add('');

  OraQuery.First;
  Memo1.Lines.Add('Second run through all records after disconnect to see it it works.');
  while not OraQuery.eof do
  begin
    for i := 0 to OraQuery.FieldCount - 1 do
    begin
      x := OraQuery.Fields[i].AsString;
      Memo1.Lines.Add(x);
    end;
    OraQuery.Next;
  end;
  Memo1.Lines.Add('');

  // Will error on free with any XMLType query.
  OraQuery.Free;
  OraSession.Free;

  Screen.Cursor := crDefault;
end;