Envoye d'un BMP par les composants Indy sur un serveur

Résolu
Utilisateur anonyme - 29 janv. 2006 à 20:58
 Utilisateur anonyme - 29 janv. 2006 à 22:31
Salut à tous,

J'ai un bmp que je souhaite transferer sur un serveur par les composants Indy. Je vous copie ma source :

procedure TForm1.sendstr;
var Img:TPicture;
MemStream:TMemoryStream;
JPG:TJPEGImage;
Bmp :TBitMap;
Rect:TRect;
begin
MemStream:=TMemoryStream.Create;
JPG:=TJPEGImage.create;
Image1.Picture.LoadFromFile('c:\photo_famille.bmp');
try
JPG.Assign(Image1.Picture);
jpg.savetostream(Memstream);
finally
img.free;
JPG.Free;
try
with tcp do
begin
OpenWriteBuffer;
WriteStream(memstream);
CloseWriteBuffer;
memstream.Free;
disconnect;
end;
except
end;
end;
end;

Je comprends pas Pk ca marche pas il y a une erreur dans l'envois.

Si vous pouvez m'aider merci.

2 réponses

Utilisateur anonyme
29 janv. 2006 à 22:31
Ca me semblait clair désolé : TCP de Indy mais j'ai trouvé mon erreur. cette portion de code fonctionne. L'erreur venait d'ailleurs (ca arrive).
3
Filipe35 Messages postés 470 Date d'inscription vendredi 14 novembre 2003 Statut Membre Dernière intervention 23 octobre 2007 1
29 janv. 2006 à 21:01
qu'est ce que TCP (quel compo ?)

quel protocole utilises tu ? et celui du serveur ...etc....

soit plus précis ;)

__________________________________________________
http://www.OgameTut.Free.Fr - Le site sur ogame de référence !
http://Signz.free.fr - Le gén&#
0