Devart Forums

Hi,

I'm trying to grab parameters from a stored procedure package for the TORAStoredProc.

Function is named "ADD" ("PGK_ADDRESS.ADD" in StoredProcName)

An exception ORA-20004 is raised inside the Delphi 2007 IDE.

----------------------------------
[061BD542]{odac105.bpl } Oraclasses.TOCIConnection.OraError + $14A
[061CCE88]{odac105.bpl } Oraclasses.TOCICommand.InitProcParams7 + $244
[061CEE16]{odac105.bpl } Oraclasses.TOCICommand.InitProcParams + $66
[061FE7BC]{odac105.bpl } Ora.TOraSQL.InternalCreateProcCall + $50
[061FE99B]{odac105.bpl } Ora.TOraSQL.InternalCreateProcCall + $22F
[061FE746]{odac105.bpl } Ora.TOraSQL.CreateProcCall + $32
[06112E2C]{dclodac105.bpl} Oraspcallframe.TOraSPCallFrame.CreateProcCall + $98
[05FF024B]{dcldac105.bpl} Daspcallframe.TDASPCallFrame.cbStoredProcNameSPExit + $123
[20141A69]{vcl100.bpl } Controls.TWinControl.DoExit (Line 7921, "Controls.pas" + 1) + $14
[20142605]{vcl100.bpl } Controls.TWinControl.CMExit (Line 8360, "Controls.pas" + 1) + $6
[2013C527]{vcl100.bpl } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
[201406A7]{vcl100.bpl } Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
[20D1972A]{designide100.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[2003203C]{rtl100.bpl } Classes.TThreadList.UnlockList (Line 3359, "common\Classes.pas" + 0) + $4
[200EBAA8]{vcl100.bpl } Graphics.FreeMemoryContexts (Line 5060, "Graphics.pas" + 12) + $5
[2013FDD0]{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
[2013FDE5]{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7076, "Controls.pas" + 6) + $0
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + + $0
[201406A7]{vcl100.bpl } Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
[20D1972A]{designide100.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[200FAD46]{vcl100.bpl } StdCtrls.TCustomCombo.WndProc (Line 2999, "StdCtrls.pas" + 55) + $4
[200FC061]{vcl100.bpl } StdCtrls.TCustomComboBox.WndProc (Line 3528, "StdCtrls.pas" + 10) + $4
[2013FDD0]{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + + $0
[201568E4]{vcl100.bpl } Forms.SendFocusMessage (Line 1683, "Forms.pas" + 2) + $9
[2015C28B]{vcl100.bpl } Forms.TCustomForm.SetFocusedControl (Line 4666, "Forms.pas" + 41) + $6
[2014030E]{vcl100.bpl } Controls.TWinControl.WndProc (Line 7211, "Controls.pas" + 18) + $7
[20D1972A]{designide100.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[200FC4B8]{vcl100.bpl } StdCtrls.TButtonControl.WndProc (Line 3684, "StdCtrls.pas" + 13) + $4
[2013FDD0]{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + + $0
[2015C3FD]{vcl100.bpl } Forms.TCustomForm.SetWindowFocus (Line 4713, "Forms.pas" + 10) + $8
[2015C04A]{vcl100.bpl } Forms.TCustomForm.SetActiveControl (Line 4590, "Forms.pas" + 10) + $B
[2015C0F1]{vcl100.bpl } Forms.TCustomForm.FocusControl (Line 4617, "Forms.pas" + 2) + $2
[20143276]{vcl100.bpl } Controls.TWinControl.SetFocus (Line 8877, "Controls.pas" + 3) + $2
[2014392F]{vcl100.bpl } Controls.TWinControl.SelectNext (Line 9150, "Controls.pas" + 3) + $8
[2015D752]{vcl100.bpl } Forms.TCustomForm.CMDialogKey (Line 5388, "Forms.pas" + 7) + $17
[2013C527]{vcl100.bpl } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
[201406A7]{vcl100.bpl } Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
[20159E7F]{vcl100.bpl } Forms.TCustomForm.WndProc (Line 3512, "Forms.pas" + 136) + $5
[200FC061]{vcl100.bpl } StdCtrls.TCustomComboBox.WndProc (Line 3528, "StdCtrls.pas" + 10) + $4
[2013C1B4]{vcl100.bpl } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C
[20142A9D]{vcl100.bpl } Controls.TWinControl.CNKeyDown (Line 8568, "Controls.pas" + 18) + $44
[2013C527]{vcl100.bpl } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
[201406A7]{vcl100.bpl } Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
[20D1972A]{designide100.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[200FAD46]{vcl100.bpl } StdCtrls.TCustomCombo.WndProc (Line 2999, "StdCtrls.pas" + 55) + $4
[200FC061]{vcl100.bpl } StdCtrls.TCustomComboBox.WndProc (Line 3528, "StdCtrls.pas" + 10) + $4
[2013FDD0]{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + + $0
[20162367]{vcl100.bpl } Forms.TApplication.IsKeyMsg (Line 8022, "Forms.pas" + 24) + $12
[201623DE]{vcl100.bpl } Forms.TApplication.IsHintMsg (Line 8040, "Forms.pas" + 3) + $2
[201625C5]{vcl100.bpl } Forms.TApplication.ProcessMessage (Line 8097, "Forms.pas" + 15) + $32
[2016262A]{vcl100.bpl } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2015E693]{vcl100.bpl } Forms.TCustomForm.ShowModal (Line 5822, "Forms.pas" + 29) + $5
[05FED06B]{dcldac105.bpl} Daqueryeditor.TDAQueryEditorForm.SetComponent + $17
[05FE835F]{dcldac105.bpl} Crdesign.ShowEditor + $83
[05FE866F]{dcldac105.bpl} Crdesign.TCRComponentEditor.ShowEditor + $2F
[05FE8AAF]{dcldac105.bpl} Crdesign.TCRComponentEditor.Edit + $B
[20D52341]{designide100.bpl} ComponentDesigner.TInternalItem.Edit (Line 7039, "ComponentDesigner.pas" + 1) + $F
[20D31578]{designide100.bpl} Designer.TDesigner.Edit (Line 965, "Designer.pas" + 0) + $4
[20D3377C]{designide100.bpl} Designer.TDesigner.MouseDown (Line 1659, "Designer.pas" + 45) + $6
[20D2FFBA]{designide100.bpl} Designer. + $0
[056B67E6]{vcldesigner100.bpl} VCLSurface.TComponentToolWindow.WndProc (Line 1324, "vclsurface.pas" + 16) + $32
[056B7196]{vcldesigner100.bpl} VCLSurface.TContainer.WndProc (Line 1624, "vclsurface.pas" + 39) + $6
[056B65D3]{vcldesigner100.bpl} VCLSurface.TDesignerToolWindow.MainWndProc (Line 1259, "vclsurface.pas" + 2) + $7
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + + $0
[20137642]{vcl100.bpl } Controls.FindControl (Line 2104, "Controls.pas" + 6) + $9
[201625F0]{vcl100.bpl } Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
[2016262A]{vcl100.bpl } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2016291F]{vcl100.bpl } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
[0042297A]{bds.exe } bds.bds (Line 195, "" + 7) + $7
------------------------------------------------------------------------------

Please specify the error message. Also provide the DDL to create PGK_ADDRESS.ADD procedure.

Plash wrote:Please specify the error message. Also provide the DDL to create PGK_ADDRESS.ADD procedure.

The error is "ORA-2004:" and nothing else

How to I know the DLL (Oracle 7.3)?

Provide a DDL (Data Definition Language) statement (not DLL). I mean SQL that I can execute to create the stored procedure (or provide just a text of the stored procedure from the package).

Also supply us the following information
- exact version of ODAC including build number (see Oracle | About ODAC in the Delphi menu);
- exact version of Oracle client and server. You can see it in the Info sheet of TOraSession Editor.
- whether you are connecting in Direct mode (Direct option of TOraSession is set to True).

Plash wrote:Provide a DDL (Data Definition Language) statement (not DLL).

DUH! Sorry. Here it goes:

PROCEDURE ADD (f1 IN NUMBER, f2 IN NUMBER) AS BEGIN INSERT INTO TableName (f1Name, f2Name) VALUES (f1,f2); END;

Plash wrote:exact version of ODAC including build number (see Oracle | About ODAC in the Delphi menu);

6.25.2.14 for D2007

Plash wrote:exact version of Oracle client and server. You can see it in the Info sheet of TOraSession Editor.

OCI: Version 7.3.4.2.0
Call style: v7
Oracle: Oracle7 Workgroup Server 7.3.4.4.0

Plash wrote:whether you are connecting in Direct mode (Direct option of TOraSession is set to True).

Options.Direct = FALSE