var
  pic: TMemoryStream;
  pjpg: tjpegimage;
  wl: string;
begin
  Img.Visible := true;
  Img.Update;
  pjpg := TJpegImage.Create;
  pic := TMemoryStream.Create;
  TBlobField(DM.OQ1.FieldByName('content')).SaveToFile('c:\123.jpg');
  if pic.Size <= 0 then
  begin
    Img.Visible := false;
    Img.Update;
    exit;
  end;
  pjpg.LoadFromFile('c:\123.jpg');
  Img.Picture.Assign(pjpg);
  Img.Update;

解决方案 »

  1.   

    我没有遇到过,但凭经验,找找OSSION控件的相关的属性应该可以解决,我用BDE时遇到过这样的问题。
      

  2.   

    var
    str:string;
    begin
      with adoquery1 do
        begin
          close;
          sql.Clear;
          sql.Add('delete from ip');
          execsql;
        end;
     str:='insert into IP(IP) values(:xiao)';
      with adoquery1 do
        begin
           close;
           sql.Clear;
           sql.Add(str);
           Parameters.parambyname('xiao').Assign(Image1.picture.bitmap);
           execsql;
        end;
    /////////////////////////////////////
    自己看着办 我没时间