Erreur exitcode 217 lors de la conversion d'une image en tableau
Bonjour à tous!
Voilà mon problème est simple: après plusieurs tâtonnements j'ai réussi à trouver un bout de code pour convertir une image bmp en tableau.
Seulement voilà après avoir enlever les erreurs de compilation, le lancement du programme me conduit inexorablement à un message d'erreur:
"program {chemin}\essai2.exe exited with exitcode = 217"
voici le code source:
Code:
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
| program essai;
uses sysutils;
const lo=69;{longueur de l'image source en pixels}
la=107;{largeur de l'image source en pixels}
p=58;{pas de detection des droites}
p_rho=1;{pas de tolérance pour l'angle theta}
p_theta=1;{pas de tolérance pour la logueur rho}
type
image=array[1..lo,1..la] of integer;
var
Chemin : String;
s: string;
k1,k2 : Integer;
Fichier : Text;
Ligne : String;
im1 : image;
procedure Convertir(Chemin:string;t:image);
var Fichier:Text;
k,r,i,e:integer;
begin
Assign(Fichier,chemin);
reset(Fichier);
while not eof(Fichier) do
begin
readln(Fichier,Ligne);
readln(Fichier,Ligne);
readln(Fichier,Ligne);
readln(Fichier,Ligne);
for k := 1 to la do
begin
for r := 1 to lo do
begin
readln(Fichier,Ligne);
val(Ligne,i,e);
if i>0 then t[k,r]:=1;
end;
{/Rof}
end;
{/Rof}
end;
{/Elihw}
end;
begin
Convertir('C:\joli.bmp',im1);
for k1:=0 to lo do
begin
for k2:=0 to la do
begin
str(im1[k1,k2],s);
write(' '+s)
end;
writeln();
end;
readln();
end. |
Bien sûr je ne suis pas tenu d'utiliser ce bout de code alors si vous connaissez un moyen efficace et fonctionnel (en tous cas plus que celui-ci :D)de convertir une image en tableau je suis preneur!
Merci d'avance!
