BAHASA PEMOGRAMAN DELPHI

Delphi merupakan bahasa pemrograman yang sering digunakan dikalangan kampus, sebagai penunjang matakuliah pemrograman walaupun sekarang ini sudah hampir kurang diminati dengan adannya beberapa bahasa pemrograman dengan menggunakan metoda dan cara yang lebih simple dalam penggunaannya. Namun kekuatan delphi masih bisa diungulkan dengan adanya versi-versi terbaru yang telah berbasis .net.

Bahasa pemrograman delphi ini sintak dasarnya menggunakan bahasa Pascal (Object Pascal Oriented). Apabila kita sudah banyak mengenal bahasa Pascal kita tidak akan susah untuk mempelajari bahasa pemrograman delphi ini.

Basis Object Oriented Programming(OOP)dalam Delphi dapat mempermudah pengembang aplikasi dalam mebangun project yang dikelolanya.

Beberapa kelebihan bahasa programan Delphi:
1. Komponen dapat dipakai ulang dan dapat dikembangkan
Delphi mempermudah pembuatan program bagi komponen-komponen Windows seperti label, button dan bahkan dialog dan lainnya. Komponen ini dapat diatur sesuai dengan kebutuhan kita si pembuat program.

2. Dapat mengakses VBX.
Dengan Delphi kita dapat langsung mengakses komponen VBX yang sudah merupakan satu kesatuan dan dapat langsung digunakan .

3. Template Aplikasi dan template Form
Dalam Delphi telah didefinisikan template aplikasi dan template Form yang dapat dipakai untuk membuat semua form aplikasi dengan lebih cepat.

4. Lingkungan pengembang Delphi
Lingkungan yang disedia pada Delphi sangat mudah untuk digunakan dalam pengembangan aplikasi yang produktif.

5. Program terkompilasi.
Kebanyakan lingkungan pengembang visual pada windows menyatakan dapat mengkompilasi program. Namun sebenarnya mereka hanya dapat mengkompilasi sebagian program dan kemudian mengabungkan interpreter dan pcode dalam sebuah file. Dengan cara ini akan menghasilkan aplikasi dengan eksekusi yang lambat. Namun dengan pemrograman delphi output yang dihasilkannya merupakan file yang benar-benar terkompilasi tanpa interpreter dan pcode sehinga dapat berjalan lebih cepat. Program Delphi yang kecil dapat diserahkan dalam bentuk sebuah file EXE tanpa harus menyertakan file DLL.

6. Kemampuan mengakses data dalam bermacam format.
Dalam Delphi terdapat BDE ( Borland Database Engine) yang digunakan untuk mengakses format file data yang ada. BDE telah melalui beberapa tahap pengembangan, yang sebelumnyaBDE dikenal dengan ODAPI , kemudian IDAPI. Sekarang BDE sudah menjadi standar untuk akses semua jenis data yang ada saat ini. BDE juga dapat mengakses Database Client / Server seperti Sybase, SQL Server, Oracle dan Borland Interbase. Bila dibandingkan dengan microsoft ODBC , BDE lebih unggul dalam hal unjuk kerjannya, hal ini karena BDE memiliki bentuk yang lebih mendekati format database tujuannya.
Mengirimkan Email dengan Delphi

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

edtSubject: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

edtNamaPengirim: TEdit;

edtEmailPengirim: TEdit;

Label4: TLabel;

edtNamaPenerima: TEdit;

edtEmailPenerima: TEdit;

Label5: TLabel;

MemoMessage: TMemo;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses MAPI;

{$R *.dfm}

function SendMail(const Subject, Body, FileName,

SenderName, SenderEMail,

RecipientName, RecipientEMail: string): Integer;

var

Message: TMapiMessage;

lpSender, lpRecipient: TMapiRecipDesc;

FileAttach: TMapiFileDesc;

SM: TFNMapiSendMail;

MAPIModule: HModule;

begin

FillChar(Message, SizeOf(Message), 0);

with Message do

begin

if (Subject <> '') then

lpszSubject := PChar(Subject);

if (Body <> '') then

lpszNoteText := PChar(Body);

if (SenderEmail <> '') then

begin

lpSender.ulRecipClass := MAPI_ORIG;

if (SenderName = '') then

lpSender.lpszName := PChar(SenderEMail)

else

lpSender.lpszName := PChar(SenderName);

lpSender.lpszAddress := PChar(SenderEmail);

lpSender.ulReserved := 0;

lpSender.ulEIDSize := 0;

lpSender.lpEntryID := nil;

lpOriginator := @lpSender;

end;

if (RecipientEmail <> '') then

begin

lpRecipient.ulRecipClass := MAPI_TO;

if (RecipientName = '') then

lpRecipient.lpszName := PChar(RecipientEMail)

else

lpRecipient.lpszName := PChar(RecipientName);

lpRecipient.lpszAddress := PChar(RecipientEmail);

lpRecipient.ulReserved := 0;

lpRecipient.ulEIDSize := 0;

lpRecipient.lpEntryID := nil;

nRecipCount := 1;

lpRecips := @lpRecipient;

end

else lpRecips := nil;

if (FileName = '') then

begin

nFileCount := 0;

lpFiles := nil;

end

else

begin

FillChar(FileAttach, SizeOf(FileAttach), 0);

FileAttach.nPosition := Cardinal($FFFFFFFF);

FileAttach.lpszPathName := PChar(FileName);

nFileCount := 1;

lpFiles := @FileAttach;

end;

end;

MAPIModule := LoadLibrary(PChar(MAPIDLL));

if MAPIModule = 0 then

Result := -1

else

try

@SM := GetProcAddress(MAPIModule, 'MAPISendMail');

if @SM <> nil then

begin

Result := SM(0, Application.Handle, Message, MAPI_DIALOG or MAPI_LOGON_UI, 0);

end

else

Result := 1;

finally

FreeLibrary(MAPIModule);

end;

if Result <> 0 then

MessageDlg('Gagal mengirim email (' + IntToStr(Result) + ').', mtError, [mbOK], 0);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SendMail(edtSubject.Text,

MemoMessage.Text,

'',

edtNamaPengirim.Text, edtEmailPengirim.Text,

edtNamaPenerima.Text, edtEmailPenerima.Text);

end;

end.