[interbase] transferer un champ blob en par prog

Version imprimable

13/02/2004, 15h34
Harry

[interbase] transferer un champ blob en par prog

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:

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?
16/02/2004, 10h36
Harry

Personne n'utilise la bdd pour ses photos? :?
23/02/2004, 15h05
alexmorel

Si moi

donne moi le code complet que tu utilise

et je pourrai t'aider
26/02/2004, 10h08
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.
26/02/2004, 10h39
Barbibulle
AsVariant devrait en effet fonctionner...

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

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...