Discussion :

[JakeGrafton]

Une bête erreur de ma part, un bout d'ancien code qui restait provoquait encore et toujours la même erreur...
Bref, avec l'utilisation des métafiles, j'arrive a créer des fichiers .emf d'une taille supérieure à 10.000*10.000 pixels, exactement ce que je voulais, et le tout pour quelques Mo de données .
Comme précisé dans le message ci dessus, c'est l'utilisation de l'exemple situé ici qui m'a permis de résoudre le problème.

Voila le code pour ceux que ça intéresseraient : :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
procedure TForm1.ExportAsMetaFile(FileName: string; Out_Canvas: TCanvas; FileFormat: boolean);
var
  Meta: TMetaFile;
  MetaCanvas: TMetaFileCanvas;
  i: integer;
begin
  Meta := TMetaFile.create;
  try
    Meta.Enhanced := FileFormat; // True pour ecrire un EMF format, False ppour un WMF
 
    Meta.Width := MapWidth ; //Tailles du Métafichier
    Meta.Height := MapHeight ;
 
    MetaCanvas := TMetaFileCanvas.Create(Meta,canvas.handle);
 
      try
        with metaCanvas do begin
          pen.Style := psSolid;        //Paramètres du tracé
          pen.width := 1;
          pen.mode  := pmcopy;
          brush.Style := bsClear;
          pen.Color := clBlack;
          For i:=1 to (MapWidth) do
              Begin
              Draw(Matrice_liens[i,0]*coef, Matrice_liens[i,1]*coef,Site);
              Draw(Matrice_liens[Matrice_resultats[i],0]*coef, Matrice_liens[Matrice_resultats[i],1]*coef, Concentrateur);
              PenPos := Point(Matrice_liens[i,0]*coef, Matrice_liens[i,1]*coef);
              LineTo(Matrice_liens[Matrice_resultats[i],0]*coef,Matrice_liens[Matrice_resultats[i],1]*coef);
              end;
        end;
      finally
        MetaCanvas.Free;
      end;
 
      Meta.saveToFile(Filename); // Sauve le dessin sous form d'un WMF ou d'un EMF (meta fichier de windows WMF est un format plus récent)
     // Le choix d'un WMF ou d'un EMF dépend de FileFormat (variable de la procédure)
  finally
    Meta.free;
  end;
    // Out_Canvas.Draw(0, 0, AMetaFile);
    // Recopie le contenue du metafile dans un TCanvas. Pour une impression (Canvas du TPrinter) une previsualisation ou le
    // Desin d'un composant par exemple
end;

Un grand merci à tous pour votre aide, pour vos idées et vos conseils.
Continuez comme ça !

[Mac LAK]

J'adore les topics qui se terminent aussi bien : d'un truc insurmontable sentant le gaz (et le sapin) à 10 bornes, on passe à une solution élégante, simple et répondant à 100% du problème ! ;-)

[JakeGrafton]

^^ c'est assez plaisant en effet ^^
Encore merci à tous