Erreur de violation d'accès à delphi lors de la sauvegarde/du chargement de l'image vers/depuis le flux

Question

Je développe une application dans Delphi. J'essaie d'extraire une image qui est enregistrée dans la base de données, enregistrez-le à TMemoryStream et charger la même image au TImage contrôle placé sur un autre formulaire qui va remplir dynamiquement. Je reçois erreur de violation d'accès lorsque j'essaie de charger l'image du flux au contrôle d'image placé sur le formulaire.

Description de l'erreur est la suivante

violation d'accès à 00B548C d'adresse dans le module abc.exe. Lire d'adresse 0000000

Mon extrait de code est comme suit

UniConnection1.Connected := true; 
UniQuery2.SQL.Text := 'Select image from userplays where id = :id'; 
UniQuery2.Params.ParamByName('id').Value := idpub1; 
UniQuery2.Open; 
if UniQuery2.FieldByName('image').AsString <> '' then 

begin  
    try 
    Stream121 := TMemoryStream.Create; 
    TBlobField(UniQuery2.FieldByName('image')).SaveToStream(Stream121); 
    Stream121.Position := 0; 
     if Assigned(Stream121) then 
     begin 
     Image1.Picture.Graphic.LoadFromStream(Stream121); 
     Image1.Update; 
     end; 

    finally 
     Stream121.Free; 
    end; 
end; 

Answer 1

TPicture n'est pas en mesure de déterminer le type de graphique dans le flux, donc vous devez le dire avant. Si vous avez seulement des images JPEG, vous pouvez simplement le coder en dur. Sinon, vous devez également stocker le format d'image dans la base de données.

var 
    graphic: TGraphic; 

Stream121.Position := 0; 
if Stream121.size > 0 then begin 
    graphic := TJPEGImage.Create; 
    try 
    graphic.LoadFromStream(Stream121); 
    Image1.Picture.Graphic := graphic; 
    finally 
    graphic.Free; 
    end; 
end; 

Answer 2

Vous faites référence à Graphic.LoadfromStream. Mais Graphic ne peut pas (probablement pas) exister. Vous pouvez enregistrer dans un fichier et utiliser Picture.LoadFromFile à la place (car cela créera le descendant TGraphic approprié) ou créer Picture.Graphic comme type approprié (par exemple TBitmap) en premier.

Picture.Graphic := TBitMap.Create; 

En l'état actuel de l'image n'a aucune idée de ce format graphique de vos données. Vous aurez besoin de le dire en quelque sorte.