Envoi d'une capture d'ecran par socket

Version imprimable

Bonjour,

J'ai un souci pour envoyer une capture d'ecran par socket.
Voici mon code qui fait la capture :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        /* Prend la résolution utlisé */
        int ScrW=Screen->Width, ScrH=Screen->Height;
        /* Applique la résolution */
        CopieFond->SetBounds(0,0,ScrW,ScrH);
        /* Capture l'ecran */
        HWND hWnd = GetDesktopWindow();
        HDC hDC = GetDC(hWnd);
        /* Copie la capture dans le TImage */
        BitBlt(CopieFond->Canvas->Handle,0,0,ScrW,ScrH,hDC,0,0,SRCCOPY);
        ReleaseDC(hWnd,hDC);
        CopieFond->Height = 480;
        CopieFond->Width = 640;

Tout ca marche très bien, mais j'aimerai envoyer cette capture par socket.
J'utilise donc un flux pour l'envoyer :

Code:

1
2
3
4
 
        TMemoryStream *stream = new TMemoryStream();
        CopieFond->Picture->Bitmap->SaveToStream(stream);
        Socket->SendStream(stream);

En fait le problème ce situe niveau client.
L'évenement OnRead du socket n'est jamais déclenché.
Par contre si j'utilise ce code coté serveur :

Code:

1
2
3
4
5
 
        TMemoryStream *stream = new TMemoryStream();
        CopieFond->Picture->Bitmap->SaveToFile("test.bmp");
        stream->LoadFromFile("test.bmp");
        Socket->SendStream(stream);

Le client reçoit bien les données mais pas complétement :4.27 ko sur 3Mo :koi:
Voici mon code coté client :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
                TMemoryStream *Stream = new TMemoryStream();
 
                while (Socket->ReceiveLength())
                {
                        int len = Socket->ReceiveLength();
                        /* buffer de réception */
                        char *buf = new char[len];
                        /* Reception données */
                        Socket->ReceiveBuf(buf, len);
                        /* Ecriture du buf dans le flux */
                        Stream->Write(buf, len);
                        delete(buf);
                }
                CopieFond->Picture->Bitmap->LoadFromStream(Stream);

Donc si quelqu'un peut m'eclairer...
Merci d'avance :mrgreen:

06/01/2007, 15h03
Médinoc

C'est du Borland, ça, non?
06/01/2007, 16h50
manu225

Citation:

Envoyé par Médinoc

C'est du Borland, ça, non?

Tout a fait :mouarf:
06/01/2007, 18h02
Altau

Dans ta boucle :

Code:

while (Socket->ReceiveLength())

avant d'écrire dans Stream, as-tu vérifié que Socket->ReceiveBuf voyait bien passer la totalité des données envoyées? Si non, avec Socket->SendStream(stream), est-ce que stream a bien la taille requise (3Mo) ?

Citation:

Envoyé par Altau

Dans ta boucle :

Code:

while (Socket->ReceiveLength())

avant d'écrire dans Stream, as-tu vérifié que Socket->ReceiveBuf voyait bien passer la totalité des données envoyées? Si non, avec Socket->SendStream(stream), est-ce que stream a bien la taille requise (3Mo) ?

En fait les données ne sont pas envoyées d'un coup apparement.
Donc OnRead est exectuer plusieurs fois.
J'ai donc modifié mon code et ca a l'aire de marcher.
Serveur :

Code:

1
2
3
4
5
6
        CopieFond->Picture->Bitmap->SaveToFile(Application->GetNamePath()+"test.bmp");
        TMemoryStream *stream = new TMemoryStream();
        CopieFond->Picture->Bitmap->SaveToStream(stream);
        stream->sekk(0, soFromBeginnig);
        Socket->SendStream(stream);
        Socket->SendText("fin_fichier");

Client :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
                while (Socket->ReceiveLength())
                {
                        int len = Socket->ReceiveLength();
                        /* buffer de réception */
                        char *buf = (char *)malloc(len);
                        /* Reception données */
                        Socket->ReceiveBuf(buf, len);
                        if (strcmp(buf,"fin_fichier") == 0)
                        {
                                /* Si fichier transmis on le stocke dans test.bmp */
                               Stream->Seek(0, soFromBeginning);                               
                               CopieFond->Picture->Bitmap->LoadFromStream(Stream);
                        }
                        else
                        {
                                /* Sinon Ecriture du buf dans le flux */
                                Stream->Write(buf, len);
                                delete(buf);
                                Label1->Caption = len;
                        } 
                }

En fait j'avais oublié de mettre stream->seek(0, soFrombeginnig) c'est pour ca que ca marchait pas quand je voulais envoyer directement le stream sans passer par un fichier bmp...

22/01/2007, 15h59
Bily.sdi

si tu as 2pc peux tu savoir qu'elle est le cp qui envoi l'image ?