ENVOI ET RÉCEPTION D'UNE CAPTURE D'ÉCRAN PAR STREAMS AVEC LES COMPOSANTS TCP IND
cali70
Messages postés
71
Date d'inscription
mercredi 29 septembre 2004
Statut
Membre
Dernière intervention
19 mars 2008
-
4 oct. 2004 à 20:32
cs_Nostaroth Messages postés 13 Date d'inscription mercredi 29 novembre 2006 Statut Membre Dernière intervention 14 mai 2009 - 29 sept. 2007 à 19:13
cs_Nostaroth Messages postés 13 Date d'inscription mercredi 29 novembre 2006 Statut Membre Dernière intervention 14 mai 2009 - 29 sept. 2007 à 19:13
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
https://codes-sources.commentcamarche.net/source/26586-envoi-et-reception-d-une-capture-d-ecran-par-streams-avec-les-composants-tcp-indy
29 sept. 2007 à 19:13
Repondez moi sil vou plait c'est important
17 oct. 2005 à 16:53
a+
17 oct. 2005 à 03:00
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 !!!
24 juin 2005 à 20:53
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!!!!
24 juin 2005 à 20:45
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.Width:=webcam.Width;
Img.Bitmap.Height:=webcam.Height;
JPG:=TJPEGImage.Create;
try
JPG.Assign(webcam); //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;
Et ils me disent qu'iol y a une excpetion : impossible d'affecter un TImge à un TBitmap.
24 juin 2005 à 09:20
24 juin 2005 à 09:05
24 juin 2005 à 08:58
29 nov. 2004 à 16:16
regardez
bmp1.assign(image1.bmp);
bmp2.assign(image1.bmp);
if bmp1=bmp2 donne false !!!!!
aidez moi je coule
berdjane_b@yahoo.fr
19 oct. 2004 à 17:28
10 oct. 2004 à 11:44
http://www.cppfrance.com/code.aspx?id=26700.
Bonne progz à tous !
9 oct. 2004 à 22:33
9 oct. 2004 à 21:14
9 oct. 2004 à 20:37
Bonne progz tout le monde...
7 oct. 2004 à 18:55
6 oct. 2004 à 21:21
6 oct. 2004 à 13:26
Sinon, ton code, j' ai trouvé la meme chose mais sans les composants Indy.
5 oct. 2004 à 12:39
5 oct. 2004 à 12:26
Par contre concernant le code, est-ce qu'il aurait été possible de mettre :
try tcp.Connect; //Connexion du client tcp form1.sendstr; //Execution de la procédure définie plus haut except showmessage('connextion impossible'); //On affiche une boite de dialogue qui nous informedirectement dans l'évènement OnClick du bouton...Je vois pas à quoi sert le Timer :-)
4 oct. 2004 à 21:04
4 oct. 2004 à 20:49
4 oct. 2004 à 20:44
Dommage.
4 oct. 2004 à 20:32