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

Résolu
Signaler
-
 Utilisateur anonyme -
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


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).
Messages postés
470
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007
1
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&#