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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
//cette fonction est appelée pour tous les retours de programme provenant des machines CN
function TSandraSrvMachine.TraitementFichier_Retour_Programme(
LeContenuDuFichier, ReferenceSandra: string): boolean;
var
LeNomDuProgramme,NomProgDos:string;
Prog:TProgCN;
begin
Result:=false;
addMessage(Sandra_DEMANDE_RECEPTION,sstr_receptionRetour+ReferenceSandra);
LeNomDuProgramme:= MachineCn.getCheminCompletProgramSandraRetour(ReferenceSandra);
if LeNomDuProgramme='' then begin
addMessage(Sandra_MESSAGE,format(sstr_EchecEneteteSandraNonTrouve,[ReferenceSandra]));
envoyerMessage(format(sstr_EchecEneteteSandraNonTrouve,[ReferenceSandra]));
MajFlagErreur(format(sstr_EchecEneteteSandraNonTrouve,[ReferenceSandra]));
exit ;
end ;
NomProgDos:=ExtractFileName(LeNomDuProgramme);
PROG:=TProgCN.create(ReferenceSandra,MachineCn.CAT_ID);
remplace_string (LeContenuDuFichier,#0,'');
if EnregistrementProgrammeCorrecteurRetour(
NomProgDos,LeNomDuProgramme,LeContenuDuFichier,'P',MachineCn,PROG
)then begin
addMessage(Sandra_MESSAGE,sstr_EnregistrementOK+LeNomDuProgramme+' dos '+nomprogdos);
//partie qui supprime les nulls
remplace_string (LeContenuDuFichier,#0,'');
if EnregistrementProgrammeCorrecteurRetour(
NomProgDos,LeNomDuProgramme,LeContenuDuFichier,'P',MachineCn,PROG
)
//detail procedure enregistrement fichier
function EnregistrementProgrammeCorrecteurRetour(NomFichier,
CheminCompletFichier,
ContenuFichier,TypeProgCorr:string;
Machine:TMachineCn;
Prog:TProgCN
):boolean;
var
PrgMac:TPRGMAC;
LeFichier:TFileStream;
nb:Longint;
cpyContenuFichier:string;
begin
Result:=false;
if not assigned(machine) then exit;
if not assigned(prog) then exit;
if NomFichier='' then exit;
if CheminCompletFichier='' then exit;
if ContenuFichier='' then exit;
try
if (Machine.estComparaisonValidationAutomatiqueRetourActiver) and (TypeProgCorr='P') then begin
if Machine.isProgrammeRetourIdentiques(ContenuFichier, Prog.prg_nom) then begin
Prog.PRG_COMMENT := 'IDEM' ;
result := false ;
exit ;
end ;
end ;
except
end;
//enregistrement du fichier
LeFichier:=TFileStream.Create(CheminCompletFichier,fmcreate or fmOpenReadWrite );
supprimerCarNullDebutEtFinPGM(ContenuFichier); //wn040209
nb:=LeFichier.write((@contenufichier[1])^,length(contenufichier));
LeFichier.free;
//detail de la procedure remplace string
procedure remplace_string(var s : string ; str_anc, str_nouv: string);
var pos_ : integer;
begin
if str_anc=str_nouv then exit ;
pos_ := pos ( str_anc , s ) ;
while pos_ > 0 do begin
s := copy (s,1,pos_-1)+str_nouv + copy (s,pos_+length(str_anc),length (s));
pos_ := pos ( str_anc , s ) ;
end ;
end;
//detail procedure suppression de nulls au debut et en fin de programme
Procedure SupprimerCarNullDebutEtFinPGM(var lePGM:string);
var
i,nbNull:integer;
suite:boolean;
cpyStr:string;
begin
//suppression des null en debut de PGM
i:=1;
nbNull:=0;
suite:=true;
while suite and (i<Length(lePGM)) do begin
suite:=true;
if lePGM[i]=#0 then begin
inc(i);
inc(nbnull);
end else begin
suite:=false;
end;
end;
if nbNull>0 then begin
lePGM:=copy(lePGM,i,length(lePGM));
end;
//suppression des null en fin de PGM
i:=length(lePGM);
nbNull:=0;
suite:=true;
while suite and (i>0) do begin
suite:=true;
if lePGM[i]=#0 then begin
dec(i);
inc(nbnull);
end else begin
suite:=false;
end;
end;
if nbNull>0 then begin
lePGM:=copy(lePGM,1,length(lePGM)-nbNull);
end;
end; |
Thread ?Débordement de pile? et bloc de 32 nulls écrits dans un fichier
Répondre avec citation
alors??
),
en fait je n'ai plus trop le temps de m'en occuper j'ai 3 autres tres gros projets en ce moment
Partager