opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

fix: binary result values displayed as 000...

Browse Source 
Refs #2276
This commit is contained in:
Ansgar Becker
2025-11-30 15:16:34 +01:00
parent 1c9321c825
commit 4322372c30
1 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
source/dbconnection.pas
View File

@@ -8941,6 +8941,7 @@ end;
function TMySQLQuery.GetColBinData(Column: Integer; var baData: TBytes): Boolean;
var
AnsiStr: AnsiString;
Len: Integer;
begin
Result := False;
@@ -8948,15 +8949,23 @@ begin
if FEditingPrepared and Assigned(FCurrentUpdateRow) then begin
// Row was edited and only valid in a TGridRow
AnsiStr := AnsiString(FCurrentUpdateRow[Column].NewText);
Len := Length(AnsiStr);
if Datatype(Column).Category in [dtcBinary, dtcSpatial] then begin
SetLength(baData, Len);
if Len > 0 then
Move(AnsiStr[1], baData[0], Len);
Result := True;
end;
end else begin
// The normal case: Fetch cell from mysql result
SetString(AnsiStr, FCurrentRow[Column], FColumnLengths[Column]);
end;
if Datatype(Column).Category in [dtcBinary, dtcSpatial] then begin
SetLength(baData, Length(AnsiStr));
//CopyMemory(baData, @AnsiStr[1], Length(AnsiStr));
Result := True;
Len := FColumnLengths[Column];
SetString(AnsiStr, FCurrentRow[Column], Len);
if Datatype(Column).Category in [dtcBinary, dtcSpatial] then begin
SetLength(baData, Len);
if Len > 0 then
Move(FCurrentRow[Column]^, baData[0], Len);
Result := True;
end;
end;
end;
end;