Habe jetzt herausgefunden wo der Fehler passiert nur leider weiß ich nichts damit anzufangen:
Wenn das Feld Icon kommt soll er in das Grid ein Bild zeichnen.
Code:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TDBGrid(Sender), Column.Field do
If (Fieldname='Icon') then
Draw_CellIcon(Canvas, Rect, Column.Field)
else
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Hier passiert die Umwandlung.
Code:
procedure TForm1.Draw_CellIcon(cnv: TCanvas; Rect: TRect; Feld: TField);
var Bmp: TBitmap;
begin
Bmp:= TBitmap.Create;
Bmp.LoadFromstream(TBlobStream.Create(TBlobField(Feld), bmRead));
Cnv.Draw(Rect.left, Rect.top, Bmp);
Bmp.Free;
end;
Hier kommt der Fehler "Ungültige Typumwandlung" in der Zeile Bmp.LoadFromstream(TBlobStream.Create(TBlobField(F eld), bmRead));
Nur leider Weiß ich nicht was da geändert werden soll. Bei der
Paradox-Version des Progs geht es, bei der
MySQL-Version nicht.