Memposting Image (JPEG) Kedalam Field

Saya sering menemukan pertanyaan mengenai "Bagaimana caranya memposting image (JPEG) kedalam field dengan tipe BLOB grafik ?". Pada kesempatan ini saya akan sharing script dengan bahasa pemrograman Delphi. Berikut Script yang berguna untuk menyisipkan gambar kedalam field database dengan tipe BLOB.

ADOConnection.BeginTrans;
try
with ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO Pic_file ');
SQL.Add('(pic_id ,');
SQL.Add(' pic_image )');
SQL.Add('VALUES ');
SQL.Add('('+#39+txtCode.Text+#39+',');
SQL.Add(' '+':pic_image'+')');
if Photo.Picture.Graphic <> nil then
Parameters.ParamByName('pic_image').Assign(Photo.Picture.Graphic)
else Parameters.ParamByName('pic_image').Value :=NULL;
ExecSQL;
end;
ADOConnection.CommitTrans;
Screen.Cursor :=crDefault;
except
on E:Exception do
begin
ShowMessage(E.Message);
ADOConnection.RollbackTrans;
end;
end;

Pada script diatas, field pic_image adalah field dengan tipe BLOB***