Datenfelder mit binären Daten werden in einem DBGrid ja nur als
(VarBytes) oder
(VARBYTES) angezeigt.
(je nachdem ob das Feld einen Inhalt hat oder nicht)
Dieses Verhalten lässt sich ändern, wenn man für die Felder einen Eventhandler für
OnGetText und
OnSetText bereitstellt.
Delphi-Quellcode:
procedure TForm1.BinaryFieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
if Assigned(Sender) then
begin
if DisplayText then
Text := '0x'+StrToHexString(Sender.AsString)
else
Text := StrToHexString(Sender.AsString);
end;
end;
procedure TForm1.BinaryFieldOnSetText(Sender: TField; const Text: String);
begin
if Assigned(Sender) then
Sender.AsString := HexStringToStr(Text);
end;
Nun muss man natürlich dafür sorgen, dass alle binären Felder mit diesem Eventhandler ausgestattet werden:
Delphi-Quellcode:
// neue Eventhandler zuweisen
procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
i : Integer;
begin
// Schleife über alle Felder; rückwärts ist schneller
for i := DataSet.FieldCount-1 downto 0 do
begin
if DataSet.Fields[i].DataType in [ftBytes, ftVarBytes] then
begin
DataSet.Fields[i].OnGetText := BinaryFieldOnGetText;
DataSet.Fields[i].OnSetText := BinaryFieldOnSetText;
end;
end;
end;
Die beiden Hilfsfunktionen
StrToHexString und
HexStringToStr findet man in der Code-Library:
http://www.delphipraxis.net/internal...ct.php?t=46356
[edit=Matze]Code formatiert. Mfg, Matze[/edit]