Discussion :

[Harry]

Bonjour,

J'essaye de transferer le contenu d'un champ blob.
Ce champ contient une photo au format JPG et est de type '0' (data).
J'ai essayé ceci, pas d'erreurs mais le champ est vide à l'arrivé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dm2.Ibien018BI018PHO1.AsVariant := dm2.bien018INTERAGBI018PHO1.AsVariant;

Vous avez une idée de comment je peux directement transferer les données des champs blob d'une table à une autre?

[Harry]

Personne n'utilise la bdd pour ses photos?

[alexmorel]

donne moi le code complet que tu utilise

et je pourrai t'aider

[Harry]

Ul s'agit de la copie d'enregistrements d'une table à une autre, mon premier exemple résume assez bien la chose. Le principe c'est que je fais un insert sur la table cible puis je fais 'TableCible.Champ1.AsVariant := TableSource.Champ1.AsVariant' avec tous les champs à transférer. et au final je fais un post sur la table cible pour valider.

(On peu aussi utiliser fieldbyname pour faire une boucle)

Cette technique marche pour tous types de champs sauf les champs blob contenant du binaire (auquels on ne peut pas faire de 'AsString' et 'AsVariant' ne donne rien).
Pour mes photos j'ai du les transférer temporairement sur le disque dur et les recharger (avec SaveToFile et LoadFromFile) dans le champ de la table cible... c un peu lourd mais ca marche.

[Barbibulle]

AsVariant devrait en effet fonctionner...

Mais moi j'aurai plutot essayé ceci pour les fields de type blob :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
MS:TMemoryStream;
begin
  MS :=TMemoryStream.Create;
  try
    dm2.Ibien018BI018PHO1.SaveToStream(MS);
    dm2.bien018INTERAGBI018PHO1.LoadFromStream(MS);
  finally
    MS.Free;
  end;
end;

En fait plutot que de sauver dans un fichier SaveToFile fait un SaveToStream et idem pour le LoadFromFile, utilise le LoadFromStream, ça sera bien plus performant...