Newsgroup: it.comp.lang.delphi
Titolo: smtp control

Buondì a tutto l'NG
Ho un piccolo dilemma che farà ridere molti di voi.
Devo costruire una form da aggiungere alla mia applicazione che deve
mostrare i file di una cartella, alla selezione dell'utente fa uno zip e
li invia via mail ad un indirizzo specificato prima.
Vorrei sapere che componenti usare per zippare dei file (sempre se si può)
e quale per riuscire ad inviare mail con allegati.
Grazie a tutti
Ciao
--
pbonfanti2@*NOSPAM*
inwind.it
Togliere dall'indirizzo *NOSPAM*

e quale per riuscire ad inviare mail con allegati.
per l'smtp puoi usare i componenti indy 
http://www.indyproject.org/
(che tra l'altro in D7 sono già inclusi, altrimenti scaricali, sono
free con source)
per zippare non saprei, cmq prova su 
www.torry.net
 ,
ne troverai a decine..
Ciao,
Alan Solo

Ciao
	Ciao
	MassimoB
 

Grazie per le risposte mi sono state motlo utili.
Uso D7 quindi i componenti indy ci sono è che ce ne sono diveri (client,
server) e non sapevo quale usare....
Se qualcuno ha già usato l'IdSMTP per inviare mail con allegati mi
potrebbe postare solo un piccolo pezzo di codice per vedere come fare o
dei link dove ne spiegano l'utilizzo?
p.S.  il componente Abbrevia è freeware e opensource?
p.S.1 ho una fileList e uso il i := filelist1.selcount(); ma mi da un
errore cosa può essere? mi da questo errore:
[Error] Unit1.pas(51): Missing operator or semicolon
cmq grazie per le dritte


 dei link dove ne spiegano l'utilizzo?
Guarda nell'help di Indy. Ci sono
numerosissimi esempi fatti e funzionanti
tra cui quello che stai cercando.
Se non ce l'hai puoi scaricarli dal loro sito
Martina

cmq grazie per le dritte
SelCount è una proprietà, togli le parentesi
i := filelist1.selcount;
Ciao,
Alan Solo

 dei link dove ne spiegano l'utilizzo?
Solo perché è quasi pasqua e mi sento buono (ah no .. quello è natale ! :-)
idm1 = TidMessage ( da palette indy clients)
idsmtp1 = TidSmtp ( da palette indy clients)
var
  Attachment: TIdAttachment;
  testopart: TIdText;
begin
    idsmtp1.Host:='
out.virgilio.it
'
    idsmtp1.Port:=25;
    try
       idsmtp1.Connect();
    except
       on e:exception do
         begin
         erra(e.Message);
         idsmtp1.Disconnect;
         exit;
         end;
     end;
     // imposta messaggio
     idm1.Clear;
     idm1.ContentType := 'multipart/mixed';
     // idm1.Body:=bodo; // è il testo del messaggio (una stringlist
riempita) *** SOLO SE NON SERVONO ATTACHMENT
     idm1.Recipients.Add.Address:='
pi...@disney.com
';
     idm1.CCList.Add.Address:='
topo...@disney.com
';
     idm1.From.Address:='
mioini...@mioprovider.it
';
     idm1.Sender.Address:='
mioini...@mioprovider.it
';
     idm1.Subject:='Messaggio di prova';
     // quello che segue solo se servono attachment
     TestoPart := TIdText.Create(IdM1.MessageParts);
     TestoPart.ContentType := 'text/plain';
     TestoPart.ContentTransfer := 'quoted-printable';
     TestoPart.Body:=testo.Lines; // prese da un memo o da stringlist
     Attachment :=
TIdAttachment.Create(IdM1.MessageParts,'c:\madir\miofile.bin');
     Attachment.ContentType:= 'application/octet-stream';
     // adesso lo invia
     idsmtp1.Send(idm1);
     idsmtp1.Disconnect;
Giulio

 Giulio
Paolo

 mi daresti il link
palette "Indy MISC"
Giulio

 	MassimoB
Ciao
Paolo


Togliere dall'indirizzo *NOSPAM*
	Ciao
	MassimoB
 


http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&selm=fcWz8.41655%24W9.1011356%40twister2.libero.it
ho letto ma non so quale .dpk caricare ce ne sono tanti...
poi che percorsi di ricerca devo dare? devo spostare tutta la cartella
abbrevia da qualche parte...
scusa se sono un pò tonto..
grazie di tutto intanto


[...]
ok iniziamo dall'inizio :) ...   
Prima di tutto estrai il cotenuto del file zip in una
cartella che poi non dovrai più spostare finchè usareai
i componenti abbrevia.
Il file readme ti dice che packages devi usare.
Segui lo schema che vedi e trova i packages giusti per
la tua versione di delphi un package per il RunTime ed
uno per il DesignTime ...
I packages li trovi nella directory packages nella
cartalle che hai unzippato.
Per esempio io ho delphi6 allora userò i packages:
B304vd60.dpk -> DesignTime.
B304vr60.dpk -> RunTime.
Apri con il doppioClick il package RunTime e ti si
aprirà delphi, con in fuoco una finestrella con
l'elenco dei file del package, in questa finestra premi
il bottone Compile.
Apri con il doppioClick il package DesignTime e ti si
aprirà delphi, con in fuoco un finestrella con l'elenco
dei file del package, in questa finestra premi il
bottone Compile e poi Install. Se tutto va bene ti
appare una finestra di conferma dell'installazione.
Poi dal menu di delphi
Tools>Environment_Options...>Library>Library_Path
seleziona dal bottone con [...] la cartella Source,
contenuta dentro la cartella di abbrevia unzippata, poi
Add e Ok.
Non è la maniera migliore per installare un package
però è la più semplice e veloce :) ...
Ciao MassimoB
 

 Ciao MassimoB


Ciao Paolo
	Ciao
	MassimoB
 

 io lo uso in un programma commerciale 
quindi deduco che se lo usi in un prg così funziona bene.
Ho scaricato la documentazione dal sito un pdf dove spiga gli esempi che
sono nello zip del componente
L'unica cosa è che non riesco a usarlo (mi viene da piangere.....) non
riesco a creare neanche uno zip vuoto....
vabbè cmq grazie tante per l'aiuto e scusa se ti ho fatto perdere tempo..


Ciao Paolo
	Ciao
	MassimoB