paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:19:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Dokkie8844. Fix blob access in Firebird 4.0, fixes issue #40506

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-30 22:47:27 +01:00
parent 370883c86a
commit f18d1deb08
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -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;