Envoye d'un BMP par les composants Indy sur un serveurRésolu

Question

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.

Francky23012301 · Accepted Answer

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).

Filipe35 · Answer

qu'est ce que TCP (quel compo ?)

quel protocole utilises tu ? et celui du serveur ...etc....

soit plus pr&#233;cis ;)

__________________________________________________
http://www.OgameTut.Free.Fr - Le site sur ogame de r&#233;f&#233;rence !
http://Signz.free.fr - Le g&#233;n&#

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

2 réponses

Votre réponse

Discussions similaires