Discussion :

[frantzgac]

Bonjour

Je souhaite introduire des images dans un logiciel de généalogie écrit en Delphi. Pour le moment je me sers de TTreeView
On m'a conseillé Graphviz mais pour ce que j'en ai compris cet outil fonctionne en ligne de commande.
J'ai bien repéré le tuto https://cyberzoide.developpez.com/graphviz/ mais il fait allusion à un GUI qui ne semble plus distribué dans les versions actuelles et n'aborde pas l'inclusion de Graphicviz dans une appli fenêtrée.

Donc pour l'utiliser dans une appli interactive il faut générer des commandes contenant un fichier cible, puis ouvrir ce fichier dans un TImage par exemple ?

[SergioMaster]

Bonjour,
j'ai eu la curiosité de regarder, pas le tuto pointé mais directement à la source, le projet est toujours bien vivant.

Bon courage par contre pour comprendre les diverses API des bibliothèques C proposées , d'un autre côté il me semble que la partie Phyton pourrait faire le job (comme Python4Delphi existe pour les versions modernes de Delphi cela pourrait être une piste plus facile à emprunter) mais bon avec D7 je n'y crois pas trop

Reste toutefois le problèmes des données

[papyvore]

salut vas lire ça https://kylecordes.com/2003/graphviz-delphi j'étais parti de cette url pour faire des essais

[SergioMaster]

@papivore, là ça passe par un browser (même si ça date de 22 ans !) l'auteur créé d'abord un GIF (ce qui pour des questions de droits n'est plus très recommandé)

[papyvore]

@papivore, là ça passe par un browser (même si ça date de 22 ans !) l'auteur créé d'abord un GIF (ce qui pour des questions de droits n'est plus très recommandé)

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
procedure TForm4.RunGraphViz(Sender: TObject);
var
  gv: TGraphViz;
begin
  gv := TGraphViz.Create();
  try
    gv.Source.Assign(Memo1.Lines);
    gv.Modes := [gmOutputPNG];
   if gv.Execute then
     OutputImg.Picture.Graphic := gv.Png
   else
     MessageDlg('Erreur dans gv.Execute', mtWarning, [mbOK], 0);
   // OutputImg.Picture.Assign(gv.Png);
  finally
    gv.Free;
  end;
end;

il crée un png j'ai pas compris le gif ?? et on met ça dans un timage .à voir aussi https://docwiki.embarcadero.com/RADS...elphi_Compiler

[SergioMaster]

marrant, moi j'ai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TExampleForm.DrawGraphForData(Data: string);
var
Dot: IDot;
Image: IBinaryImage;
ImageFileName: string;
begin
ImageFileName := 'c:image.gif';
Dot := CoDOT.Create;
Image := Dot.ToGIF(Data);
Image.Save(ImageFileName);
WebBrowser1.Navigate('file:///C:/image.gif');
end;

d'où le GIF

[frantzgac]

Merci pour ces pistes mais où sont définis TGraphviz, IDot, coDot ... ?

[ALWEBER]

J'utilise une petite base SQLLite avec un champ BLOB Image