Выполняем функцию 1:
TIBOutputRawFile *f;
f = new TIBOutputRawFile();
f->Filename = "s.raw";
trMain->StartTransaction();
qryMain->SQL->Text = "select * from table1";
qryMain->BatchOutput(f);
trMain->Commit();
delete f;

Функция 2:
TIBInputRawFile *f;
f = new TIBInputRawFile();
f->Filename = "s.raw";
trMain->StartTransaction();
qryMain->BatchInput(f);
qryMain->SQL->Text = "execute procedure Load(:P1, :P2, :P3, :P4, :P5)";
trMain->Commit();
delete f;

Текст ХП:
CREATE PROCEDURE Load (
FACID BIGINT,
NAME VARCHAR(5),
DES VARCHAR(50),
FORVIP CHAR(1),
FORGOLD CHAR(1))
AS
DECLARE VARIABLE S BIGINT;
begin
select facID from Table1 where facID = :FACID INTO :s;
if (s is null) then
INSERT INTO Table1(FACID, NAME, DES, FORVIP, FORGOLD) VALUES (:FACID, :NAME, :DES, :FORVIP, :FORGOLD);
else
UPDATE Table1
SET NAME = :NAME,
DES = :DES,
FORVIP = :FORVIP,
FORGOLD = :FORGOLD
WHERE (FACID = :FACID);
suspend;
end

Если просто выполнить ХП никаких проблем не возникает. При выполнении функции 2, по всей видимости не правильно передаются параметры и ХП работает в итоге не верно. Если в ХП необходимо передать BLOB параметр, то вообще при выполнении функции 2 возникает ошибка Stream Read Error.

Вопрос состоит в том как выполнить указанную ХП используя BatchInput? Может у меня ХП не правильно написанна?

BiG

Blob`а именно в этом примере и нет. Я сказал, что ЕСЛИ необходимо передать BLOB параметр, то при выполнении функции 2 возникает ошибка Stream Read Error.
BiG

Ну... На здоровье.

BiG