Date: Thu, 21 Jun 2001 20:05:29 +0100
Newsgroups: borland.public.delphi.graphics
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Newsreader: Virtual Access by Atlantic Coast PLC, http://www.atlantic-coast.com/va
Message-ID: <VA.00000217.0275fb3f@lineone.net>
Subject: Re: JPG, JPEG to BLOB
From: Bob Villiers <bob_villiers@lineone.net>
Reply-To: bob_villiers@lineone.net
References: <3b310979$1_2@dnews> <VA.00000210.080925fc@lineone.net> <3b313cf7$1_2@dnews> <VA.00000212.0096b522@lineone.net> <VA.00000214.018d77f3@lineone.net>
NNTP-Posting-Host: 213.123.38.185
X-Trace: dnews 993150206 213.123.38.185 (21 Jun 2001 12:03:26 -0700)
Lines: 22
Path: dnews
Xref: dnews borland.public.delphi.graphics:39973

Here is a better solution:

if OpenPictureDialog1.Execute then
  begin
    with Query1 do
    begin
      SQL.Clear;
      SQL.Add('INSERT INTO ImageTbl (ImageFld) VALUES (:param0 )');
      Params[0].Loadfromfile(OpenPictureDialog1.Filename, ftBlob);
      {or
ParamByName('param0').Loadfromfile(OpenPictureDialog1.Filename,
ftBlob);}
      ExecSQL;
    end;
  end;

Bob