需要帮助显示DLL文件中的值

时间:2013-10-08 18:19:41

标签: c# dllimport

这是整个文件。我试图了解如何显示ODBAXIS的信息。此代码在第130行有错误代码。

/*
 * 
 * */
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;


namespace SampleFOCAS2Projtest1
{

public partial class frmMacroVars : Form
{ 

    bool iConnected = false;
    short hndl;
    //ushort Flibhndl;

    //Read a macro variable
    [DllImport("fwlib32")]
    private static extern short cnc_rdmacro(short hndl, short number, short length, ref ODBM c);


    //[DllImport("FWLIB32")]
  // private static extern short cnc_absolute(short hndl, short number, short length, ref ODBAXIS c);


    /* read absolute axis position */
    [DllImport("FWLIB32.dll", EntryPoint = "cnc_absolute")]
    public static extern short cnc_absolute(short hndl,
    short a, short b, [Out, MarshalAs(UnmanagedType.LPStruct)] ODBAXIS c);

    // In the FOCAS2 Functions, long value types are equivalent to Int32 types in .NET
    // Write a macro variable
    [DllImport("fwlib32")]
    private static extern short cnc_wrmacro(short hndl, short number, short length, int mcr_val, short dec_val);

    //Once again, specify layout of the structure for communication with unmanaged DLL
    [StructLayout(LayoutKind.Sequential, Pack = 4)]
    public struct ODBM
    {
        public short datano;       /* custom macro variable number */
        public short dummy;        /* (not used) */
        public int mcr_val;        /* value of custom macro variable */
        public short dec_val;      /* number of places of decimals */

    }

    /* cnc_absolute:read absolute axis position */
    /* cnc_machine:read machine axis position */
    /* cnc_relative:read relative axis position */
    /* cnc_distance:read distance to go */
    /* cnc_skip:read skip position */
    /* cnc_srvdelay:read servo delay value */
    /* cnc_accdecdly:read acceleration/deceleration delay value */
    /* cnc_absolute2:read absolute axis position 2 */
    /* cnc_relative2:read relative axis position 2 */
    [StructLayout(LayoutKind.Sequential, Pack = 4)]
    public class ODBAXIS
    {
        public short dummy;  /* dummy */
        public short type;   /* axis number */
        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 8)]
        public int[] data;      /* data value */




    }



    //Constructor
    public frmMacroVars(bool iConnect, short handle)
    {
        InitializeComponent();
        this.iConnected = iConnect;
        this.hndl = handle;

    }
    //Form Load Event
    private void frmMacroVars_Load(object sender, EventArgs e)
    {
        if (iConnected)
            lblConnected.Text = "You ARE connected";
        else
            lblConnected.Text = "You are NOT connected";
    }

    //Back Button
    private void cmdBack_Click(object sender, EventArgs e)
    {
        //Close this form and return to main form
        this.Close();
    }

    private void tmrGetMacros_Tick(object sender, EventArgs e)
    {
        ODBM odb = new ODBM();
        short odbmSize = 10;            //This value will always be 10. It is the size of the struct
        short retCode = -1;             //The return value of our FOCAS 2 Calls


        ODBAXIS  odba = new ODBAXIS(); //Added for reading the X axis
        short retCodee = -1;
       // int outcome = 0;        // interger needed for converting short to string
       // int test1 = 10;
        //int test2 = 10;


        //Only get the values if we are connected
        if (iConnected)
        {
            try
            {
                //Get the contents of macro variable 500 and put in ODBM struct
                //This requires our handle to the control
                retCode = cnc_rdmacro(hndl, 500, odbmSize, ref odb);

这部分代码适用于我可以正确接收rdmacro信息的地方。

                if (retCode == 0)
                    txtMac500.Text = InsertDecimal(Convert.ToInt32(odb.mcr_val), Convert.ToInt16(odb.dec_val));

这部分代码会产生错误。 (hndl,1,1,ref odba)不是正确的格式。不确定是什么。

                retCodee = cnc_absolute(hndl, 1,1, ref odba);


                    textBox1.Text = retCodee.ToString(); 

            }
            catch (Exception) { }
        }
    }


    //Inserts a decimal place in an integer and returns the string of it
    //This is necessary because we do not get the actual macro variable value back, only the digits and a value that
    //specifies where the decimal place is, so the number must be created manually
    public string InsertDecimal(int value, short decSpot)
    {
        //This takes in an integer 32 and a sport for a decimal and returns a string of an offset value. The decimal
        //point here is represented by a SHORT

        string strValue = value.ToString();

        if (decSpot != -1)
            strValue = (value / Math.Pow(10, decSpot)).ToString();
        else
            strValue = value.ToString();

        return strValue;
    }

    //Update Macro Variable 110 with contents of Textbox
    private void cmdUpdate_Click(object sender, EventArgs e)
    {
        string newMacVar = txtWrite110.Text;
        short decIndex = 0;
        int numVal = 0;
        short structLen = 10;       //It is always 10 in length
        short macNum = 110;         //We are writing to mac var 110

        if (!iConnected)
            MessageBox.Show("You are not connected to the control.", "Not Connected");
        else
        {
            try
            {
                if (txtWrite110.Text.Length > 0)
                {
                    decIndex = (short)newMacVar.IndexOf('.');

                    if (decIndex <= 0)
                        decIndex = 0;
                    else
                        newMacVar = newMacVar.Remove(decIndex, 1);

                    numVal = Convert.ToInt32(newMacVar);

                    //Write our textbox input to macro variable 110
                    cnc_wrmacro(hndl, macNum, structLen, numVal, decIndex);
                    txtWrite110.Text = string.Empty;
                }
                else
                {
                    MessageBox.Show("Type a number into the Write 'Macro Variable textbox'", "No Input");
                }
            }
            catch (Exception ex)
            {
                MessageBox.Show("There was an error. Check your input. Error: " + ex.Message, "Error");
            }
        }
    }

    private void txtMac110_TextChanged(object sender, EventArgs e)
    {

    }


}

}

1 个答案:

答案 0 :(得分:0)

我觉得这有点旧,但似乎没有答案。也许这将有助于未来的人:

我在VB中这样做:

    Dim AxData As New ODBAXIS

    Dim DataLen As Short
    DataLen = 4 + 4 * MAX_AXIS


    LastError = cnc_absolute(Hndl, -1, DataLen, AxData)

参数3是要检索的数据的长度。 “1”不是有效长度 你也在使用“1”,在我的情况下我使用“-1”我一次读取所有轴数据。如果您只想读取第一轴的数据,请使用“1”。