MySQL Blob als longblob Bild speichern und auslesen

[hirsch]

Danke DeddyH. das klappt soweit.
Nun bekomme ich immer, nachdem ich gesucht habe, immer den Fehler"Ungültige Typenumwandlung".
Der Code sieht so aus:

Delphi-Quellcode:

procedure TAnzeige.BuHinzuClick(Sender: TObject);
var Bild : TPicture;
    BS: TBlobStream;
    jpg: TJPEGImage;
begin
  IDBild:=0;
  //HoleDatei;
  try
  BS := TBlobstream.create(Datamodule1.cds1.FieldByName( 'BlobBild' )AS TBlobField, bmWrite ); //<-Genau immer Hier
    with Datamodule1.cds1 do begin
      last;
      IDBild:=FieldByname('ID').AsInteger;
      edit;
      append;
      FieldByName('ID').AsInteger:=IDBild+1;
      fieldbyName('Datei').AsString:=Datei;
      Applyupdates(-1);
    end;
    jpg := TJPEGImage.Create;
    jpg.LoadFromStream(bs);
    Image1.Picture.Assign(jpg);
    LblAnz.Caption:='Bild: '+Datamodule1.cds1.FieldByName('Datei').AsString;
  finally
    BS.free;
  end;
end;