delphi Image控件操作数据库Image

引用这个单元jpeg

procedure TCommMethods.uploadimage(img:TImage);
var
  OpenPictureDialog:TOpenPictureDialog;
  bmp1:TBitmap;
  jpg1:TJpegImage;
  sFileName:string;
begin
   OpenPictureDialog:= TOpenPictureDialog.Create(nil);
   with OpenPictureDialog do
   begin
      if   Execute   then
      begin
        sFileName:=FileName;
        if ExtractFileExt(sFileName)='.bmp'   then
        begin
          bmp1:=TBitmap.Create;
          bmp1.LoadFromFile(sFileName);
          bmp1.Assign(bmp1);
        end;
        if (ExtractFileExt(sFileName) ='.jpg') or  (ExtractFileExt(sFileName)='.jpeg') then
        begin
            bmp1:=TBitmap.Create;
            jpg1:=TJpegImage.Create;
            jpg1.LoadFromFile(sFileName);
            bmp1.Assign(jpg1);
        end;
        img.Picture.Assign(bmp1);
      end;
   end;
end;
用于插入数据库
function  TCommMethods.retrunchannelimageid(img:Timage):string;
var jpg1:TJpegImage;
begin
  try
    jpg1:=TJpegImage.Create;
    jpg1.Assign(img.Picture.Bitmap);
    with DM.qrypublic do
    begin

      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO T_ImageOfChannel (channelimage) VALUES (:channelimage)');
      Parameters[0].Assign(jpg1);
      ExecSQL;

 

      Close;
      SQL.Clear;
      SQL.Add('SELECT max(channelimageid) as channelimageid FROM T_ImageOfChannel');
      Open;
      Result:=fieldbyname('channelimageid').AsString;
    end;
  except
    on Exception do
  end;
end;

用于更新数据库
Function TCommMethods.updateChannelImage(img:Timage;channelID:string):boolean;
var jpg1:TJpegImage;
begin
  try
    jpg1:=TJpegImage.Create;
    jpg1.Assign(img.Picture.Bitmap);
    with DM.qrypublic do
    begin

      Close;
      SQL.Clear;
      SQL.Add(' update T_ImageOfChannel  ');
      SQL.Add(' set channelimage = :channelimage  ');
      SQL.Add(' where channelimageid ='#39+channelID+#39'');
      Parameters[0].Assign(jpg1);
      ExecSQL;

    end;
    result:=true;
  except
    on Exception do result:=false;
  end;
end;

从数据库查询出来并在Image控件上面显示出来
procedure  TCommMethods.showchannelico(channelno:string;img:TImage);
var ipg1:TJPEGImage;
    bmp1:TBitmap;
begin
  try
    bmp1:=TBitmap.Create;
    ipg1:=TJPEGImage.Create;
    with DM.qrypublic do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT channelico FROM T_IcoOfChannel where Channelno='#39+channelno+#39'');
      Open;
      ipg1.Assign(FieldByName('channelico'));
      bmp1.Assign(ipg1);
      img.Picture.Assign(bmp1);
    end;
  except
    img.Picture.Assign(nil);
  end;
end;