Discussion :

[francky23012301]

Salut à tous

VOila j'utilise la procedure suivante :

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
 
Procedure TForm1.Play(Cursor : longInt);
 Var
 i,SizeBegin,ImgSize: longInt;
 jpg: tjpegimage;
 begin
 FSS:=TFIleStream.Create(FichEd.text,fmOpenRead);
 MS:=TMemoryStream.create;
 jpg:= tjpegimage.Create;
 SizeBegin:=0;
 For i:=0 to Cursor do
 begin
 SizeBegin:=SizeBegin+StrToInt(InfoList.Strings[Cursor]);
 end;
 ImgSize:=StrToInt(InfoList.Strings[Cursor+1]);
 Try
 FSS.Position:=SizeBegin;
 MS.CopyFrom(FSS,ImgSize);
 MS.Seek(0,SoFromBeginning);
 jpg.LoadFromStream(MS);
 Visual.Picture.Bitmap.Assign(jpg);
 Finally
 jpg.free;
 FSS.Free;
 MS.Free;
 end;
 end;

InfoList est une stringList
Cursor est un integer.
Visual est un TImage.
Les streams sont déclarées comme des variables globales

La procedure ne plante pas. Sauf si j'utilise un Timer pour l'appeler. Je ne comprends pas pk. Si quelqu'un a une idée ??

Merci A+

[qi130]

La proc plante par le Timer.... c'est à dire ?

Le Timer est réglé sur combien ?

[francky23012301]

Salut

L'intervalle du timer n'intervient pas dans la mesure ou j'ai fais un test avc 50ms et un autre avec 2000ms et cela ne change rien.

Au niveau de l'erreur : l'apparition de la première image se passe normalement. C'est lors du second appel que le probleme a lieu. Il s'agit d'un probleme lié aux flux normalement. Mais je ne comprends pas pk dans la mesure ou je les libère

Merci

[Graffito]

Bonjour,

Si ce n'est pas le cas, mettre au début et à la fin de l'event timer :

Code :

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

1
2
3
4
5
6
 
begin
timer1.enabled:=false ;
...
timer1.enabled:=true ;
end ;

[francky23012301]

Re,

Jeveux bien mettre timer1.enabled:=false puis true mais je ne comprends pas ce que cela va changer

A+

[Graffito]

Jeveux bien mettre timer1.enabled:=false puis true mais je ne comprends pas ce que cela va changer

Ca évite les empilements d'événements et (à vérifier si encore vrai depuis tests Delphi 1) des executions simultanées de 2 events dans certains cas.

[edam]

pourqoi crée (les stream et le jpeg) et les détruire dans la meme procedure si elle sont globale
crée les dans oncréeat et les détrure dans ondestroy de la form

[cfalcot]

Bonjour,
Quelle est l'erreur exactement et sur quelle ligne si ca plante, stp.