UDF BLOB as parameter error [CORE1991]

[firebird-automations]

Submitted by: Klaus Mühlböck (1a-archiv)

Assigned to: @aafemt

DECLARE EXTERNAL FUNCTION FN_BLOBCAT
BLOB, BLOB
RETURNS BLOB
ENTRY_POINT 'BlobCat' MODULE_NAME 'mydll.dll';

IBQuery1.SQL.Text := 'select FN_BLOBCAT(:B1,:B2) from rdb$database';
IBQuery1.ParamByName('B1').asBlob := '12345';
IBQuery1.ParamByName('B2').asBlob := '67890';
IBQuery1.Open;

runtime error at Open: message length error (encountered @1, expected @2)

Commits: f81520e

[firebird-automations]

Commented by: @aafemt

This error is caused by RDB$FUNCTION_PARAMETERS.RDB$FIELD_LENGTH containing NULL.

Proposed path:

--- ddl.cpp Fri Sep 18 23:03:18 2009
+++ ddl.cpp.new Fri Sep 18 22:09:54 2009
@@ -6038,6 +6038,10 @@
}
statement->append_number(isc_dyn_fld_segment_length, field->fld_seg_length);
}
+ else
+ {
+ statement->append_number(isc_dyn_fld_length, sizeof(ISC_QUAD));
+ }
if (field->fld_sub_type == isc_blob_text) {
statement->append_number(isc_dyn_fld_character_set, field->fld_character_set_id);
statement->append_number(isc_dyn_fld_collation, field->fld_collation_id);

[firebird-automations]

Modified by: @aafemt

Version: 2.5 Beta 2 [ 10300 ]

Version: 2.5 Beta 1 [ 10251 ]

Version: 2.1.2 [ 10270 ]

Version: 2.0.5 [ 10222 ]

Version: 2.1.1 [ 10223 ]

Version: 2.5 Alpha 1 [ 10224 ]

Version: 2.0.4 [ 10211 ]

Version: 1.5.5 [ 10220 ]

Version: 2.0.3 [ 10200 ]

Version: 2.0.2 [ 10130 ]

Version: 2.0.1 [ 10090 ]

Version: 1.5.4 [ 10100 ]

Version: 2.0.0 [ 10091 ]

Component: Engine [ 10000 ]

[firebird-automations]

Modified by: @dyemanov

assignee: Dimitry Sibiryakov [ aafemt ]

[firebird-automations]

Modified by: @dyemanov

status: Open [ 1 ] => Resolved [ 5 ]

resolution: Fixed [ 1 ]

Fix Version: 2.5 RC1 [ 10362 ]

[firebird-automations]

Modified by: @pcisar

status: Resolved [ 5 ] => Closed [ 6 ]

[firebird-automations]

Modified by: @pavel-zotov

QA Status: No test