Example #1
0
        private void tbExecute_Click(object sender, System.EventArgs e)
        {
            // --- Create the Geosoft System ---
            CGX_NET pGeo = new CGX_NET("OMScript", "1.0", 0, this, 0);

            if (pGeo != null)
            {
                // --- Is this a GX or a GS ? ---
                // --- Run the GX or Script ---
                string cmd = tbCmd.Text.ToUpper();

                if (cmd.EndsWith(".GX"))
                {
                    CSYS.iRunGX(cmd);
                }
                else
                {
                    CSYS.iRunGS(cmd);
                }


                // --- Cleanup The Geosoft Object ---

                CGX_NET.ShowError();


                // --- Cleanup ---

                pGeo.Dispose();
            }
        }
Example #2
0
        static void Main(string[] args)
        {
            CGX_NET pGeo = null;
            CDB     hDB  = null;
            CVV     hVV  = null;
            CVM     hVM  = null;
            CVA     hVA  = null;

            Int32 iChan, iLine; // database symbols

            int          iVA, iL, iLines, iS;
            double       dValue;
            DoubleVector dData;


            // --- Usage ---
            if (args.Length < 3)
            {
                Console.WriteLine("Usage: chanadd database channel value");
                return;
            }

            try
            {
                // --- Initialize ---
                pGeo = new CGX_NET("CHANADD", "V1", 2047, null, 0);
                if (pGeo == null)
                {
                    Console.WriteLine("Unable to start Geosoft session");
                    return;
                }

                // ---
                // Open a database.
                // Note that all databases created by normal Geosoft users will have
                // user name "SUPER" with password "".  Third-party or custom applications
                // may create databases that require a user-name and password, in which
                // case you require these values to open the database.
                // ---
                hDB = CDB.Open(args[0], "SUPER", "");

                // --- Get the channel handle ---
                iChan = hDB.FindSymb(args[1], CoreConstant.DB_SYMB_CHAN);
                if (iChan == CoreConstant.NULLSYMB)
                {
                    Console.WriteLine(args[1] + " channel not found in database " + args[0]);
                    return;
                }

                // --- Lock channel for read-writer ---
                hDB.LockSymb(iChan, CoreConstant.DB_LOCK_READWRITE, CoreConstant.DB_WAIT_NONE);

                // --- do we need a VV or a VA? ---
                iVA = hDB.iGetColVA(iChan); // number of elements in a VA, 1 if its a VV
                if (iVA == 1)
                {
                    // --- Create a VV to hold data array ---
                    hVV = CVV.CreateExt(CoreConstant.GS_DOUBLE, 0);
                }
                else
                {
                    // --- its a VA channel ---
                    hVA = CVA.CreateExt(CoreConstant.GS_DOUBLE, 0, iVA);
                }

                // --- Get a real VM to hold the data in memory ---
                hVM = CVM.Create(CoreConstant.GS_REAL, 0);

                // -- Get Value to add to data ---
                dValue = Convert.ToDouble(args[2]);

                // --- Count selected lines ---
                iLines = hDB.iCountSelLines();

                // --- Go through all selected lines ---
                iL    = 0;
                iLine = hDB.FirstSelLine();

                do
                {
                    // --- Break if line is not a valid line ---
                    if (hDB.iIsLineValid(iLine) == 0)
                    {
                        break;
                    }

                    // --- Update progress ---
                    Console.WriteLine("Chanadd " + (iL + 1) + " of " + iLines + " Complete");

                    // --- Read Data ---
                    if (iVA == 1)
                    {
                        // --- get VV data ---
                        hDB.GetChanVV(iLine, iChan, hVV);
                    }
                    else
                    {
                        // --- get VA data ---
                        hDB.GetChanVA(iLine, iChan, hVA);

                        // ---
                        // Get the VV to the VA data.  This VV contains all VA data
                        // by element, then by row.  The VV is owned by the VA, so you
                        // cannot destroy the VA or the VV will become invalid.
                        // ---

                        hVV = hVA.GetFullVV();
                    }

                    // ---
                    // Get data VM from the VV.  This will re-size the VM to
                    // hold all the data in the VV.
                    // ---

                    CVV.CopyVVtoVM(hVM, hVV);

                    // --- now get a pointer to the data ---

                    iS = hVV.iLength();

                    dData = CGX_NET.GetDoubleVM(hVM, iS);

                    //-----------------------------------------------------------------------
                    //                             MAIN MATH CODE
                    //-----------------------------------------------------------------------

                    for (int i = 0; i < iS; i++)
                    {
                        dData[i] += dValue;
                    }

                    // --- Put the VM data back in the VV ---
                    hVV.CopyVMtoVV(hVM);

                    // --- Write data back to the database ---
                    if (iVA == 1)
                    {
                        hDB.PutChanVV(iLine, iChan, hVV);
                    }
                    else
                    {
                        // ---
                        // Since the VA owned the VV, changing the VV data is the same as
                        // changing toe VA data.  All I need to do is write the VA data.
                        // ---
                        hDB.PutChanVA(iLine, iChan, hVA);
                    }

                    // --- Advance to Next Line ---
                    iLine = hDB.NextSelLine(iLine);
                    iL++;
                }while (true);

                Console.WriteLine("ChanAdd Complete");


                // --- Cleanup ---

                hDB.UnLockSymb(iChan);

                // ---
                // Destroy any handles that were created.  This is not really necessary since
                // destroying a pGeo handle will destroy all classes.  However, we considere it
                // good practice to destroy your own instances since it ensures you are
                // thinking about what instances you have created.  You really do not want to
                // keep class instances longer than you need them since they consume system
                // resources that could be better used by other parts of your application.
                // ---

                if (hVM != null)
                {
                    hVM.Dispose();
                }

                // --- be careful not to try to destroy a VV owned by a VA ---

                if (hVV != null && (iVA != 1))
                {
                    hVV.Dispose();
                }

                if (hVA != null)
                {
                    hVA.Dispose();
                }

                hDB.Dispose();
            }
            catch (CERROR e)
            {
                Console.WriteLine("Error: " + e.Message);
            }
            catch (Exception ex)
            {
                Console.WriteLine("Error: " + ex.Message);
            }
            finally
            {
                if (pGeo != null)
                {
                    pGeo.Dispose();
                }
            }
        }