--- ibx/trunk/fbintf/client/2.5/FB25Array.pas	2017/03/13 09:51:56	59
+++ ibx/trunk/fbintf/client/2.5/FB25Array.pas	2017/03/27 15:21:02	60
@@ -122,7 +122,7 @@ begin
         else
         begin
           FCodePage := CP_NONE;
-          FirebirdClientAPI.CharSetID2CodePage(FCharSetID,FCodePage);
+          FAttachment.CharSetID2CodePage(FCharSetID,FCodePage);
         end;
       end;
     end;
@@ -131,7 +131,7 @@ begin
       (FCharSetID = 0) then {This really shouldn't be necessary - but it is :(}
   with aAttachment as TFBAttachment do
   begin
-    if HasDefaultCharSet  and FirebirdClientAPI.CharSetWidth(CharSetID,CharWidth) then
+    if HasDefaultCharSet  and FAttachment.CharSetWidth(CharSetID,CharWidth) then
       FArrayDesc.array_desc_length := FArrayDesc.array_desc_length * CharWidth;
   end;
 end;