To set up an SMTP server on CentOS 7, you can use a popular mail server software called Postfix. Here are the steps to install and configure Postfix:1. Update System: Make sure your system is up-to-date by running the following commands:2. Install Postfix:...
TIdSMTP component is very useful VCL in Delphi 2009. Here's the simple example to send email.uses IdSMTP, IdMessage;;procedure KMAIL( sTo, title, body:string);var IdMsg : TIdMessage;begin IdMsg := TIdMessage.Create(nil); try ...
A code snippet,posted on the dotnet newsgroup,about how to send email using C#.<%@Import namespace="System.Web.Util"%>try{MailMessage MyMail = new MailMessage();MyMail.To = "who";MyMail.From = "you";MyMail.BodyFormat = MailFormat.Html;MyM...
Use this function to send an e-mail through your program. You must have the component TNMSMTP from FastNet tools. This component is included in Delphi 4-5 Professional and Enterpriseprocedure TForm1.Button1Click(Sender: TObject); begin NMSMTP1.Host ...
Adding objects to a Hashtable is just like adding to a collection since they both inherit from the same parent.Hashtable h = new Hashtable();h.Add("Key1", "Value1");h.Add("Key2", "Value2");h.Add("Key3", "Value3");h.Add("Key4", "Value4");h.Add("Key5", "Valu...
stack is a LIFO (Last In First Out) queue, so if you add two items and then ask for an item you would get the second item then the first item. To add items to the Stack you use Push method. This method takes an object of any type but to keep things simple ...
Adding Items to the QueueTo add items to the Queue you use Enqueue method. This method takes an object of any type but to keep things simple lets just give it a string object: Queue q = new Queue();q.Enqueue("So");q.Enqueue("This");q.Enqueue("Is");q.Enqueu...
Creation of PDF Document in 5 easy stepsStep 1: First create an instance of document objectDocument myDocument= new Document(PageSize.A4.Rotate());Step 2: Now create a writer that listens to this doucment and writes the document to desired Stream.PdfWriter...
Managed world is beautiful, I have all classes I want in FrameWork.. But what if I want call some unmanaged code? For instance, I have DLL written in C++, and want use it from C#. Let's look some code. Our DLL exports some function, in CDecl convention, th...
A post on aspngbeta about readingwriting a cookie in C#//To setHttpCookie cookie;String UserID = "foo";cookie = new HttpCookie("UserID");cookie.Values.Add("UserID",UserID);Response.Cookies.Add(cookie);//To readHttpCookie cookie;cookie = Request.Cookies["Us...
A code snippet posted on aspcs about accessing and writing cookies using C#./* Read shopper id from client cookie */public static bool GetCurrentShopperId(ref string id,System.Web.HttpRequest request){try{HttpCookie cookie = request.Cookies["iparts_pa"];if...
To remove the icon from the taskbar, you need to call a Windows API call:BOOL ShowWindow(HWND hwnd,int nCmdShow);Delphi makes it very easy to use this command. All you need to do is supply the Application.handle and SW_HIDE to remove the icon from the task...
This code show an example of how to print a text of a RichEdit component.unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ...
Show how to create an animated icon in your programvar icon1:Boolean; ... procedure TForm1.Timer1Timer(Sender: TObject); begin if icon1=false then begin Application.icon:=Image1.Picture.Icon; icon1:=tru...
Shows how to activate the next or prior control in a formnext control: SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0); prior control: SendMessage(Handle, WM_NEXTDLGCTL, 1, 0);
Create a different form in your application...procedure TForm1.FormCreate(Sender:TObject); var region: HRgn; begin region:=CreateEllipticRgn(1,1,200,200); SetWindowRgn(handle, region, true); end;
Get the total and available memory in your system. (Total free memory space in your system)procedure TForm1.Button1Click(Sender: TObject); var memory:TMemoryStatus; begin memory.dwLength:=sizeof(memory); GlobalMemoryStatus(memory); &nb...
This code shows how to set the system time to another value.procedure TForm1.Button1Click(Sender: TObject); var systemtime : TSystemTime; NewTime:string; begin NewTime:='13:58:00'; DateTimeToSystemTime( D...
Identify the Windows version of your systemfunction GetWindowsVersion : string; var OsVinfo : TOSVERSIONINFO; HelpStr : array[0..50] of char; begin ZeroMemory(@OsVinfo,sizeOf(OsVinfo));...
Obtains the language that Windows is using.function Language:string; var sLangID:LangID; sLanguage: array [0..100] of char; begin sLangID:=GetSystemDefaultLangID; VerLanguageName(sLangID,sLang...
Show how to paint a form in a different way...procedure TForm1.FormPaint(Sender: TObject); var Row, Ht: Word; IX: Integer; begin iX :=200 ; Ht:=(ClientHeight + 512) div 256; for Row := 0 to 512 do begin &nbs...
To hide the caption bar you need to override on of the default form methods CreateParams (this also exists for other objects).The CreateParams method initializes a window-creation parameter record passed in the Params parameter (ref:Delphi Help).Go to the ...
Use this function to open your browser with a given URL.uses shellapi; .... procedure TForm1.Label1Click(Sender:TObject); begin shellexecute(handle,'open','http://www.swissdelphicenter.ch', nil,nil,sw_show); ...
Use this code to verify if a soundcard is installed in your systemuses mmsystem; ... function Soundkarte:Boolean; begin Result := WaveOutGetNumDevs >0; end;
Change the resolution of your screen.Actually I've ever used this function for TV-based software development, because of TV-resolution.{ The function NewRes can have the following result: DISP_CHANGE_SUCCESSFUL The settings change was successful. DISP_CHAN...
Some English speaking countries use the "point" as decimal separator, while the rest of the world is using the "comma". How can you make sure that the user will press the correct key when entering a number with a decimal fraction? With the code in this exa...
Use the registry to register your own filetypeuses registry; procedure TForm1.RegisterFileType(prefix:String; exepfad:String); var reg:TRegistry; begin reg:=TRegistry.Create; reg.RootKey:=HKEY_CLASSES_ROOT; Page: 12