Как получить доступ к нативной dll в приложении lightswitch - PullRequest
Новая
       20

Как получить доступ к нативной dll в приложении lightswitch

1 голос
/ 15 ноября 2011

Я пытаюсь распечатать штрих-код, используя следующий код в приложении Lightswitch 

Imports System.Security

Namespace LightSwitchApplication


    Public Class EditableAS_TempStickersGrid

        'Declaration of Private Subroutine
        Private Declare Sub openport Lib "tsclib.dll" (ByVal PrinterName As String)
        Private Declare Sub closeport Lib "tsclib.dll" ()
        Private Declare Sub sendcommand Lib "tsclib.dll" (ByVal command_Renamed As String)
        Private Declare Sub setup Lib "tsclib.dll" (ByVal LabelWidth As String, ByVal LabelHeight As String, ByVal Speed As String, ByVal Density As String, ByVal Sensor As String, ByVal Vertical As String, ByVal Offset As String)
        Private Declare Sub downloadpcx Lib "tsclib.dll" (ByVal Filename As String, ByVal ImageName As String)
        Private Declare Sub barcode Lib "tsclib.dll" (ByVal X As String, ByVal Y As String, ByVal CodeType As String, ByVal Height_Renamed As String, ByVal Readable As String, ByVal rotation As String, ByVal Narrow As String, ByVal Wide As String, ByVal Code As String)
        Private Declare Sub printerfont Lib "tsclib.dll" (ByVal X As String, ByVal Y As String, ByVal FontName As String, ByVal rotation As String, ByVal Xmul As String, ByVal Ymul As String, ByVal Content As String)
        Private Declare Sub clearbuffer Lib "tsclib.dll" ()
        Private Declare Sub printlabel Lib "tsclib.dll" (ByVal NumberOfSet As String, ByVal NumberOfCopy As String)
        Private Declare Sub formfeed Lib "tsclib.dll" ()
        Private Declare Sub nobackfeed Lib "tsclib.dll" ()
        Private Declare Sub windowsfont Lib "tsclib.dll" (ByVal X As Short, ByVal Y As Short, ByVal fontheight_Renamed As Short, ByVal rotation As Short, ByVal fontstyle As Short, ByVal fontunderline As Short, ByVal FaceName As String, ByVal TextContent As String)


        Private Sub Print_Stickers_Execute()
            ' Write your code here.

            printSticker("244001", "", "test code", "")
            For Each sticker In AS_TempStickers

                'code to print barcode

                Dim p As AS_ProductDetail = New AS_ProductDetail
                p.SerialNo = sticker.SerialNo
                p.dashCommerce_Store_Sku = sticker.dashCommerce_Store_Sku
                p.CurrentLocation = "STICKER"

                sticker.Delete()
                Me.Save()

            Next

        End Sub
        
        Private Sub printSticker(code1 As String, code2 As String, str1 As String, str2 As String)



            Dim B1 As String = code1
            Dim WT1 As String = str1

            'Connect to a printer and set up the parameters'
            Call openport("TSC TTP-244 Plus")
            Call setup("102", "64", "4.0", "7", "0", "2", "0")
            Call clearbuffer()
            Call sendcommand("DIRECTION 1")
            Call sendcommand("SET CUTTER OFF") ' Or the number of printout per cut'



            Call barcode("40", "300", "128", "80", "1", "0", "2", "2", B1)

            'Print a text with Windows Arial font'

            Call windowsfont(120, 440, 40, 0, 0, 0, "ARIAL", WT1)

            'The number of printout sets&copies'

            Call printlabel("1", "1")

            'Disconnect with the printer'

            Call closeport()


        End Sub
    End Class

End Namespace

Я получаю эту ошибку: 

Methods must be security critical or security safe-critical to call native code.

Я понимаю, это из-заБезопасность встроена в .net Framework v4, я также пытался добавить атрибут securitySafeCritical, но, похоже, он полностью игнорируется.

Что я делаю не так ?.Я и абсолютный новичок в Silverlight и LightSwitch.Это приложение должно работать из браузера.

1 Ответ

0 голосов
/ 25 ноября 2011

Я предполагаю, что вы пытаетесь сделать это из клиентского приложения. Если это так, то это невозможно. LightSwitch основан на Silverlight 4, который не поддерживает вызов собственного кода. Он поддерживает вызов только собственного кода через COM Automation, используя класс AutomationFactory . См

...