Fórum Anexar arquivo a mensagem (Indy) #181461
11/09/2003
0
Gostaria de uma ajuda pata anexar um arquivo a mensagem - usando Indy (Delphi 7).
Joao_ricardomp
Curtir tópico
+ 0
Responder
Posts
13/09/2003
Alysson
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´);
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´);
Responder
Gostei + 0
13/09/2003
Adilsond
De uma olhada no exemplo postado no site ´Seven Library´ em:
http://lib.seven.com.br/ampliar.asp?codcat=1&codartigo=477
http://lib.seven.com.br/ampliar.asp?codcat=1&codartigo=477
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)