Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   TNMFTP y TNMSMTP para DELPHI 7 (https://www.clubdelphi.com/foros/showthread.php?t=43369)

yoyo12 09-05-2007 18:18:37

TNMFTP y TNMSMTP para DELPHI 7
 
Hola a todos.
Tengo un problema estoy trabajando con Delphi 7, pero la aplicacion con la que estoy trabajando fue creada con delphi 6, el problema esta con 2 objetos TNMFTP y TNMSMTP, quisiera saber si existen para Delphi 7, gracias

viaraSOFT.com 07-08-2007 03:07:17

con el mismo problema
 
yo estoy con el mismo problema... cualquier ayuda es bienvenida!

viaraSOFT.com 07-08-2007 03:39:07

aqui hay una solución
 
http://www.faqts.com/knowledge_base/...html/aid/26658

I use the Indy controls that comes with Delphi 7, IpSmtpClient.

Sample:

procedure TfrmMain.btnTestClick(Sender: TObject);
var Body: TStringList;
MimePart : TIpMimeEntity;
begin
SMTPPostOutID:= 0;
Body:= TStringList.Create;
Body.Text:= 'This is a test from CDE Postman';
IpSmtpClient.Domain:= SMTPDomain;
IpSmtpClient.DefaultPort:= SMTPPort;
IpSmtpClient.Message.NewMessage;
IpSmtpClient.Message.From:= '[email protected]';
IpSmtpClient.Message.Sender:= '[email protected]';
IpSmtpClient.Message.MailTo.Add('[email protected]');
IpSmtpClient.Message.Subject:= 'This is a test from IPro';

MimePart:= IpSmtpClient.Message.GetBodyHtml(True);
MimePart.EncodeBodyStrings(Body, '');
IpSmtpClient.Message.ContentType:= 'multipart';
IpSmtpClient.Message.ContentSubtype:= 'mixed';

IpSmtpClient.SendMail(SMTPServer,true);
LogMessage('Test message sent');
Body.Free;
end;



Parece que funciona correctamente pero tengo problemas para encontrar la libreria o la clase que contiene el tipo "TIpMimeEntity"...


La franja horaria es GMT +2. Ahora son las 20:30:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi