afbeelding veranderen in DBImage
Als ik al een afbeelding in DBimage heb staan en ik wil daar een andere afbeelding voor in de plaatst, zie ik dat de nieuwe over de oude gaat. Gezocht met google af gaf mij aan om picture := nil toe te voegen.
Delphi Code:
procedure tPokemon.FotoToBlobfield(aDBImage: TDBImage);
var BlobField: TBlobField;
begin
with TOpenPictureDialog.Create(nil) do
begin
try
if Execute then
begin
if aDBImage.Picture <> nil then
aDBImage.Picture := nil;
if fCurrentdataset.State in [dsBrowse] then
fCurrentdataset.Edit;
BlobField := fCurrentdataset.FieldByName('afbeelding') as TBlobField;
BlobField.LoadFromFile(FileName);
end;
finally
Free;
end;
end;
end;
Dat werkt niet. Ook niet als ik de ik de if aDBImage.Picture regel weglaat. Iemand suggesties om DBImage leeg te maken?