Cara menyimpan gambar kedalam database dengan delphi

Seringkali pertanyaan kita adalah bagaimana menyimpan gambar ke database. Cara yang digunakan adalah sama dengan prosedur standar ketika Anda ingin menyimpan data baru (insert, edit) on the field.

tipe data dari gambar blob pada table kita menggunakan Assign.

Untuk contoh kamu ingin menyimpan graphic yang ada di TImage (image1) kedalam field BLOB (di sini saya menunjukkan, nama field adalah sebuah pic):
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if Image1.Picture.Graphic <> nil then<br /> begin<br /> with ADOTable1 do<br /> begin<br /> Insert;<br /> FieldByName('pic').Assign(Image1.Picture.Graphic);<br /> Post;<br /> end;<br /> end;<br /> end;

Untuk menyimpan gambar ke dalam field adalah jenis / format gambar yang ingin Anda simpan, apakah  JPEG / JPG, PNG, GIF atau BMP. Jika Anda ingin semua data pada field 'pic' hanyalah grafis tipe JPEG / JPG, maka Anda harus mengkonversi sebuah grafis yang ada di image1 untuk TJPEGImage kemudian disimpan ke lapangan. Hal ini akan memudahkan Anda ketika menampilkan grafis untuk TImage, karena grafis yang akan ditampilkan sudah pasti TJPEGImage, jadi tidak perlu untuk mendeteksi tipe gambar yang akan ditampilkan. Tapi semua tergantung pada orientasi dari program Anda buat.

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Mengecek letak file dengan delphi How to Check for File Existence delphi

Untuk memeriksa apakah file tersebut ada di direktori tertentu, Anda dapat menggunakan fungsi yang disediakan dalam Delphi.

Formula fungsi:
FileExists (const FileName: string): boolean.
Step 1: masukan koding didalam Edit Button and Form

Step two: enter the program with the program listings below :a
Procedure Tfrom.Button1Click(Sender:TObject);<br /> begin<br /> if Edit1.Text = ' ' then<br /> ShowMessage('fill in the name of the file is searched')<br /> else<br /> begin<br /> if FileExits(Edit1.Text) = true then <br /> ShowMessage('file " ' +Edit1.Text + ' " file exist. ')<br /> else <br /> showMessage('File " ' +Edit1.Text + ' " not exist. ');<br /> end;<br /> end;

Jalankan Program

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Cara membuat form login dengan delphi

Tampilan bisa dibuat seperti gambar dibawah:

On public add koding dibawah:
public<br /> { Public declarations }<br /> class function Execute : Boolean;
Add koding dibawah implementation
class function TFrmLogin.Execute:Boolean;<br /> begin<br /> with TfrmLogin.Create(nil) do<br /> try<br /> Result := ShowModal = mrOK;<br /> finally<br /> free;<br /> end;<br /> end;
On Click Button Login add koding dibawah:

How to change background color delphi

You can change the background color by adding the components:

• ColorDialog

• button

And enter the code below
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if ColorDialog1.Execute then<br /> form1.Color := ColorDialog1.Color;<br /> end;

Good Luck

how to determine leap year

Leap year is a year containing one extra day (or, in the case of lunisolar calendars, a month) in order to keep the calendar year synchronized with the astronomical or seasonal year.Because seasons and astronomical events do not repeat in a whole number of days, a calendar that had the same number of days in each year would, over time, drift with respect to the event it was supposed to track. By occasionally inserting (or intercalating) an additional day or month into the year, the drift can be corrected. A year that is not a leap year is called a common year.

now i'm will make a program how to determine leap year, chek it out...