Саша, приветствую!
Есть вот такой код, который вызывает сабж:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
function ExecuteIBEScript(aScriptText: string; aIBEBlockProgress: TIBEBlockProgress = nil; aIBEHandleError: TIBEHandleError = nil): Boolean;
var
IBEHandle: THandle;
ESP: TExecuteScriptProc2;
begin
Result := False;
IBEBlockProgress := aIBEBlockProgress;
IBEHandleError := aIBEHandleError;
IBEHandle := LoadLibrary(cIBESCRIPT_DLL);
try
if IBEHandle > HINSTANCE_ERROR then
begin
ESP := GetProcAddress(IBEHandle, 'ExecScriptText2');
if @ESP <> nil then
ESP(PAnsiChar(AnsiString(aScriptText)), @HandleError, @BeforeExec, @AfterExec, @BlockProgress);
Result := True;
end;
finally
if IBEHandle > HINSTANCE_ERROR then
FreeLibrary(IBEHandle);
end;
end;
Ну а туда скармливается стандартный IBEBlock по сравнению баз:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
execute ibeblock as
begin
cbb = 'execute ibeblock (LogMessage variant)
as
begin
ibec_progress(LogMessage);
end';
SourceDB = ibec_CreateConnection(__ctInterBase,
'DBName="SERV1:DB_1"; ClientLib=fbclient.dll; User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3');
TargetDB = ibec_CreateConnection(__ctInterBase,
'DBName="SERV2:DB_2"; ClientLib=fbclient.dll; User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3');
try
ibec_CompareMetadata(SourceDB, TargetDB, 'd:\test.txt', 'ServerVersion=FB25; OmitDescriptions; IgnoreIBEObjects; DescriptionMode=COMMENT', cbb);
finally
ibec_CloseConnection(TargetDB);
ibec_CloseConnection(SourceDB);
end;
end;
Самописная программка которая автоматизирует создания скрипта для обновления меты баз. Т.к. сейчас усиленно готовимся к переходу на трешку в продакшене то и решили подтянуть и крайний IBEScript.dll версия от 27.10.2016. На версии IBEScript.dll от 25.02.2014 все выполняется нормально, а вот на сабжевой валится с ошибкой что connection shutdown.
Ну и хочется понять собственно почему на более новой версии валится с ошибкой и есть ли в новой версии dll-ки какие-то фишки в части поддержки FB30, а именно в плане ibec_CompareMetadata в режиме ServerVersion=FB30.
Спасибо.
