Discussion :

[g_gau]

bonjour a tous.

petite question d'un debutant en BD et pas beaucoup plus en delphi.
voila mon probleme, j'ai une BD de type paradox dans lequel je stock un image dans un champ graphique.
Si je pose un DBimage pas de probleme cela marche tres bien. mais la je voudrait l'afficher dans une Timage clasique.
j'ai chercher sur le FORUM et dans la FAQ. et j'en suis au code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
var
    data :^TTreeData;
    flux : TMemoryStream;
begin
data:=liste_fichier.GetNodeData(node);
if(data.chemin<>'') then
  begin
  table1.Filtered:=false;
  table1.Filter:='Chemin = '''+ data.chemin+'''';
  table1.Filtered:=true;
  if not table1.Eof then
    begin
    flux:=TMemoryStream.Create;
    Tblobfield(table1.Fields[champ_miniature]).SaveToStream(flux);
    flux.Position:=0;
    Image6.Picture.Bitmap.LoadFromStream(flux);
    end;
end;
end;

qui bien sur ne marche pas du tout sinon je ne serait pas la. Mais je doit avouer que je n'ai pas compris ce que j'ai ecrit (dans le sens ou je ne sait pas du tout comment marche un memorystream).

si quelqu'un a une idée?

Et j'utilise delphi7 si cela peut aider a resoudre mon probleme.

bonne soirée a tous.

[Just-Soft]

Salut;

regardes d'abord par là.

[g_gau]

j'etait tomber dessus en cherchant, c'est d'ailleur sur un des lien que j'ai trouver le Tmemorystream.
je vais jeter un coup d'oeil de nouveau, je comprendrait peut etre mieu cette fois.

merci.

[g_gau]

bonsoir a tous

donc je vais me repondre car je vient de trouver une solution qui marche.

Code :

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

1
2
 
    image6.picture.Assign(Tblobfield(table1.Fields[champ_miniature]));

Je ne sait pas si c'est la meilleur mais elle marche. En plus comme souvent elle parrait toute simple.

bye.

[ShaiLeTroll]

Sinon, il y a aussi le Composant TDBImage qui s'utilise avec un DataSource et un FieldName ...

Le Assign sinon fonctionne très bien, cela passe par l'interface IStreamPersist qui gère l'interaction entre le TPicture et le AssignTo du TBlobField ... c'est très mal documenté !

[g_gau]

Sinon, il y a aussi le Composant TDBImage qui s'utilise avec un DataSource et un FieldName ...

Le Assign sinon fonctionne très bien, cela passe par l'interface IStreamPersist qui gère l'interaction entre le TPicture et le AssignTo du TBlobField ... c'est très mal documenté !

pour le DBimage je suis d'accord mais je voulais récupérer l'image car elle peut ne plus être en rapport avec l'élément pointé de la table.

merci encore.