ENVOI ET RÉCEPTION D'UNE CAPTURE D'ÉCRAN PAR STREAMS AVEC LES COMPOSANTS TCP IND

Signaler
Messages postés
71
Date d'inscription
mercredi 29 septembre 2004
Statut
Membre
Dernière intervention
19 mars 2008
-
Messages postés
13
Date d'inscription
mercredi 29 novembre 2006
Statut
Membre
Dernière intervention
14 mai 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/26586-envoi-et-reception-d-une-capture-d-ecran-par-streams-avec-les-composants-tcp-indy

Messages postés
13
Date d'inscription
mercredi 29 novembre 2006
Statut
Membre
Dernière intervention
14 mai 2009

Est il possible d'envoyer la capture sans fair de connexion/deconnexion, c'est a dire on se connecte une foi aprés c'est tout?

Repondez moi sil vou plait c'est important
Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007

askil2000 tu dois "forwarder" le port du serveur oú le client va se connecter en accédant au config du routeur (souvent en te connectant sur son adresse ip)
a+
Messages postés
92
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
12 avril 2010

Salut à tous, je voulais tout dabor te remercier pour ta source qui traite simplement un sujet compliqué ;) cependant j'ai un petit problème que je pose à tous bien-entendu. Je voudrais tout simplement (c vite di lol) me connecter au server et lui transmettre les données, sachant que ce dernier se trouve derrière un routeur :(
si qq'un peut me dire comment on fait un route sur un programme ?
j'ai déja été confronté à ce problème plusieurs fois, sachant que j'ai biensure les 2 adresses IP Internet exemple : 220.125.18.102 et adresse locale : 192.168.0.2 je souhaite tout simplement passer le routeur en me connectant au server directement. Merci à tous et surtout bonne prog !!!
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009

J'ai essayer autre chose qui je pense marcherais mieux : au faite webcam c'est Image1.
procedure TForm1.Button5Click(Sender: TObject);

var
Img:TPicture;
MemStream:TMemoryStream; // Déclaration des variables
JPG:TJPEGImage;
Bmp :TBitMap;
Rect:TRect;

begin

Img:=TPicture.Create;
Bmp := TBitMap .Create; //Initialisation des variables qui doivent l'être
MemStream:=TMemoryStream.Create;

Img.Bitmap.Assign(webcam);


JPG:=TJPEGImage.Create;
try
JPG.Assign(Img.Bitmap); //Conversion en jpg
JPG.CompressionQuality:=15;
Bmp.Width :=Jpg.Width -50;
Bmp.Height :=Jpg.Height -50;
Rect.Left :=0;
Rect.Top :=0;
Rect.Right :=Bmp.Width-1;
Rect.Bottom:=Bmp.Height-1;
Bmp.Canvas.StretchDraw(Rect,Jpg);
Jpg.Assign(Bmp);
jpg.savetostream(Memstream);//Chargement de l'image jpg dans le stream
finally
bmp.Free;
img.free;
JPG.Free;
try
with IdTCPClient1 do
begin

OpenWriteBuffer;
WriteStream(memstream);//Envoi du stream
CloseWriteBuffer;
memstream.Free;
disconnect; //Déconnexion
end;
except

end;

end;
end;
Ensuite il y a une classe d'exception EConvertError avec le message impossible d'affecter TImage à TBitmap
Pourrais tu m'aider j'en ai grandement besoin!!!!
Afficher les 23 commentaires