[求助]AE中存入图片的问题，谢谢了

楼主^#

更多发布于：2007-07-17 14:17

大家好！
 初接触GIS，在应用中遇到这样一个问题，就是每个要素都需要一张图片，当用户点击要素的时候，显示图片，做数据库的在在FeatureClass表里建了个字段是Blob类型的，现在想问下，怎么把图片存进去，怎么取出来 
我的代码如下：
 void mapControl_OnMouseDown(int button, int shift, int X, int Y, double mapX, double mapY) { try { if (button == LEFT_BUTTON) { IPoint point = new PointClass(); point.PutCoords(mapX, mapY); IFeature feature = featureGainer.GetFeatureByPositionFromMap(mapControl.Map , layers, point); int index = -1; if (feature != null ;; (index = feature.Fields.FindField(INNER_PICTURE_FIELD)) != -1) { // 上传图片 object ob = feature.get_Value(index);
 MessageBox.Show("" + feature.get_Value(index) + ob.GetType()); IWorkspaceEdit workspace = DataHelper.GetWorkspace(feature); if (workspace.IsBeingEdited() ;; feature.get_Value(index) == System.DBNull.Value) { if (MessageBox.Show("该分支箱没有内部接线图，是否上传?", "消息" , MessageBoxButtons.YesNo, MessageBoxIcon.Information) == DialogResult.Yes) { if (this.openFileDialog1.ShowDialog() == DialogResult.OK) { //FileStream fs = new FileStream(openFileDialog1.FileName, FileMode.Open); Stream fs = this.openFileDialog1.OpenFile(); byte[] fileBuffer = new byte[fs.Length]; fs.Read(fileBuffer, 0, fileBuffer.Length); //SqlBinary binary = new SqlBinary(fileBuffer); SqlBytes sbs = new SqlBytes(fileBuffer); workspace.StartEditOperation(); feature.set_Value(index, sbs); feature.Store(); workspace.StopEditOperation(); MessageBox.Show("图片上传成功"); } } return; } SqlBytes outsbs = (SqlBytes)(feature.get_Value(index)); byte[] buffer = outsbs.Buffer; if (outsbs.Length == 0 || buffer.Length == 0) { MessageBox.Show("对不起，没有内部接线图"); return; } MemoryStream ms = new MemoryStream(buffer); Bitmap bitmap = new Bitmap(ms); string featureInfo = "分支箱：" + feature.OID + " 内部接线图"; this.ShowInfo(featureInfo, bitmap); } } } catch (COMException ex) {
 MessageBox.Show(ex.StackTrace + "\n" + ex.ErrorCode); } }
点击获得要素是没问题的，但是就是存不进去，每次到 workspace.StopEditOperation();
就抛出COMException，请问下，大家有解决方法么，谢谢了

喜欢0 评分0

举报回复

gis

管理员

注册日期2003-07-16
发帖数15947
QQ554730525
铜币25339枚
威望15364点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2007-07-19 15:10

下面是个例子，可以参考，blog字段可以保存图片，也可以保存任何的文件格式的文件 
The code below below shows how to save pictures to blobs ; how a picture in a blob can be used to populate a picture element on a layout. Sub Test() Dim pBlobTable As ITable ' (creates it if it doesn't already exist) Set pBlobTable = GetBlobTable("D:\arcgis\sampledata\MyGDB.mdb", "MyBlobs") If pBlobTable Is Nothing Then Exit Sub Dim pPictDisp As IPictureDisp Set pPictDisp = LoadPicture("D:\Pictureblobs.bmp") ' save the picture to the blob Picture2Blob pBlobTable, pPictDisp, "MyNewPicture" ' restore a previously saved picture Set pPictDisp = Blob2Picture(pBlobTable, "MyPicture") ' add the picture to the layout If pPictDisp Is Nothing Then Debug.Print "unable to load picture from blob" Else Dim pEnv As IEnvelope Set pEnv = New Envelope pEnv.PutCoords 1, 1, 2, 2 ' location on the layout for the element Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument AddPictureToLayout pPictDisp, pMxDoc.PageLayout, pEnv End If End Sub
Sub AddPictureToLayout(pPictDisp As IPictureDisp, pGC As IGraphicsContainer, _ pEnv As IEnvelope) ' there's probably a better way to do this where ' you don't write it to a file SavePicture pPictDisp, "C:\temp\junk.bmp" Dim pPictElement As IPictureElement Set pPictElement = New BmpPictureElement pPictElement.ImportPictureFromFile "C:\temp\junk.bmp" pPictElement.SavePictureInDocument = True pPictElement.MaintainAspectRatio = True Dim dEnvAspRatio As Double dEnvAspRatio = pEnv.Width / pEnv.Height If pPictElement.PictureAspectRatio > dEnvAspRatio Then pEnv.Expand pPictElement.PictureAspectRatio / dEnvAspRatio, 1#, True Else pEnv.Expand 1#, dEnvAspRatio / pPictElement.PictureAspectRatio, True End If
 Dim pElement As IElement Set pElement = pPictElement pElement.Geometry = pEnv pGC.AddElement pElement, 0 Dim pAV As IActiveView Set pAV = pGC pAV.PartialRefresh esriViewGraphics, pElement, Nothing End Sub
Function Blob2Picture(pBlobTable As ITable, strName As String) As IPictureDisp ' using Name as a key, retrieve the picture from the blob field Dim pRow As IRow Set pRow = GetBlobRow(pBlobTable, strName, False) If Not pRow Is Nothing Then Dim pMemBlobStream As IMemoryBlobStream Set pMemBlobStream = pRow.Value(pRow.Fields.FindField("Blob")) Dim pPersistStream As IPersistStream Set pPersistStream = New StdPicture pPersistStream.Load pMemBlobStream Set Blob2Picture = pPersistStream Else Debug.Print "no row found for : " ; strName Set Blob2Picture = Nothing End If End Function
Function GetBlobTable(strPath As String, strName As String) As ITable Dim pWSF As IWorkspaceFactory Set pWSF = New AccessWorkspaceFactory Dim pFWS As IFeatureWorkspace Set pFWS = pWSF.OpenFromFile(strPath, 0) On Error Resume Next Set GetBlobTable = pFWS.OpenTable(strName) If GetBlobTable Is Nothing Then Set GetBlobTable = CreateBlobTable(strPath, strName) End If End Function
Sub Picture2Blob(pBlobTable As ITable, pPictDisp As IPictureDisp, strName As String) ' saves the picture to a blob Dim pMemBlobStream As IMemoryBlobStream Set pMemBlobStream = New MemoryBlobStream Dim pPersistStream As IPersistStream Set pPersistStream = pPictDisp pPersistStream.Save pMemBlobStream, False Dim pRow As IRow Set pRow = GetBlobRow(pBlobTable, strName, True) pRow.Value(pRow.Fields.FindField("Name")) = strName pRow.Value(pRow.Fields.FindField("Blob")) = pMemBlobStream pRow.Store End Sub
Function GetBlobRow(pBlobTable As ITable, strName As String, _ Optional bCreate As Boolean = False) As IRow Dim pQF As IQueryFilter Set pQF = New QueryFilter pQF.WhereClause = "[Name] = '" ; strName ; "'" Set GetBlobRow = pBlobTable.Search(pQF, False).NextRow ' if no row was found ... If GetBlobRow Is Nothing And bCreate Then Set GetBlobRow = pBlobTable.CreateRow ' ... then create one End If End Function
Function CreateBlobTable(strPath As String, strName As String) As ITable Dim pWSF As IWorkspaceFactory Set pWSF = New AccessWorkspaceFactory Dim pFWS As IFeatureWorkspace Set pFWS = pWSF.OpenFromFile(strPath, 0) On Error Resume Next If pFWS.OpenTable(strName) Is Nothing Then Dim pCLSID As New UID pCLSID.Value = "esriCore.Object" Set CreateBlobTable = pFWS.Createtable(strName, MakeFields, _ pCLSID, Nothing, "") Else ' don't create it if it already exists, just open it Set CreateBlobTable = pFWS.OpenTable(strName) End If End Function
Function MakeFields() As IFields Dim pFldsEdit As IFieldsEdit Set pFldsEdit = New Fields Dim pFldEdit As IFieldEdit ' make the OID field Set pFldEdit = New Field With pFldEdit .IsNullable = False .Name = "OBJECTID" .Type = esriFieldTypeOID .Editable = True .Required = True End With pFldsEdit.AddField pFldEdit ' make the Name field Set pFldEdit = New Field pFldEdit.Name = "Name" pFldEdit.Type = esriFieldTypeString pFldEdit.Length = 50 pFldsEdit.AddField pFldEdit ' make the blob field Set pFldEdit = New Field pFldEdit.Name = "Blob" pFldEdit.Type = esriFieldTypeBlob 'pfldedit.Length = ??? pFldsEdit.AddField pFldEdit Set MakeFields = pFldsEdit End Function

举报回复喜欢评分

solarcy 路人甲注册日期2007-06-17 发帖数33 QQ 铜币228枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2007-07-20 11:36 要是C#的例子就好了
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

[求助]AE中存入图片的问题，谢谢了

最新喜欢：