Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: How to give back to an image using "Net/Link" and "asp.net"?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg46891] Re: How to give back to an image using "Net/Link" and "asp.net"?
  • From: "Hans Michel" <hansjm at bellsouth.net>
  • Date: Fri, 12 Mar 2004 23:40:14 -0500 (EST)
  • References: <c2lph7$9c6$1@smc.vnet.net> <c2p9bo$dm3$1@smc.vnet.net> <c2ro3g$p6i$1@smc.vnet.net>
  • Reply-to: "Hans Michel" <hansjm at bellsouth.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Roger:

Sorry for the spam earlier.

look this worked for me.

WebForm1.aspx HTML

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb"
Inherits="mathGraph.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>WebForm1</title>
  <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
  <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema"
content="http://schemas.microsoft.com/intellisense/ie5";>
 </HEAD>
 <body MS_POSITIONING="GridLayout">
  <form id="Form1" method="post" runat="server">
   <IMG style="Z-INDEX: 101; LEFT: 24px; POSITION: absolute; TOP: 16px"
height="200" alt=""
    src="WebForm2.aspx" width="200"  runat="server">
  </form>
 </body>
</HTML>

WebForm1.aspx vbCodeBehind

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form
Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

End Class

WebForm2.aspx HTML

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm2.aspx.vb"
Inherits="mathGraph.WebForm2" EnableSessionState="False"
enableViewState="False" contentType="image/jpeg"%>

WebForm2.aspx vbCodeBehind

Imports Wolfram.NETLink
Imports System.Drawing
Imports System.Drawing.Imaging

Public Class WebForm2
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
    End Sub
    Dim MathKernel1 As Wolfram.NETLink.MathKernel

    'NOTE: The following placeholder declaration is required by the Web Form
Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        MathKernel1 = New Wolfram.NETLink.MathKernel
        '
        'MathKernel1
        '
        MathKernel1.AutoCloseLink = True
        MathKernel1.CaptureGraphics = False
        MathKernel1.CaptureMessages = False
        MathKernel1.CapturePrint = False
        MathKernel1.GraphicsFormat = "Automatic"
        MathKernel1.GraphicsHeight = 200
        MathKernel1.GraphicsResolution = 96
        MathKernel1.GraphicsWidth = 200
        MathKernel1.HandleEvents = True
        MathKernel1.Input = Nothing
        MathKernel1.Link = Nothing
        MathKernel1.LinkArguments = Nothing
        MathKernel1.PageWidth = 0
        MathKernel1.ResultFormat =
Wolfram.NETLink.MathKernel.ResultFormatType.OutputForm
        MathKernel1.UseFrontEnd = True

        '------------------------------------------
        Dim mlArgs As String

        mlArgs = "-linkmode launch -linkname ""C:/Program Files/Wolfram
Research/Mathematica/5.0/mathkernel.exe"""
        Dim ml As IKernelLink = MathLinkFactory.CreateKernelLink(mlArgs)

        '------------------------------------------
        'Method 1
        'Start of Method 1
        MathKernel1.Link = ml
        If (MathKernel1.IsComputing()) Then
            MathKernel1.Abort()
        Else
            MathKernel1.GraphicsHeight = 200
            MathKernel1.GraphicsWidth = 200
            MathKernel1.CaptureGraphics = True
            MathKernel1.Compute("Plot3D[Sin[x y], {x, -Pi, Pi}, {y, 0,
10}]")
            If (MathKernel1.Graphics.Length > 0) Then
                Dim objBitmap As Bitmap = New
Bitmap(MathKernel1.Graphics(0))
                objBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
            End If
        End If
        'End of Method 1
        '------------------------------------------
        'Method 2
        'Start  of Method 2
        'ml.WaitAndDiscardAnswer()
        'ml.EvaluateToImage("Plot3D[Sin[x y], {x, -Pi, Pi}, {y, 0, 10}]",
300, 200).Save(Response.OutputStream,
System.Drawing.Imaging.ImageFormat.Jpeg)
        'End of Method 2
        '------------------------------------------

        ml.Close()
        ml = Nothing

    End Sub

End Class

Also add this to your web config
as a child of
   <system.web>
add
 <identity impersonate="true"/>

The code behind in WebForm2 does not work please comment out method 1 and
uncomment method 2.

Hans


  • Prev by Date: Re: Excessive Mathematica memory use, revisited.
  • Next by Date: Re: mathematica and image... help me please
  • Previous by thread: Re: How to give back to an image using "Net/Link" and "asp.net"?
  • Next by thread: While or not to While that is the question :)