RADSeatle,
Кстати да вот буквально на днях в очередной раз бились с этой проблемой как раз FibPlus . . удалось исправить ситуацию поправив
одну строчку в Fib.pas а именно добавили конвертирование сообщение из UTF8 в процедуру
1.
procedure IBError(ClientLibrary:IIbClientLibrary;Sender:TObject);
решение конечно костыльное так как внутри процедуры не удалось проверить charset базы, но меня устраивает. Да может и допилим в дальнейшем
полная процедура может кому сгодится
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
procedure IBError(ClientLibrary:IIbClientLibrary;Sender:TObject);
var
sqlcode: Long;
local_buffer: array[0..FIBHugeLocalBufferLength - 1] of AnsiChar;
vIBMessage:string;
vSQLMessage:string;
status_vector: PISC_STATUS;
IBErrorMessages: TIBErrorMessages;
vEFIBInterBaseError : EFIBInterBaseError ;
vRaiseExcept :boolean;
tmpStr :Ansistring;
L:integer;
begin
(*
* Initialize the working user message.
* Get a local reference to the status vector.
* Get a local copy of the IBErrorMessages options.
* Get the SQL error code.
*)
status_vector := StatusVector;
IBErrorMessages := GetIBErrorMessages;
sqlcode := ClientLibrary.isc_sqlcode(status_vector);
vIBMessage:='';
vSQLMessage:='';
(*
* Maybe show the SQL Code
*)
(*
* Maybe show the SQL Error message
*)
if (ShowSQLMessage in IBErrorMessages) then
begin
ClientLibrary.isc_sql_interprete(sqlcode, local_buffer, FIBBigLocalBufferLength);
vSQLMessage:=string(local_buffer);
vSQLMessage := ReplaceStr(vSQLMessage, '\n', '');
if Length(vSQLMessage)>0 then
begin
if (vSQLMessage[1] >= 'a') and (vSQLMessage[1] <= 'z') then Dec(vSQLMessage[1], 32);
if (vSQLMessage[Length(vSQLMessage)] <> '.') then vSQLMessage:=vSQLMessage+'.'+CLRF;
end;
end;
(*
* Maybe show the interbase error messages
*)
if (ShowIBMessage in IBErrorMessages) then
begin
vIBMessage:='';
L:= ClientLibrary.fb_Interpret(local_buffer, FIBHugeLocalBufferLength,@status_vector);
while (L> 0) do
begin
SetLength(tmpStr,L);
Move(local_buffer[0],tmpStr[1],L);
if Length(tmpStr)>0 then
begin
if (tmpStr[1] >= 'a') and (tmpStr[1] <= 'z') then
Dec(tmpStr[1],32);
vIBMessage:=vIBMessage+tmpStr;
if (vIBMessage[Length(vIBMessage)] <> '.') then
vIBMessage := vIBMessage + '.';
vIBMessage := vIBMessage + CRLF;
end;
L:= ClientLibrary.fb_Interpret(local_buffer, FIBHugeLocalBufferLength,@status_vector);
end;
end;
(*
* Finally raise the exception
*)
vRaiseExcept:=true;
//костыль для вывода Exceptions в UTF8 для FB 3
if (ClientLibrary.ClientMinorVersion=3) then
vEFIBInterBaseError:=EFIBInterBaseError.CreateEx(sqlcode,UTF8toWideString(vIBMessage),UTF8toWideString(vSQLMessage),'',Sender)
else
vEFIBInterBaseError:=EFIBInterBaseError.CreateEx(sqlcode,vIBMessage,vSQLMessage,'',Sender); // '' by IMS
try
if ErrorHandlerRegistered then
IBErrorHandler.DoOnErrorEvent(Sender,vEFIBInterBaseError,vRaiseExcept);
except
vEFIBInterBaseError.Free;
raise;
end;
if vRaiseExcept then
raise vEFIBInterBaseError
else
vEFIBInterBaseError.Free;
end;
