Anexar arquivo a mensagem (Indy)

Delphi

11/09/2003

Gostaria de uma ajuda pata anexar um arquivo a mensagem - usando Indy (Delphi 7).


Joao_ricardomp

Joao_ricardomp

Curtidas 0

Respostas

Alysson

Alysson

11/09/2003

fácil.....
use o comando:


var
x:TmemoryStream;
begin
x := TmemoryStream.create;
x.loadfromfile(´x.mp3´)
tcp.WriteStream(x)





e no que vai lê::::
var
x:TmemoryStream;
begin
x := TmemoryStream.create;
tcp.readstream(x,-1,True);
x.Seek(0,SofromBeginning);
x.savetofile(´c:\x.mp3´);


GOSTEI 0
Adilsond

Adilsond

11/09/2003

De uma olhada no exemplo postado no site ´Seven Library´ em:

http://lib.seven.com.br/ampliar.asp?codcat=1&codartigo=477


GOSTEI 0
POSTAR