Aus einer SQL- Datenbank ein Binärfeld auslesen

[FranzKogler]

Hallo,

ich versuche, mit Delphi ein Binärfeld aus einem SQL- Server auszulesen.
Leider bekomme ich immer eine Fehler bei der Typumwandlung.

Beim Feld handelt es sich um ein BYTE- Feld mit der Größe 50.

Hat jemand einen Lösungsansatz für mich ?

var Buffer: array of Byte;
Buffer:=rstTable.Fields['ManagerPassword'];

funktioniert leider nicht.

Gruß Franz

[Bernhard Geyer]

Such mal nach Beispielen die das gewünschte als BLOB-Feld auslesen.

[FranzKogler]

kennt jemand einen anderen Ansatz ?

[alzaimar]

Delphi-Quellcode:

TBlobField(MyTable.FieldByName('MyField')).SaveToStream (MyStream)

Bei persistenten Feldern (MyTableMyField ist ja bereits ein TBlobField)

Delphi-Quellcode:

MyTableMyField.SaveToStream (MyStream)

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Franz.

Dein Versuch mit dem Array of Byte war gar nicht so schlecht:

Delphi-Quellcode:

function GetVarBytes(f: TField; var bda: TByteDynArray): Boolean;
begin
  Result := f.DataType = ftVarBytes;
  if Result then
    DynArrayFromVariant(Pointer(bda), f.Value, TypeInfo(TByteDynArray));
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  bda: TByteDynArray;
begin
  with ADOTable do
    if GetVarBytes(FieldByName('varbin'), bda)
      then ShowMessage(IntToStr(Length(bda)))
      else ShowMessage('?');
end;

Wenn keine NUL-Character drin vorkommen, dann kannst du den Feldinhalt auch einfach über die Feld-Methode AsString() bearbeiten.

Freundliche Grüße vom marabu

[FranzKogler]

Vielen Dank an marabu.
Der Ansatz
DynArrayFromVariant(Pointer(bda), f.Value, TypeInfo(TByteDynArray));
bringt die Lösung.