• Blog
  • How to automate Mathcad Prime in Delphi

How to automate Mathcad Prime in Delphi

How to automate the Mathcad Prime software in your Delphi VCL apps

Publish date:
    DISCOVER MORE OF WHAT MATTERS TO YOU

    How to automate Mathcad Prime in Delph

    Overview

    Among the most notable features of Delphi, it’s worth mentioning the ability to enhance your Windows apps by interacting with other installed software products on your computer, using the COM technology for functionality embedding or automating.

    In this article, we will show you how to automate the Mathcad Prime software in your Delphi VCL apps, by controlling the automation server and the fundamental methods and properties of its API, and how to implement an event sink in your app to handle events triggered by the Mathcad Prime software.

    Mathcad Prime is an engineering calculation software developed by PTC. It is used by engineers to solve, document, and share calculations for product design.

    It provides an Automation API as a type library (TLB), that you can import in Delphi IDE and use in your apps to launch the software, send data to be treated and analyzed in the opened worksheet, and get the result back to be shown in your app.

    This can be done using Microsoft’s COM technology, which is a language-independent software component model that enables interaction between software components (the COM server) and developed applications (the COM client) running on the  Windows platform. The COM client can be either on the same computer as the server or on another computer on the network (connected through the Distributed COM (DCOM) mechanism).

    The key aspect of COM is that it enables the communication between clients and servers through interfaces clearly defined by the server developer. These interfaces provide a way for clients to ask a COM component which features it supports at run time. And to develop a COM client, you must understand the interface (properties and methods) exposed by the server to clients.

    In order to access this interface, its type information is typically published as a type library that can be imported and used in Delphi VCL projects.

    To get specific information about the published interfaces of PTC Mathcad Prime, check the developer documentation here.

    Importing Mathcad Prime API to Delphi

    For communication with Mathcad Prime, you have to access its API through the “Ptc.MathcadPrime.Automation.dll” installed at the software top level of the installation directory.

    • Open or create a new Delphi VCL project, and go to the menu “Component>Import a component”.
    • In the new dialog window, choose “Import a type library” and click “Next”.
    • Click “Add” and browse to the file “Ptc.MathcadPrime.Automation.tlb”.
    • Create a unit for this type library (there is no need to install it on the Components Palette), or add it to the current project.

    Now, Delphi will generate the unit “Ptc_MathcadPrime_Automation_TLB” that will be specific to the installed version of Mathcad Prime. You can save it for later use.

    COM Client implementation

    To implement your COM Client app, start a new (or open an existing) VCL project.

    In the uses clauses, add your generated TLB unit and the following unit:

    123
    uses
    …, System.Win.ComObj, Vcl.OleServer,
    Ptc_MathcadPrime_Automation_TLB, …

    As you can see in the generated unit, the Mathcad Prime automation server has a dual interface, which will make the implementation tasks much easier (You can find the basics of using COM interfaces in Delphi documentation).

    We need the following global variables to be used in the project:

    Variable forPurposes and possible tasksVariable type and its constructor and destructor
    Mathcad Prime main applicationStarting, hiding and closing the application.
    Creating a new (or opening an existing) worksheet.
    Closing the active worksheet.
    IMathcadPrimeApplication3
    Constructor: “CoApplication.Create”
    Destructor: assign a nil value
    Mathcad Prime active worksheetSaving the worksheet.
    Exchanging data between the server and client.
    IMathcadPrimeWorksheet3
    Constructor: “IMathcadPrimeApplication3.Open() as IMathcadPrimeWorksheet3”
    Destructor: “IMathcadPrimeApplication3.Close()”
    Mathcad Prime eventsHandling events raised by the user’s actions on the server app.IMathcadPrimeEvents2
    Constructor: (TMathcadPrimeEvents.Create)
    Destructor: assign a nil value

    So, we will write declarations as follows:

    123
    MPApplication : IMathcadPrimeApplication3;
    MPWorksheet : IMathcadPrimeWorksheet3;
    MPEvents : IMathcadPrimeEvents2;

    These variables are used in the code snippets as mentioned above.

    Start the application

    For starting the app, implement the “try … except … end;” instruction to create an instance of the “IMathcadPrimeApplication3” interface (through the constructor of the “CoApplication” class) and assign it to the Application variable, and set the Application “Visibility” property to “True”.

    Or, in the case of an exception, show a failure message with the exception message.

    12345678910
    procedure TMainForm.BtnStartMathcadClick(Sender: TObject);
    begin
    try
    MPApplication := CoApplication.Create;
    MPApplication.Visible := True;
    except
    on E: Exception do
    ShowMessage('Problem to connect Mathcad Prime: ' + E.Message);
    end;
    end;

    Close the application

    For closing the app, implement a condition to check if the Application variable is assigned (the variable does not have a null value), then release it by calling the Application “Quit()” method with the parameter “SaveOption_spSaveChanges”. Or show a failure message if an exception is detected.

    123456789101112
    procedure TMainForm.BtnCloseMathcadClick(Sender: TObject);
    begin
    if (MPApplication <> nil) then
    begin
    try
    MPApplication.Quit(SaveOption_spSaveChanges);
    except
    ShowMessage('Can not close Mathcad Prime, make sure it is actually running');
    end;
    end;
    end;

    Show the application

    To activate the app and bring it to the front, implement a condition to check if the Application variable is assigned, then set the Application “Visibility” property to “True” and call the “Activate()” method. Or show a failure message for the exception.

    123456789101112
    procedure TMainForm.BtnShowMathcadClick(Sender: TObject);
    begin
    if (MPApplication <> nil) then
    begin
    try
    MPApplication.Visible := True;
    MPApplication.Activate;
    except
    ShowMessage('Can not Activate worksheet. Make sure Mathcad Prime is running and worksheet is loaded');
    end;
    end;
    end;

    Hide the application

    To hide the app, implement a condition to check if the Application variable is assigned, then set the Application “Visibility” property to “False”. Or show a failure message in the case of an exception.

    1234567891011
    procedure TMainForm.BtnHideMathcadClick(Sender: TObject);
    begin
    if (MPApplication <> nil) then
    begin
    try
    MPApplication.Visible := False;
    except
    ShowMessage('Can not make Mathcad Prime invisible. Make sure Mathcad Prime is running.');
    end;
    end;
    end;

    Get the active worksheet in the application

    To get an active worksheet in the app (to exchange data between the worksheet and the client app), implement a condition to check if the Application variable is assigned, then assign the Application “ActiveWorksheet” property value to the Worksheet variable.

    (Use type casting, because the Application “ActiveWorksheet” type is not “IMathcadPrimeWorksheet3”).

    12345
    procedure TMainForm.BtnGetActiveWorksheetClick(Sender: TObject);
    begin
    if (MPApplication <> nil) then
    MPWorksheet := MPApplication.ActiveWorksheet as IMathcadPrimeWorksheet3;
    end;

    Open an existing worksheet in the application

    • First of all, you need a “TOpenDialog” with the filter “MCDX files (*.mcdx)” for Mathcad Prime worksheets, you have to set it either on design-time or on run-time through codes like in the snippet below.
    • Next, implement a condition to check if the Application variable is assigned, then “Exit” the procedure.
    • Now, if the Application variable is assigned, the procedure will continue and the “TOpenDialog” is executed.
    • To open the selected file, implement the “try … finally … end;” instruction to call the Application “Open” function with the selected file’s name as a parameter, and assign the resulting value to the Worksheet variable (Use type casting). Or show a failure message in the case of an exception.
    1234567891011121314151617181920212223
    procedure TMainForm.BtnOpenWorksheetClick(Sender: TObject);
    var OpenDialog : TOpenDialog;
    begin
    if (MPApplication = nil) then Exit;
    OpenDialog := TOpenDialog.Create(Self);
    try
    OpenDialog.Filter := 'MCDX files (*.mcdx)|.mcdx|All files (*.*)|*.*';
    OpenDialog.FilterIndex := 2;
    if OpenDialog.Execute then
    begin
    try
    MPWorksheet := MPApplication.Open(OpenDialog.FileName) as IMathcadPrimeWorksheet3;
    except
    ShowMessage('Couldn''t open Mathcad Prime file. Please check that Mathcad Prime is running and you have proper permissions');
    end;
    end;
    finally
    OpenDialog.Free;
    end;
    end;

    Create a new worksheet in the application

    To create a new worksheet in the app, implement a condition to check if the Application variable is assigned, then call the Application “Open” function with an empty string as a parameter and assign the resulting value to the Worksheet variable (Use type casting).

    12345
    procedure TMainForm.BtnOpenNewWorksheetClick(Sender: TObject);
    begin
    if (MPApplication <> nil) then
    MPWorksheet := MPApplication.Open('') as IMathcadPrimeWorksheet3;
    end;

    Save modifications in the opened worksheet in the application

    To save modifications in the active worksheet (existing as a local file) in the app, implement a condition to check if both Application and Worksheet variables are assigned, then call the Worksheet “Save” method. Or show a failure message in the case of an exception.

    1234567891011
    procedure TMainForm.BtnSaveWorksheetClick(Sender: TObject);
    begin
    if (MPApplication <> nil) and (MPWorksheet <> nil) then
    begin
    try
    MPWorksheet.Save;
    except
    ShowMessage('Can not save worksheet. If it is ''Untitled'' Use SaveAs');
    end;
    end;
    end;

    Save the worksheet in the application as Mathcad worksheet (MCDX)

    • First of all, you need a “TSaveDialog” option with the filter “MCDX files (*.mcdx)” for Mathcad Prime worksheets, you have to set it either on design-time or on run-time through codes like in the snippet below.
    • Next, implement a condition to check if the Application variable is assigned, then “Exit” the procedure.
    • Also, implement a condition to check if the Worksheet variable (the active worksheet) is assigned, then show a message to get the active worksheet, and “Exit” the procedure.
    • Now, if both Application and Worksheet variables are assigned, the procedure will continue and the “TSaveDialog” is executed.
    • To save as the selected file, implement the “try … finally … end;” instruction to call the Worksheet “SaveAs” function with the designated filename as a parameter. Or show a failure message in the case of an exception.
    1234567891011121314151617181920212223242526
    procedure TMainForm.BtnSaveAsWorskheetClick(Sender: TObject);
    var SaveDialog : TSaveDialog;
    begin
    if (MPApplication = nil) then Exit;
    if (MPWorksheet = nil) then
    ShowMessage('There is no selected worksheet: use ''Get Active Worksheet''');
    SaveDialog := TSaveDialog.Create(Self);
    try
    SaveDialog.DefaultExt := 'mctx';
    SaveDialog.Filter := 'MCTX files (*.mctx)|.mctx';
    if SaveDialog.Execute then
    begin
    try
    MPWorksheet.SaveAs(SaveDialog.FileName);
    except
    ShowMessage('Unable to save worksheet. Please check permissions');
    end;
    end;
    finally
    SaveDialog.Free;
    end;
    end;

    Save the worksheet in the application as a Mathcad template (MCTX)

    It will be the same code as the previous one, but you have to change the filter and the default extension to “MCTX”.

    1234567891011121314151617181920212223242526272829
    procedure TMainForm.BtnSaveAsMctxClick(Sender: TObject);
    var SaveDialog : TSaveDialog;
    begin
    if (MPApplication = nil) then Exit;
    if (MPWorksheet = nil) then
    begin
    ShowMessage('There is no selected worksheet: use ''Get Active Worksheet''');
    Exit;
    end;
    SaveDialog := TSaveDialog.Create(Self);
    try
    SaveDialog.DefaultExt := 'mcdx';
    SaveDialog.Filter := 'MCDX files (*.mcdx)|.mcdx|All files (*.*)|*.*';
    if SaveDialog.Execute then
    begin
    try
    MPWorksheet.SaveAs(SaveDialog.FileName);
    except
    ShowMessage('Unable to save worksheet. Please check permissions');
    end;
    end;
    finally
    SaveDialog.Free;
    end;
    end;

    Close the active worksheet in the application

    To close the active worksheet in the app, implement a condition to check if both Application and Worksheet variables are assigned, then:

    • Call the Worksheet “Close” method with the parameter “SaveOption_spDiscardChanges”. Or show a failure message in the case of exception.
    • Now, to destroy the Worksheet object, add a condition to check if the Worksheet variable is assigned, then set its value to null.
    123456789101112
    procedure TMainForm.BtnCloseWorksheetClick(Sender: TObject);
    begin
    if (MPApplication <> nil) and (MPWorksheet <> nil) then
    begin
    try
    MPWorksheet.Close(SaveOption_spDiscardChanges);
    except
    ShowMessage('Unable to close worksheet. Please check that Mathcad Prime is running');
    end;
    if (MPWorksheet <> nil) then MPWorksheet := nil;
    end;
    end;

    The event sink

    Your client app can also respond to the events raised by the COM server. And to do this, you can simply use the events added to the generated component in the Object inspector. But if you are not using a Component wrapper or if the server uses COM+ events, you have to implement an event sink.

    As it may sound difficult, in this section, we will show you how to properly implement an event sink for the Mathcad Prime COM server.

    Interface descending class

    Mathcad Prime events are declared in the interface “IMathcadPrimeEvents2 “, you can find it in the “Ptc_MathcadPrime_Automation_TLB” unit:

    1234567891011121314151617181920212223242526272829303132333435
    // *********************************************************************//
    // Interface : IMathcadPrimeEvents2
    // Indicators : (256) OleAutomation
    // GUID : {A0ECA09F-83C8-4536-B841-A33D981FBAFA}
    // *********************************************************************//
    IMathcadPrimeEvents2 = interface(IUnknown)
    ['{A0ECA09F-83C8-4536-B841-A33D981FBAFA}']
    function OnWorksheetSaved(const documentFullNameArg: WideString): HResult; stdcall;
    function OnWorksheetClosed(const documentFullNameArg: WideString;
    const documentNameArg: WideString): HResult; stdcall;
    function OnWorksheetModified(const documentFullNameArg: WideString;
    const documentNameArg: WideString; isModifiedArg: WordBool): HResult; stdcall;
    function OnWorksheetRenamed(const previousFullNameArg: WideString;
    const currentFullNameArg: WideString;
    const previousDocNameArg: WideString;
    const currentDocNameArg: WideString): HResult; stdcall;
    function OnWorksheetInputsOutputsSelected(const documentFullNameArg: WideString;
    const documentNameArg: WideString;
    const inputsArg: IMathcadPrimeInputs;
    const outputsArg: IMathcadPrimeOutputs): HResult; stdcall;
    function OnExit: HResult; stdcall;
    function OnWorksheetStatesGenerated(const documentFullNameArg: WideString;
    const documentNameArg: WideString;
    operationsArg: WorksheetOperations;
    const itemsStatesArg: IMathcadPrimeInputsOutputsStates;
    const conflictsArg: IMathcadPrimeInputsOutputsConflicts): HResult; stdcall;
    function OnWorksheetStatesGenerating(const documentFullNameArg: WideString;
    const documentNameArg: WideString;
    operationsArg: WorksheetOperations;
    const itemsStatesArg: IMathcadPrimeInputsOutputsStates;
    const conflictsArg: IMathcadPrimeInputsOutputsConflicts): HResult; stdcall;
    function OnWorksheetRequestToUpdateInputs(const documentFullNameArg: WideString;
    const documentNameArg: WideString;
    const setterArg: IMathcadPrimeValuesSetter): HResult; stdcall;
    end;

    Now, either on a new separate unit or in your existing project’s unit, declare the class “TMathcadPrimeEvents” with descendance from both “TInterfacedObject” and “IMathcadPrimeEvents2”, like the following:

    1234
    type
    TMathcadPrimeEvents = class(TInterfacedObject, IMathcadPrimeEvents2)
    end;

    Now, the followimg positions should be added to this class :

    • A boolean variable called “ShowEvents”.
    • A constructor method (To initialize the ShowEvents value as “False”).
    • The “TMathcadPrimeEvents” interface methods (copy them from the “Ptc_MathcadPrime_Automation_TLB” unit).
    1234567891011121314151617
    type
    TMathcadPrimeEvents = class(TInterfacedObject, IMathcadPrimeEvents2)
    ShowEvents : Boolean;
    function OnWorksheetSaved(const documentFullNameArg: WideString): HResult; stdcall;
    function OnWorksheetClosed(const documentFullNameArg: WideString; const documentNameArg: WideString): HResult; stdcall;
    function OnWorksheetModified(const documentFullNameArg: WideString; const documentNameArg: WideString; isModifiedArg: WordBool): HResult; stdcall;
    function OnWorksheetRenamed(const previousFullNameArg: WideString; const currentFullNameArg: WideString; const previousDocNameArg: WideString; const currentDocNameArg: WideString): HResult; stdcall;
    function OnWorksheetInputsOutputsSelected(const documentFullNameArg: WideString; const documentNameArg: WideString; const inputsArg: IMathcadPrimeInputs; const outputsArg: IMathcadPrimeOutputs): HResult; stdcall;
    function OnExit: HResult; stdcall;
    function OnWorksheetStatesGenerated(const documentFullNameArg: WideString; const documentNameArg: WideString; operationsArg: WorksheetOperations; const itemsStatesArg: IMathcadPrimeInputsOutputsStates; const conflictsArg: IMathcadPrimeInputsOutputsConflicts): HResult; stdcall;
    function OnWorksheetStatesGenerating(const documentFullNameArg: WideString; const documentNameArg: WideString; operationsArg: WorksheetOperations; const itemsStatesArg: IMathcadPrimeInputsOutputsStates; const conflictsArg: IMathcadPrimeInputsOutputsConflicts): HResult; stdcall;
    function OnWorksheetRequestToUpdateInputs(const documentFullNameArg: WideString; const documentNameArg: WideString; const setterArg: IMathcadPrimeValuesSetter): HResult; stdcall;
    constructor Create;
    end;

    Methods implementation

    Implement the event’s class methods as the following way:

    • In the constructor, set the ShowEvents variable value to “False”.
    • In “IMathcadPrimeEvents2” methods, implement a condition to check if ShowEvents variable is “True” then show a message to provide information about the nature of the event triggered by the COM server. You need to implement only these “IMathcadPrimeEvents2” events :
      • OnExit
      • OnWorksheetClosed
      • OnWorksheetModified
      • OnWorksheetRenamed
      • OnWorksheetSaved

    All these functions have to return the “S_OK” value when their executions have successed. They are used by the COM server to get interfaces and call the appropriate event’s handler.

    For the “IUnknown” interface methods “QueryInterface”, “_AddRef” and “_Release”, their implementations are inherited from the ascending class “TInterfacedObject”, so there is no need to re-implement them.

    For now, your “TMathcadPrimeEvents” class implementation will look like the code below:

    123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
    implementation
    { TMathcadPrimeEvents }
    constructor TMathcadPrimeEvents.Create;
    begin
    ShowEvents := False;
    end;
    function TMathcadPrimeEvents.OnExit: HResult;
    begin
    if (ShowEvents = True) then
    ShowMessage('Mathcad Prime is closed by User');
    end;
    function TMathcadPrimeEvents.OnWorksheetClosed(const documentFullNameArg,
    documentNameArg: WideString): HResult;
    begin
    if (ShowEvents = True) then
    ShowMessage('Worksheet was closed:' + sLineBreak + sLineBreak + #09 + documentFullNameArg + sLineBreak + #09 + documentNameArg);
    end;
    function TMathcadPrimeEvents.OnWorksheetInputsOutputsSelected(
    const documentFullNameArg, documentNameArg: WideString;
    const inputsArg: IMathcadPrimeInputs;
    const outputsArg: IMathcadPrimeOutputs): HResult;
    begin
    end;
    function TMathcadPrimeEvents.OnWorksheetModified(const documentFullNameArg,
    documentNameArg: WideString; isModifiedArg: WordBool): HResult;
    begin
    if (ShowEvents = True) then
    ShowMessage('Worksheet was modified:' + sLineBreak + sLineBreak + #09 + documentFullNameArg + sLineBreak + #09 + documentNameArg);
    end;
    function TMathcadPrimeEvents.OnWorksheetRenamed(const previousFullNameArg,
    currentFullNameArg, previousDocNameArg,
    currentDocNameArg: WideString): HResult;
    begin
    if (ShowEvents = True) then
    ShowMessage('Worksheet was renamed:' + sLineBreak + sLineBreak + 'From:' + #09 + previousFullNameArg + sLineBreak + sLineBreak + 'To:' + #09 + currentFullNameArg);
    end;
    function TMathcadPrimeEvents.OnWorksheetRequestToUpdateInputs(
    const documentFullNameArg, documentNameArg: WideString;
    const setterArg: IMathcadPrimeValuesSetter): HResult;
    begin
    end;
    function TMathcadPrimeEvents.OnWorksheetSaved(
    const documentFullNameArg: WideString): HResult;
    begin
    if (ShowEvents = True) then
    ShowMessage('Worksheet was saved: ' + documentFullNameArg);
    end;
    function TMathcadPrimeEvents.OnWorksheetStatesGenerated(const documentFullNameArg,
    documentNameArg: WideString; operationsArg: WorksheetOperations;
    const itemsStatesArg: IMathcadPrimeInputsOutputsStates;
    const conflictsArg: IMathcadPrimeInputsOutputsConflicts): HResult;
    begin
    end;
    function TMathcadPrimeEvents.OnWorksheetStatesGenerating(
    const documentFullNameArg, documentNameArg: WideString;
    operationsArg: WorksheetOperations;
    const itemsStatesArg: IMathcadPrimeInputsOutputsStates;
    const conflictsArg: IMathcadPrimeInputsOutputsConflicts): HResult;
    begin
    end;
    end.

    Save the event sink unit to be used later.

    Connecting the event sink

    • Add the event sink unit to the uses clauses of your COM client’s main unit.
    • Declare an integer variable such as “FConnectionToken”.
    • In the FormCreate event handler, create an instance of the class “TMathcadPrimeEvents” and assign it to the global “Events” variable.
    1234
    procedure TMainForm.FormCreate(Sender: TObject);
    begin
    MPEvents := TMathcadPrimeEvents.Create;
    end;

    Go to the method for starting Mathcad Prime app, and :

    • Declare an integer variable such as “isMathcadPrimeEvents2Initialized “.
    • After the Application instance creation code, call the method “InterfaceConnect” with the parameters :
      • The Application variable
      • “IMathcadPrimeApplication3” interface
      • The Events variable
      • The “FConnectionToken” variable
    • Implement a condition to check if the Application variable is assigned, then :
      • Call the Application “InitializeEvents2” function with the parameters (the Events variable and “True”), and assign the resulting value to the variable “isMathcadPrimeEvents2Initialized”.
      • Implement a condition to check if the Events variable has a null value or if the “isMathcadPrimeEvents2Initialized” have a value other than zero, then show a failure message “Events initialization failed”.
    • Else, raise an exception with the message “Problem to connect Mathcad Prime”.
    123456789101112131415161718192021222324252627
    procedure TMainForm.BtnStartMathcadClick(Sender: TObject);
    var
    isMathcadPrimeEvents2Initialized : integer;
    begin
    try
    MPApplication := CoApplication.Create;
    MPApplication.Visible := True;
    InterfaceConnect(MPApplication, IMathcadPrimeApplication3, MPEvents, FConnectionToken);
    if (MPApplication <> nil) then
    begin
    isMathcadPrimeEvents2Initialized := MPApplication.InitializeEvents2(MPEvents, True);
    if (MPEvents = nil) or (isMathcadPrimeEvents2Initialized <> 0) then
    ShowMessage('Events initialization failed');
    end
    else
    begin
    raise Exception.Create('Problem to connect Mathcad Prime');
    end;
    except
    on E: Exception do
    ShowMessage('Problem to connect Mathcad Prime: ' + E.Message);
    end;
    end;

    In the FormClose event handler, by using the “try … except … end” instruction :

    • Call the method “InterfaceDisconnect” with the parameters (The Application variable, “IMathcadPrimeApplication3” interface, and the “FConnectionToken” variable).
    • Assign a null value to both Application and Events variables.
    • In the case of an exception, just close the form.
    12345678910
    procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    try
    InterfaceDisconnect(MPApplication, IMathcadPrimeApplication3, FConnectionToken);
    MPApplication := nil;
    MPEvents := nil;
    except
    Close;
    end;
    end;

    Enable/Disable the events

    It would be nice if we implemented something like radio buttons to enable/disable the events handling.

    Drop a TRadioGroup, with two items (Enable, and Disable). Then open the OnClick event and implement a switch case condition:

    • If a selected item is “Enabled”: Write a condition to check the Events variable if it is assigned and it belongs to the “TMathcadPrimeEvents” class, then cast the Events variable to the “TMathcadPrimeEvents” class and set the “ShowEvents” field’s value to “True”. Or, show a message on failure.
    • If a selected item is “Disabled”: 
    123456789101112131415161718
    procedure TMainForm.RGEventsClick(Sender: TObject);
    begin
    case RGEvents.ItemIndex of
    0: begin
    try
    if (MPEvents <> nil) and (MPEvents is TMathcadPrimeEvents) then
    TMathcadPrimeEvents(MPEvents).ShowEvents := True;
    except
    ShowMessage('Can not initial events. Make sure Mathcad Prime is running and worksheet is loaded');
    end;
    end;
    1: begin
    if (MPEvents <> nil) and (MPEvents is TMathcadPrimeEvents) then
    TMathcadPrimeEvents(MPEvents).ShowEvents := False;
    end;
    end;
    end;

    Run the project

    The automation works in Delphi without the need to deploy the “Ptc.MathcadPrime.Automation.dll” library. So just run your project.

    Check the features of your COM Client app:

    • Click “Start Mathcad Prime” and wait until Mathcad Prime opens.
    • Click “Show Mathcad Prime” to bring Mathcad Prime to the foreground.
    • Click “Hide Mathcad Prime” to hide Mathcad Prime.
    • Click “Open Worksheet” to browse to the worksheet that you want to open, then make sure that the worksheet is opened.
    • Click “Open New Worksheet” and make sure that a new worksheet entitled Untitled-n is opened.
    • Click “Close Worksheet” and make sure that the last opened worksheet is closed.
    • To check the events:
      • Click “Enable Events”.
      • Click the worksheet and type something, a message appears indicating that a modified event has occurred, click “OK” to dismiss the message.
      • Click “Save As”, and a message appears indicating that a renamed event has occurred, click “OK” to dismiss the message.
      • Click “Close Worksheet”, and a message appears indicating that a close event has occurred, click “OK” to dismiss the message.
    • Click “Close Mathcad Prime” to close Mathcad Prime, and close the project.

    by Anouar Hamza Cherif, senior content contributor at Softacom

    Subscribe to our newsletter and get amazing content right in your inbox.

    This field is required
    This field is required Invalid email address

    Thank you for subscribing!
    See you soon... in your inbox!

    confirm your subscription, make sure to check your promotions/spam folder

    Subscribe to our newsletter and get amazing content right in your inbox.

    You can unsubscribe from the newsletter at any time

    This field is required
    This field is required Invalid email address

    You're almost there...

    A confirmation was sent to your email

    confirm your subscription, make sure to check
    your promotions/spam folder