enviar arquivo

Question

Alguem tem algum exemplo de como enviar arquivos via ip e porta utlizando indy sem ser idftp |?...

Massuda · Answer

Voc� pode usar um TIdTCPClient/TIdTCPServer, TIdUDPClient/TIdUDPServer, TIdHTTP/TIdHTTPServer e outras combina��es. Explique melhor o que voc� pretende fazer....

Ronaldomr · Answer

na verdade eu tenho duas empresas e eu preciso enviar um determinado arquivo para a matriz tipo txt....

Kroki · Answer

Se te interessar peguei um exemplo na Net completo e simples que vc pode enviar aqruivos de mais de 50 M.Passa o Email....

Ronaldomr · Answer

ow vlw   ronaldomrs@yahoo.com.br...

Ricardo_engsoft · Answer

tamb�m fiquei interessado... manda pra mim!ricardo.ti@gmail.com...

M · Answer

Ache interessante, se poder me enviar tamb�mb.0000@ig.com.br...

Jonas_giron · Answer

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;

Kroki · Answer

Peguem aqui;[url]//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......

Kroki · Answer

Lembrando,acho que tem que usar �salvar Como...�....

F�rum enviar arquivo #320937