main.dfm

odac for oralce 8i,10g,11g easy to connect to oralce from delphi

object fmMain: TfmMain
  Left = 158
  Top = 195
  Width = 761
  Height = 479
  VertScrollBar.Range = 82
  ActiveControl = btOpen
  AutoScroll = False
  Caption = 'Oracle Data Access Demo - Oracle external procedures'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 106
  TextHeight = 13
  object DBGrid: TDBGrid
    Left = 0
    Top = 178
    Width = 753
    Height = 264
    Align = alClient
    DataSource = DataSource
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 753
    Height = 89
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 65
      Width = 14
      Height = 13
      Caption = 'ID:'
    end
    object Label2: TLabel
      Left = 144
      Top = 65
      Width = 50
      Height = 13
      Caption = 'File Name:'
    end
    object Label3: TLabel
      Left = 8
      Top = 12
      Width = 137
      Height = 13
      Caption = 'Path to ExtProc.dll on server:'
    end
    object btOpen: TButton
      Left = 0
      Top = 33
      Width = 70
      Height = 24
      Caption = 'Open'
      TabOrder = 0
      OnClick = btOpenClick
    end
    object btClose: TButton
      Left = 70
      Top = 33
      Width = 69
      Height = 24
      Caption = 'Close'
      TabOrder = 1
      OnClick = btCloseClick
    end
    object DBNavigator1: TDBNavigator
      Left = 139
      Top = 33
      Width = 220
      Height = 24
      DataSource = DataSource
      TabOrder = 2
    end
    object cbDebug: TCheckBox
      Left = 375
      Top = 37
      Width = 59
      Height = 16
      Caption = 'Debug'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = cbDebugClick
    end
    object edId: TEdit
      Left = 32
      Top = 61
      Width = 89
      Height = 21
      TabOrder = 4
      Text = '1'
    end
    object edFileName: TEdit
      Left = 200
      Top = 61
      Width = 233
      Height = 21
      TabOrder = 5
      Text = 'C:\z.txt'
    end
    object btAddFile: TButton
      Left = 450
      Top = 59
      Width = 75
      Height = 25
      Caption = 'Add File'
      TabOrder = 6
      OnClick = btAddFileClick
    end
    object btCreate: TButton
      Left = 375
      Top = 8
      Width = 75
      Height = 24
      Caption = 'Create'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = btCreateClick
    end
    object btDrop: TButton
      Left = 450
      Top = 8
      Width = 75
      Height = 24
      Caption = 'Drop'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = btDropClick
    end
    object edLibraryPath: TEdit
      Left = 152
      Top = 8
      Width = 207
      Height = 21
      TabOrder = 9
      Text = 'C:\oracle\product\10.2.0\db_1\bin'
    end
  end
  object mmFileText: TMemo
    Left = 0
    Top = 89
    Width = 753
    Height = 89
    Align = alTop
    Lines.Strings = (
      'File'
      'Text')
    TabOrder = 2
  end
  object OraSession: TOraSession
    Username = 'scott'
    ConnectDialog = ConnectDialog
    Left = 344
    Top = 96
  end
  object OraQuery: TOraQuery
    Session = OraSession
    SQL.Strings = (
      'SELECT * FROM odac_file_list')
    Debug = True
    Left = 408
    Top = 96
  end
  object DataSource: TDataSource
    DataSet = OraQuery
    Left = 440
    Top = 96
  end
  object ConnectDialog: TConnectDialog
    SavePassword = True
    Caption = 'Connect'
    UsernameLabel = 'User Name'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    Left = 376
    Top = 96
  end
  object spAddFile: TOraStoredProc
    StoredProcName = 'add_file'
    Session = OraSession
    SQL.Strings = (
      'begin'
      '  add_file(:ID, :FILE_NAME, :FILE_DATE, :FILE_TEXT);'
      'end;')
    Options.TemporaryLobUpdate = True
    Left = 560
    Top = 96
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'FILE_NAME'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'FILE_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftOraClob
        Name = 'FILE_TEXT'
        ParamType = ptInput
        Value = ''
      end>
  end
  object sqCreate: TOraScript
    SQL.Strings = (
      'CREATE TABLE odac_file_list'
      '('
      '  id INTEGER PRIMARY KEY,'
      '  file_name VARCHAR2(100),'
      '  file_date TIMESTAMP'
      ');'
      ''
      'CREATE OR REPLACE LIBRARY ExtProcDemo AS &Dll;'
      ''
      'CREATE OR REPLACE PROCEDURE add_file(id NUMBER,'
      '                                     file_name VARCHAR2,'
      '                                     file_date TIMESTAMP,'
      '                                     file_text CLOB)'
      '  AS LANGUAGE C'
      '  NAME "add_file"'
      '  LIBRARY ExtProcDemo'
      '  WITH CONTEXT'
      
        '  PARAMETERS (CONTEXT, id OCINUMBER, file_name STRING, file_date' +
        ' OCIDATETIME,'
      '              file_text OCILOBLOCATOR);'
      '/')
    Debug = True
    Session = OraSession
    Left = 408
    Top = 136
    MacroData = <
      item
        Name = 'Dll'
      end>
  end
  object sqDrop: TOraScript
    SQL.Strings = (
      'DROP PROCEDURE add_file;'
      ''
      'DROP LIBRARY ExtProcDemo;'
      ''
      'DROP TABLE odac_file_list;')
    Debug = True
    Session = OraSession
    Left = 440
    Top = 136
  end
end