fix: binary result values displayed as 000...

ansgarbecker · ansgarbecker · commit 4322372c3008 · 2025-11-30T15:16:34.000+01:00
Refs #2276
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -8941,22 +8941,31 @@ function TDBQuery.GetColBinData(Column: Integer; var baData: TBytes): Boolean;
 function TMySQLQuery.GetColBinData(Column: Integer; var baData: TBytes): Boolean;
 var
   AnsiStr: AnsiString;
+  Len: Integer;
 begin
   Result := False;
 
   if ColumnExists(Column) then 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;
