di kesempatann kali ini saya akan membagikan tutorial gimana caranya mengambil\LOAD gambar sebelum disimpan ke database;
jangan lupa tambahkan jpeg ke use
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,jpeg, StdCtrls, ExtCtrls;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
end;
kalau sudah tekan f9 dan Load gambarnya
maka hasilnya akan seperti ini
إرسال تعليق