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 ?

[retwas]

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

[retwas]

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).

[cincap]

Merci à vous deux.

@ retwas,

Et si tu ouvres la page simplement dans un TWebBrowser ?

j'avais oublié de te confirmer que j'avais aussi réalisé une application en Delphi qui lisait mon fichier en html et forcément pas de problème de lecture mais j'utilisais Vlc pour mes 2 caméras Wifi H264 mais avec le vidéoparlophone c'était aussi saccadé.

Par contre, l'autre petite application aussi en Delphi6, j'ai déjà réglé le timer en 250ms et il y avait une nette différence par rapport au fichier en html d'où mon post.

@ Paul TOTH merci de ta suggestion aurais tu un exemple ?

@+,

cincap

[Paul TOTH]

vite fait, voici ce que ça pourrait donner

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
45
46
47
 
type
  TMyThread = class(TThread)
    procedure Execute; override;
  end;
 
procedure TMyThread.Execute;
begin
  repeat
    Fmonitor1.LoadImage;
    Synchronize(FMonitor1.ShowImage);
    Sleep(0);
  until Terminated;
end;
 
procedure TFmonitor1.LoadImage;
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;
end;
 
procedure TFMonitor1.ShowImage;
begin
    Mystreamt.Seek(0, soFromBeginning);  { on rembobine le stream }
 
    Try
 
  jpg.LoadFromStream(MyStreamt);
 
  Image1.Picture.Assign(jpg);
    Finally 
 
  End;
 
end;

reste plus qu'à créer le thread sur on OnCreate par exemple.

EDIT: trop vite fait il n'est pas recommandé d'appeler des méthodes d'objets de la VCL depuis un Thread, donc l'URL doit être constituée une fois pour toute dans un string au chargement

Code :

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

1
2
 
  url := 'http://' +Edurl.Text+ ':88/snapshot.cgi?user='+Eduser.text +'&pwd='+Edpass.Text+'';

[cincap]

Bonjour à toutes et à tous,

@ Paul TOTH, merci pour ton exemple que je n'ai pas pu exploiter malgré un projet de test car je ne reçoit aucune image du parlophone, certainement que je n'ai pas bien codé !

Par contre en mettant la valeur du TTimer à 250ms j'obtiens un meilleur résultat.

Voici mon code de test :

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
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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, jpeg, IdTCPConnection,
  IdTCPClient, IdHTTP;
 
type
  TMyThread = class(TThread)
    procedure Execute; override;
  end;
 
type
  TFMonitor1 = class(TForm)
    Image1: TImage;
    IdHTTP1: TIdHTTP;
    procedure LoadImage;
    procedure ShowImage;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  FMonitor1: TFMonitor1;
 
  IdHTTP1:Tidhttp;
  MyStreamt:TMemoryStream;
  Jpg:TJpegImage;
  BMP : TBitmap;
 
implementation
 
{$R *.dfm}
 
 
 
  procedure TMyThread.Execute;
begin
  repeat
    Fmonitor1.LoadImage;
    Synchronize(FMonitor1.ShowImage);
    Sleep(0);
  until Terminated;
end;
 
procedure TFmonitor1.LoadImage;
begin
    Mystreamt.clear ;
    Try
      IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
 
      IdHTTP1.Get('http://192.168.1.83:88/snapshot.cgi?user=&pwd=',Mystreamt);
 
    except
      //ShowMessage('Fichier indisponible');
      Exit;
    End;
end;
 
procedure TFMonitor1.ShowImage;
begin
    Mystreamt.Seek(0, soFromBeginning);  { on rembobine le stream }
 
    Try
 
  jpg.LoadFromStream(MyStreamt);
 
  Image1.Picture.Assign(jpg);
    Finally 
 
  End;
 
end;
 
procedure TFMonitor1.FormCreate(Sender: TObject);
begin
//url := 'http://192.168.1.83:88/snapshot.cgi?user=&pwd=';
IdHTTP1.Get('http://192.168.1.83:88/snapshot.cgi?user=&pwd=',Mystreamt);
end;
 
end.

@+,

cincap

[Paul TOTH]

pas testé, mais ça doit donner quelque chose comme ça

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
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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, jpeg, IdTCPConnection,
  IdTCPClient, IdHTTP;
 
type
  TMyThread = class(TThread)
    procedure Execute; override;
  end;
 
type
  TFMonitor1 = class(TForm)
    Image1: TImage;
    IdHTTP1: TIdHTTP;
    procedure LoadImage;
    procedure ShowImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
    url: string;
    MyStreamt:TMemoryStream;
    Jpg:TJpegImage;
    thread: TThread;
  public
    { Déclarations publiques }
  end;
 
var
  FMonitor1: TFMonitor1;
 
//  IdHTTP1:Tidhttp;
//  MyStreamt:TMemoryStream;
//  Jpg:TJpegImage;
//  BMP : TBitmap;
 
implementation
 
{$R *.dfm}
 
 
 
  procedure TMyThread.Execute;
begin
  repeat
    Fmonitor1.LoadImage;
    Synchronize(FMonitor1.ShowImage);
    Sleep(0);
  until Terminated;
end;
 
procedure TFmonitor1.LoadImage;
begin
    Mystreamt.clear ;
    Try
      IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
 
      IdHTTP1.Get(url,Mystreamt);
 
    except
    End;
end;
 
procedure TFMonitor1.ShowImage;
begin
    Mystreamt.Seek(0, soFromBeginning);  { on rembobine le stream }
 
  jpg.LoadFromStream(MyStreamt);
 
  Image1.Picture.Assign(jpg);
 
end;
 
procedure TFMonitor1.FormCreate(Sender: TObject);
begin
  url := 'http://192.168.1.83:88/snapshot.cgi?user=&pwd=';
  Mystreamt := TMemoryStream.Create;
  jpg := TJPEGImage.Create;
  thread := TMyThread.Create;
// IdHTTP1.Get('http://192.168.1.83:88/snapshot.cgi?user=&pwd=',Mystreamt);
end;
 
procedure TFMonitor1.FormDestroy(Sender: TObject);
begin
  thread.Free
  mystreamt.Free;
  jpg.Free;
end;
 
end.

[cincap]

Bonsoir à toutes et à tous,

@ Paul TOTH, merci de ta réponse.

J'ai vu mes erreurs mais j'obtiens quand même une erreur de compilation ici :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFMonitor1.FormCreate(Sender: TObject);
begin
  url := 'http://192.168.1.83:88/snapshot.cgi?user=&pwd=';
  Mystreamt := TMemoryStream.Create;
  jpg := TJPEGImage.Create;
  thread := TMyThread.Create;
// IdHTTP1.Get('http://192.168.1.63:81/snapshot.cgi?user=&pwd=',Mystreamt);
end;

"Pas assez de paramètres originaux"

Je pensais à TThread au lieu de TMythread mais non.

@+,

cincap

[Paul TOTH]

thread := TMyThread.Create(false)

[cincap]

Bonjour à toutes et à tous,

@ Paul TOTH, grand merci pour ce code qui permet sans timer de vérifier la vue du vidéoparlophone Wifi.

J'ai juste ajouté dans le oncreate de la fiche afin d'éviter la saccade de l'image:

Code :

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

1
2
 
doublebuffered := true;

@ Paul TOTH, j'avais suivi tous tes travaux concernant la vidéo et je te félicite pour tous ces exemples qui m'ont permis de réaliser de petites applications personnelles.

Merci à tous, je ferme ce topic.

Cordialement,

cincap