Discussion :

[sfn84]

Bonjour à tous,

Je suis actuellement en train de faire un programme dans le cadre de ma formation et je suis incapable de résoudre un problème de récupération des images via une caméra ip.

J'utilise un "client socket" afin d'envoyer les trames HTTP correspondant aux screenshot et dans l'evènement OnRead du socket je traite la récupération du fichier (image).

Néanmoins, lorsque je fais cela en boucle (afin de récupérer les images continuellement et séquentiellement), l'image que je reçois est parfois complétement abimée et déformée. Je rafraichi l'image avec un timer...

Je ne sais absolument pas pourquoi ça me fait cela, si vous avez une solution svp aidez moi.

Voici quelques bout de codes correspondant à ce que j'ai fait:

J'active le timer toutes les N ms:

Code :

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

1
2
3
4
5
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Soc->Active = true;
}

Dans le "OnWrite" du Socket:

Code :

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

1
2
3
4
5
 
void __fastcall TForm1::SocWrite(TObject *Sender, TCustomWinSocket *Socket)
{
        Soc->Socket->SendText("GET /cgi-bin/video.jpg?size=2 HTTP/1.0 \r\n\r\n");
}

Dans le "OnRead":

Code :

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

1
2
3
4
5
6
7
8
9
 
void __fastcall TForm1::SocRead(TObject *Sender, TCustomWinSocket *Socket)
{
        char buffer[102000]; // buffer de recuperation des paquets venant du serveur
 
        int nbLu = Socket->ReceiveBuf(buffer, 102000 );  // lire les paquets
        pStream->Write(buffer, nbLu);       // transferer dans le stream
                                              // pour traitement ulterieur
}

Dans le "OnDisconnect":

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
 
void __fastcall TForm1::SocDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    i = 0, j = 0;
    int comp;
    unsigned char var[4], var2[4]="ÿØÿÀ", tab;      // À ou þ
 
    pStream->Position = 0;    // pos = 0
    while(pStream->Read(var,4)){
        i+=4;
        comp = strncmp(var,var2,4);
        if(comp == 0) break;
    }
    i-=4;
    pStream->Position = i;
    pStream->Read(var,4);
    pStream->Position = 0;
    while(pStream->Read(&tab,2)){
        j+=2;
        if(!strncmp(&tab,"ÿ",2)){
          pStream->Read(&tab,2);
          j+=2;
          if(!strncmp(&tab,"Ù",1)){
            break;                  //si on a FFD9 on quitte
          }
        }
    }
    tailleImage = j - i;
 
    DisplayImage();   //traite et affiche l'image
    CleanUp();
    btConnect->Caption = "Connecter";
}

Et enfin voici la fonction "DisplayImage()":

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
 
void __fastcall TForm1::DisplayImage()
{
  unsigned char buf[40000] = "";
 
  try
  {
    pFluxImage->Position = 0;
    pStream->Position = i;  // debut code jpeg après le Header dans le stream
    pStream->Read(buf, tailleImage);
    pFluxImage->Write(buf, tailleImage);
    pFluxImage->Position = 0;
    jp->LoadFromStream(pFluxImage);     // charger le jpeg converti en bitmap
 
    Image1->Picture->Assign(jp); // afficher l'image
 
  }
  catch (...)
  {
    MessageBeep(0);
  }
 
  pFluxImage->Position = 0;
}

Ces instructions sont effectuées séquentiellement. Si vous trouvez une erreur ou quelque chose qui pourrai m'aider à résoudre mon problème svp n'hésitez pas, je suis très à la bourre pour mon projet de fin d'années.

J'attends vos messages ! merci

[ShaiLeTroll]

Tu pouvais poursuivre ton premier sujet Récupérer une image avec un socket?

C'est même surprenant que tu puisses recevoir quelque chose de cohérent !
Si je comprend le code tu parcours les données reçues (HTTP) jusqu'au début d'un fichier Image (JPEG), à partir de là tu utilises les données !

Dans le OnRead, c'est bien, tu accumule les packets successifs, à mon avis, tu n'obtiens jamais un buffer de 102000 mais plutot 8192 au mieux

Ta caméra fonctionne certe en IP (TCP\IP) mais là clairement tu l'utilises via un protocol de niveau supérieur le HTTP !

Utilise un TIdHTTP, tu récupéreras le stream HTTP déjà prêt à l'emploi !
Je te l'ai déjà dit !

Je n'ai pas d'exemple à te donner dans le programme que je maintiens, les Camera AXIS (accessible via HTTP) sont fournis avec un ActiveX AxisMediaControl qui fait tout ce boulot, n'ayant pas encore fait moi même ce type de développement (je l'ai fait ClientSocket à ServerSocket, mais jamais ClientSocket à server HTTP embarqué), je ne peux pas t'aider plus que la théorie

[sfn84]

Bonjour,
effectivement j'hésitais à continuer sur mon sujet précédent mais étant donné que j'ai marqué "résolu" j'ai préféré faire un autre sujet..

En fait je reçois l'image correctement approximativement 8 fois sur 10 . Mais des fois je reçois un peu n'importe quoi.
Par contre pour le buffer tout dépend des caméras je pense étant donnée que je reçois les données sous forme de paquet pouvant aller jusqu'à plus de 30 000 !
J'ai mis 102 000 c'est effectivement un peu excessif mais vaut mieux être large que pas assez non?

Le TidHttp j'ai essayé je m'y pencher un peu mais je n'étais pas très à l'aise dessus.

A vrai dire si je pouvais recevoir toujours les bonnes images j'aurai fini cette partie de mon projet (puisque j'ai fais le reste de mon projet qui consiste à faire une détection de mouvement).

Avec le TidHttp comment on envoie une requête? Comment on reçois le flux contenant l'image?

Merci encore pour ta présence et ton aide !

[ShaiLeTroll]

Tu as une méthode Get dans le TIdHTTP qui renvoie une chaine
Tu as la chance d'avoir BCB6 qui fourni une excellente aide dont celle sur TIdHTTP

Code :

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

1
2
procedure Get(AURL: string; const AResponseContent: TStream); overload;
function Get(AURL: string): string; overload;

Get is an overloaded method used to retrieve the file or data for the resource specified in AURL.

AURL is the complete, fully-qualified location of the resource.

AResponseContent is the TStream that is the destination for data retrieved using the specified URL .

Use Get(AUrl) to retrieve the data from AURL and return the contents as the String result of the function.

Use Get(AUrl, AResponseContent) to retrieve data from the URL and write the return values to the TStream specified by AResponseContent.

Get relies on the DoRequest method to perform the HTTP transfer.

[sfn84]

Merci j'ai essayé ce que tu m'as donné et ça fonctionne !
Par contre en mettant les instructions dans un timer afin de rafraichir l'image, mon application est lente (lorsque je déplace ma fenêtre par exemple ça lag) .

Est-ce qu'il y a un moyen plus optimisé?

[sfn84]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  unsigned char buf[30000];
  pStream->Position = 0;
  IdHTTP1->Get("http://192.168.2.5/cgi-bin/video.jpg?size=2", pStream);
  int pos = pStream->Position;
  pStream->Position = 0;
  pStream->Read(buf, pos);
  pFluxImage->Write(buf, pos);
  pFluxImage->Position = 0;
  jp->LoadFromStream(pFluxImage);
  Image1->Picture->Assign(jp); // afficher l'image
  pFluxImage->Position = 0;

C'est ce qu'il y a dans mon timer ...