enviar arquivo
Alguem tem algum exemplo de como enviar arquivos via ip e porta utlizando indy sem ser idftp |?
Ronaldomr
Curtidas 0
Respostas
Massuda
09/05/2006
Você pode usar um TIdTCPClient/TIdTCPServer, TIdUDPClient/TIdUDPServer, TIdHTTP/TIdHTTPServer e outras combinações. Explique melhor o que você pretende fazer.
GOSTEI 0
Ronaldomr
09/05/2006
na verdade eu tenho duas empresas e eu preciso enviar um determinado arquivo para a matriz tipo txt.
GOSTEI 0
Kroki
09/05/2006
Se te interessar peguei um exemplo na Net completo e simples que vc pode enviar aqruivos de mais de 50 M.
Passa o Email.
Passa o Email.
GOSTEI 0
Ronaldomr
09/05/2006
ow vlw ronaldomrs@yahoo.com.br
GOSTEI 0
Ricardo_engsoft
09/05/2006
também fiquei interessado... manda pra mim!
ricardo.ti@gmail.com
ricardo.ti@gmail.com
GOSTEI 0
M
09/05/2006
Ache interessante, se poder me enviar também
b.0000@ig.com.br
b.0000@ig.com.br
GOSTEI 0
Jonas_giron
09/05/2006
VC PRECISA DE UM COMPOMENTE
TIDSMTP na palheta Indy Clients
TIDMESSAGE //na palheta Indy Misc
OPENDIALOG na palheta Dialogs
e dois botões
procedure TFormPedidos.BtAnexoClick(Sender: TObject);
begin
if OdAnexos.Execute then
LbAnexo.Items.Add(OdAnexos.FileName);
end;
procedure TFormPedidos.BtEnviaEMailClick(Sender: TObject);
var Anexo:Integer;
begin
IdMensagem.Recipients.EMailAddresses := EdDestino.Text;
IdMensagem.Subject := EdAssunto.Text;
IdMensagem.Body := MmDescricao.Lines;
for Anexo := 0 to LbAnexo.Items.Count-1 do
TIdAttachment.Create(IdMensagem.MessageParts,
TFilename(LbAnexo.Items.Strings[Anexo]));
IdSmtp.Connect;
try
IdSmtp.Send(IdMensagem);
finally
IdSmtp.Disconnect;
end;
Application.MessageBox(´O E-mail Foi Enviado Com Sucesso!´, ´Confirmação´, MB_ICONINFORMATION + MB_OK);
end;
TIDSMTP na palheta Indy Clients
TIDMESSAGE //na palheta Indy Misc
OPENDIALOG na palheta Dialogs
e dois botões
procedure TFormPedidos.BtAnexoClick(Sender: TObject);
begin
if OdAnexos.Execute then
LbAnexo.Items.Add(OdAnexos.FileName);
end;
procedure TFormPedidos.BtEnviaEMailClick(Sender: TObject);
var Anexo:Integer;
begin
IdMensagem.Recipients.EMailAddresses := EdDestino.Text;
IdMensagem.Subject := EdAssunto.Text;
IdMensagem.Body := MmDescricao.Lines;
for Anexo := 0 to LbAnexo.Items.Count-1 do
TIdAttachment.Create(IdMensagem.MessageParts,
TFilename(LbAnexo.Items.Strings[Anexo]));
IdSmtp.Connect;
try
IdSmtp.Send(IdMensagem);
finally
IdSmtp.Disconnect;
end;
Application.MessageBox(´O E-mail Foi Enviado Com Sucesso!´, ´Confirmação´, MB_ICONINFORMATION + MB_OK);
end;
GOSTEI 0
Kroki
09/05/2006
Peguem aqui;
[url]http://br.geocities.com/vitoradolfo/dwon/IndySendFiles.zip[/url]
Aproveitando se alguem souber como se usa a procedure que vem junto para tirar um ScreenShot me avise...
Se alguem quiser tambem aceito uma Home Page simples mas interessante para mim usar nessa HP porque sou péssimo pra fazer páginas e sempre deixo daquele jeito...
[url]http://br.geocities.com/vitoradolfo/dwon/IndySendFiles.zip[/url]
Aproveitando se alguem souber como se usa a procedure que vem junto para tirar um ScreenShot me avise...
Se alguem quiser tambem aceito uma Home Page simples mas interessante para mim usar nessa HP porque sou péssimo pra fazer páginas e sempre deixo daquele jeito...
GOSTEI 0
Kroki
09/05/2006
Lembrando,acho que tem que usar ´salvar Como...´.
GOSTEI 0