F.a.q Delphi Net

السلام عليكم

1- كيف ترسل ايمال

unit Envoyer;
  interface
  uses  System.Web.Mail,Dialogs;
   function Send(vDesEmail,vSujet,vMessage:string):Boolean;
  const
		  //string vMonNom	= "zekiri abdelali" ;
		  //string vDesNom	= ""				;
		  vmonEmail  = 'zekiriabd@iacp.fr';
		  vNomU	  = 'zekiriabd@iacp.fr';
		  vMotpasse  = 'password';
		  vServeur ='auth.smtp.1and1.fr';
  var
   _email : System.web.Mail.MailMessage;
  implementation

  function Send(vDesEmail,vSujet,vMessage:string):Boolean;
  begin
			  _email := System.web.Mail.MailMessage.Create();
			  _email.Subject		 := vSujet;
			  _email.Body			:= vMessage;
			  _email.From			:= vmonEmail;
			  _email.&To			 := vDesEmail;
			  _email.BodyFormat	  := MailFormat.Html;			//_mail.BodyFormat	:= MailFormat.Text;
			  _email.Priority		:= MailPriority.High;
  //_mail.Headers.Add('Disposition-Notification-To', vmonEmail);
  _email.Fields.Add('http://schemas.schemas.microsoft.com/cdo/configuration/smtpauthenticate','1');
  _email.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusername', vNomU);
  _email.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendpassword', vMotpasse);
	   try
		   SmtpMail.SmtpServer := 'auth.smtp.1and1.fr'; //vSERVER;
		   SmtpMail.Send(_email);
		   Result := true;
	  Except
		   on E: Exception do
		   begin
				 raise Exception.Create(E.Message);
				 Result := false;
		   end;
	  end;
  end;
  end.

2- كود لكتابة و القراءة من ملف نصي

unit Unit1;
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, System.IO, Borland.Vcl.StdCtrls, Borland.Vcl.ComCtrls,
   System.ComponentModel;
 type
   TForm1 = class(TForm)
	 Button1: TButton;
	 RichEdit1: TRichEdit;
	 OpenDialog1: TOpenDialog;
	 Button2: TButton;
	 SaveDialog1: TSaveDialog;
	 procedure Button2Click(Sender: TObject);
	 procedure Button1Click(Sender: TObject);
   private
	 { Private declarations }
	 vLir  : StreamReader;
	 vEcrir : StreamWriter;
	 vLigne : String;
	 vFichier : TFileName;
   public
	 { Public declarations }
   end;
 var
   Form1: TForm1;
 implementation{$R *.nfm}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
  try
 if OpenDialog1.Execute() then
   vFichier:=Concat(OpenDialog1.FileName);
   //عرض  محتوى الملف
   vLir := StreamReader.Create( vFichier );
   vLigne := vLir.ReadToEnd;
   RichEdit1.Text:= RichEdit1.Text + vligne + #13;

  finally
  // غلق سترام قراءة وللكتابة
	 if Assigned(vLir)  then vLir.Close;
	 if Assigned(vEcrir) then vEcrir.Close;
  end;
 end;


 procedure TForm1.Button2Click(Sender: TObject);
 begin
 if SaveDialog1.Execute() then
 begin
   vFichier:= Concat(SaveDialog1.FileName);
   if not FileExists(vFichier) then
	begin
	//الملف غير موجود نقوم بانشاءه
	 vEcrir := StreamWriter.Create(vFichier);
	 vEcrir.WriteLine('السلام عليكم');
	end
	else // الملف موجود
	begin
	 vEcrir:= &File.AppendText(vFichier);
	 vEcrir.WriteLine('1');
	 vEcrir.WriteLine('2');
	 vEcrir.WriteLine('3');
	 end;
		 vEcrir.Close;
 end;
 end;

 end.