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.