在OLEcontainter 控件中所画的图形如何保存到数据库中!
谢谢!

解决方案 »

  1.   

    怎么还没人回答,我现在很急,现在想把它保存到SQL-SERVER 中,希望高手来帮我解决!
      

  2.   

    保存:
    ---
    var
      MS:TMemoryStream;
      sSQL,sSpecialityID:String;
    begin
          MS:=TMemoryStream.Create;
          TJPEGImage(Image.Picture.Graphic).SaveToStream(MS);//将图像数据写入内存流
          MS.Position:=0;      ADOQuery.Open;
          ADOQuery.Append;
          TBlobField(ADOQuery.FieldbyName('Photo')).LoadFromStream(MS);
          ADOQuery.Post;
          MS.Free;
       except
          Application.MessageBox('保存信息失败,请重试!', '系统提示', MB_OK +      
           mb_IconExclamation);
       end;end;--------读取:
    ---
    var
       MyJPEG:TJPEGImage;
       MS:TMemoryStream;
       bs:TBlobStream;
    begin   
        {**取出相片**}
        MyJPEG:=TJPEGImage.Create;
        MS:=TMemoryStream.Create;
        try
           TBlobField(ADOQuery.FieldByName('Photo')).SaveToStream(MS);
           MS.position :=0;
           MyJPEG.LoadFromStream(MS);
           //DBImage.picture.assign(MyJPEG);该控件的使用
           Image.picture.assign(MyJPEG);
         finally
           MyJPEg.free;
           MS.free;
         end;
         
    end;