Discussion :

[cincap]

Bonjour à toutes et à tous,

Je ne sais pas si c'est possible mais avec ce code dans une page au format html cela fonctionne comme si je filmais pourtant je n'affiche qu'une image.

J'aurai aimé pouvoir faire l'identique en Delphi 6 avec un TTimer mais malgré tous mes tests, je n'arrive qu'a obtenir une image saccadée.

Code JavaScript :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 <IMG src="http://192.168.1.83:88/snapshot.cgi?user=&pwd=&t=" name="vdp" width="790" height="495" border="5" id="refresh"></div>
 
<SCRIPT language="JavaScript" type="text/javascript"> 
 var t = 25 // Interval en Secondes
 image = "http://192.168.1.83:88/snapshot.cgi?user=&pwd=&t=" 
 function Start() { 
 tmp = new Date(); 
 tmp = "?"+tmp.getTime() 
 
document.getElementById("refresh").src = image+tmp
 setTimeout( Start, t*10)
 } 
 Start(); 
 </SCRIPT>

Si cela est possible merci d'avance,

@+,

cincap

[Paul TOTH]

a priori il suffit de charger l'URL http://192.168.1.83:88/snapshot.cgi?user=&pwd= toutes les 250ms, une webcam je suppose ?

[Invité]

Et si tu ouvres la page simplement dans un TWebBrowser ?

Sinon un exemple du getElementById en Delphi :

• http://delphidabbler.com/tips/56

[cincap]

Bonjour à toutes et à tous,

@ Paul TOTH et @ retwas, merci pour votre réponse.

une webcam je suppose ?

Et non cher ami, c'est un videoparlophone Wifi (type Konx), j'affiche l'image car impossible d'afficher le flux (je ne connais pas la commande cgi) et avec le fichier en html, c'est comme si j'affichais le flux cela fonctionne en temps réel.

Avec le TTimer régler à value 1000 cela donne ceci comme code mais l'image et légèrement saccadée :

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
 
procedure TFmonitor1.Timer1Timer(Sender: TObject);
begin
    Mystreamt.clear ;
    Try
      IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows 
 
NT 6.0; SLCC1';
 
      IdHTTP1.Get('http://' +Edurl.Text+ ':88/snapshot.cgi?user='+Eduser.text
 
+'&pwd='+Edpass.Text+'',Mystreamt);
 
    except
      //ShowMessage('Fichier indisponible');
      Exit;
    End;
    Mystreamt.Seek(0, soFromBeginning);  { on rembobine le stream }
 
    Try
 
  jpg.LoadFromStream(MyStreamt);
 
  Image1.Picture.Assign(jpg);
    Finally 
 
  End;
 
end;

Voila,

@+,

cincap

[Invité]

Règle le TTimer sur 250 au lieu de 1000, comme sur le fichier JavaScript.

[Paul TOTH]

Règle le TTimer sur 250 au lieu de 1000, comme sur le fichier JavaScript.

pour ce genre de chose on peux même lire les images en boucle dans un Thread et les afficher dans un TImage en Synchronize, ça donne le meilleur taux de rafraîchissement possible (à réduire éventuellement par un Sleep() dans le Thread si le FPS est trop important ou que la CPU monte trop haut).