FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Traducir un codigo de VB a Delphi ¡¡¡¡ Por favor !!!!
Hola a todos:
Mi problema esta en que quiero recibir correo IMAP mediante una aplicación, estoy utilizando un componente llamado ChilkatIMAP, pero no logro traducir un ejemplo en Visual Basic a Delphi. El codigo es: Código:
Private Sub Command1_Click() ' Create an object, connect to the IMAP server, login, ' and select a mailbox. Dim imap As New ChilkatImap imap.UnlockComponent "UnlockCode" imap.Connect "mail.my_imap_server.com" imap.Login "login", "password" imap.SelectMailbox "Inbox" ' Get a message set containing all the message IDs ' in the selected mailbox. Dim msgSet As messageSet Set msgSet = imap.Search("ALL", 1) ' Fetch all the mail into a bundle object. Dim bundle As New ChilkatEmailBundle Set bundle = imap.FetchBundle(msgSet) ' Loop over the bundle and display the From and Subject. Dim email As ChilkatEmail For i = 0 To bundle.MessageCount - 1 Set email = bundle.GetEmail(i) List1.AddItem email.From & ": " & email.Subject Next ' Save the email to an XML file bundle.SaveXml "bundle.xml" ' Disconnect from the IMAP server. ' This example leaves the email on the IMAP server. imap.Disconnect End Sub Última edición por marcoszorrilla fecha: 29-11-2004 a las 19:50:22. Razón: Insertar etiquetas Code para facilitar lectura |
#2
|
||||
|
||||
¿Es necesario usar estos componentes? ¿O la finalidad es mandar un email?
Sí sólo tienes que mandar un email, independientemente de los componentes, puedes utilizar las INDY |
#3
|
|||
|
|||
El objetivo que pretendo hacer es que se reciba corrreo mediante el protocolo IMAP, y como el unico componente que conozco es Chilkat IMAP, por eso, pero por favor, si conocen algun otro componente que pueda realizar esta recepcion de correo, se los agradeceria muchisimo.
En cuanto al envio de correo, con eso no tengo problemas. Gracias de antemano PD: DarKraZY, ¿ te podria agregar a mis contactos de messenger ? Atte: Betsa LF |
|
|
|