From f18d1deb083c56d8dadeb8e43f77c288e96bcfd0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 30 Jan 2025 22:47:27 +0100
Subject: [PATCH] * Fix from Dokkie8844. Fix blob access in Firebird 4.0, fixes
 issue #40506

---
 packages/fcl-db/src/sqldb/interbase/ibconnection.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
index b3b77f6e36..a43aeaea5d 100644
--- a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
+++ b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
@@ -1063,11 +1063,10 @@ var
   function GetBlobCharset(TableName,ColumnName: Pointer): smallint;
   var TransactionHandle: pointer;
       BlobDesc: TISC_BLOB_DESC;
-      Global: array[0..31] of AnsiChar;
   begin
     TransactionHandle := TIBCursor(cursor).TransactionHandle;
     if isc_blob_lookup_desc(@FStatus[0], @FDatabaseHandle, @TransactionHandle,
-         TableName, ColumnName, @BlobDesc, @Global) <> 0 then
+         TableName, ColumnName, @BlobDesc, nil) <> 0 then
       CheckError('Blob Charset', FStatus);
     Result := BlobDesc.blob_desc_charset;
   end;