Pytanie : VB.NET - Nowy MultiThreading - Parametr Hrabiowski Niedopasowanie

Cześć Rozwijać,

I am nowy wielo- threading i wymagać pomoc w ten zastosowanie i rozwijać bieg smoother.

I utrzymanie the Parametr Obliczenie Niedopasowanie błąd na the Przywoływać () rozkaz, ale móc rozwijać I robić źle… Próbować/> rzecz ale żadny avail.

The kod the formularzowy omawiany być attached.

All the aktualizowanie być właściwie na ten specyfik forma, żadny aktualizowanie brać miejsce na the główny MDIParent, i the okręt podwodny UpdateBlacklist i UpdateGreylist właściwie przechodzić jakaś parametr więc I być zbyt pewny dokładnie dokąd i być wrong.

Any pomoc ty móc być ogromnie appreciated

Thanks w Advance

Cheers,
Ray.



(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:

Imports System.Threading
Import System.Data.SqlClient

Społeczeństwo Klasowy frmTradingCentral


    Intymny Delegat Okręt podwodny UpdateBlacklistDelegate (ByVal BlacklistObject Przedmiot)
    Intymny Delegat Okręt podwodny UpdateGreylistDelegate (ByVal GreylistObject Przedmiot)

    Intymny Okręt podwodny frmTradingCentral_Load (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się MyBase.Load

        Ciemnawy ThreadUpdateBlacklist Jako Nowy System.Threading.Thread (AddressOf UpdateBlacklist)
        Ciemnawy ThreadUpdateGreylist Jako Nowy System.Threading.Thread (AddressOf UpdateGreylist)

        ThreadUpdateBlacklist.Start ()
        ThreadUpdateGreylist.Start ()

        Z tmrRefreshBlacklist
            . Interwał = 30000
            . Umożliwiać = Prawdziwy
            . Zaczynać ()
        Kończyć Z

        Z tmrRefreshGreylist
            . Interwał = 30000
            . Umożliwiać = Prawdziwy
            . Zaczynać ()
        Kończyć Z

    Kończyć Okręt podwodny

    Intymny Okręt podwodny UpdateBlacklist ()

        Ciemnawy UpdateBlacklistThreadID Jako Integer = Threading.Thread.CurrentThread.ManagedThreadId
        Ciemnawy BlacklistDelegate Jako Nowy UpdateBlacklistDelegate (AddressOf UpdateBlacklist)
        Ciemnawy BlacklistParams (1) Przedmiot
        BlacklistParams ((0)) = rleTradingCentral_BlacklistStatus
        BlacklistParams (1) = rssTradingCentral_Blacklist

        Jeżeli Me.InvokeRequired Wtedy
            '************* NIE UDAĆ SIĘ TUTAJ ****************
            Me.Invoke (BlacklistDelegate, BlacklistParams)
            '************* NIE UDAĆ SIĘ TUTAJ ****************
        Inny
            'Ładunek/Refesh Czarna lista Stół
            Me.ViewBlacklistedClientsTableAdapter.Connection.ConnectionString = My.Settings.eTASConnectionString
            Jeżeli Me.ViewBlacklistedClientsTableAdapter.Connection.State <> ConnectionState.Open Wtedy
                Z Me.ViewBlacklistedClientsTableAdapter
                    . Connection.Open ()
                    . Pełnia (Me.DsBlacklistedClients.viewBlacklistedClients)
                    . Connection.Close ()
                Końcówka Z
            Inny
                Z Me.ViewBlacklistedClientsTableAdapter
                    . Pełnia (Me.DsBlacklistedClients.viewBlacklistedClients)
                    . Connection.Close ()
                Końcówka Z
            Kończyć Jeżeli

            Me.ViewBlacklistedClientsBindingSource.ResetBindings (Prawdziwy)

            rgvTradingCentral_Blacklist.Columns ((0)) .HeaderText = "Blacklisted Klient"
            rgvTradingCentral_Blacklist.MasterGridViewTemplate.AutoSizeColumnsMode = Telerik.WinControls.UI.GridViewAutoSizeColumnsMode.Fill
            Dla RgvTradingCentral_Blacklist.Columns BlackListColumn Jako Telerik.WinControls.UI.GridViewDataColumn W rgvTradingCentral_Blacklist.Columns
                BlackListColumn.AllowResize = Fałszywy
            Następnie

            Z rgvTradingCentral_Blacklist
                . Aktualizacja ()
                . Odświeżać ()
            Kończyć Z

            BlacklistParams ((0)). Tekst = "Ostatni Uaktualniony: " & FormatDateTime (Teraz, DateFormat.LongTime)
            BlacklistParams (1).Refresh ()

        Kończyć Jeżeli

    Kończyć Okręt podwodny

    Intymny Okręt podwodny UpdateGreylist ()

        Ciemnawy UpdateGreylistThreadID Jako Integer = Threading.Thread.CurrentThread.ManagedThreadId
        Ciemnawy GreylistDelegate Jako Nowy UpdateGreylistDelegate (AddressOf UpdateGreylist)
        Ciemnawy GreylistParams (1) Przedmiot
        GreylistParams ((0)) = rleTradingCentral_GreylistStatus
        GreylistParams (1) = rssTradingCentral_Greylist

        Jeżeli Me.InvokeRequired Wtedy
            '************* NIE UDAĆ SIĘ TUTAJ ****************
            Me.Invoke (GreylistDelegate, GreylistParams)
            '************* NIE UDAĆ SIĘ TUTAJ ****************
        Inny
            'Ładunek/Refesh Greylist Stół
            Me.ViewGreylistedClientsTableAdapter.Connection.ConnectionString = My.Settings.eTASConnectionString
            Jeżeli Me.ViewGreylistedClientsTableAdapter.Connection.State <> ConnectionState.Open Wtedy
                Z Me.ViewGreylistedClientsTableAdapter
                    . Connection.Open ()
                    . Pełnia (Me.DsGreylistedClients.viewGreylistedClients)
                    . Connection.Close ()
                Końcówka Z
            Inny
                Z Me.ViewGreylistedClientsTableAdapter
                    . Pełnia (Me.DsGreylistedClients.viewGreylistedClients)
                    . Connection.Close ()
                Końcówka Z
            Kończyć Jeżeli

            Me.ViewGreylistedClientsBindingSource.ResetBindings (Prawdziwy)

            Me.rgvTradingCentral_Greylist.Columns ((0)) .HeaderText = "Greylisted Klient"
            rgvTradingCentral_Greylist.MasterGridViewTemplate.AutoSizeColumnsMode = Telerik.WinControls.UI.GridViewAutoSizeColumnsMode.Fill
            Dla RgvTradingCentral_Greylist.Columns GreyListColumn Jako Telerik.WinControls.UI.GridViewDataColumn W rgvTradingCentral_Greylist.Columns
                GreyListColumn.AllowResize = Fałszywy
            Następnie

            Z rgvTradingCentral_Greylist
                . Aktualizacja ()
                . Odświeżać ()
            Kończyć Z

            GreylistParams ((0)). Tekst = "Ostatni Uaktualniony: " & FormatDateTime (Teraz, DateFormat.LongTime)
            GreylistParams (1).Refresh ()
        Kończyć Jeżeli

    Kończyć Okręt podwodny

    Intymny Okręt podwodny tmrRefreshBlacklist_Tick (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się tmrRefreshBlacklist.Tick
        UpdateBlacklist ()
    Końcówka Okręt podwodny

    Intymny Okręt podwodny tmrRefreshGreylist_Tick (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się tmrRefreshGreylist.Tick
        UpdateGreylist ()
    Końcówka Okręt podwodny
Końcówka Klasa

Odpowiedź : VB.NET - Nowy MultiThreading - Parametr Hrabiowski Niedopasowanie

Cześć,

1) BES używać jeden MAPI klient na BES serwer. W twój skrzynka, dokąd ty mieć 10 BES serwer, ty mieć 10 MAPI klient.

2) NSPI używać the MAPI klient informacja od the książka telefoniczna. Bez NSPI związek, the MAPI klient funkcjonować i BES zatrzymywać stosownie.

3) Zakładać twój 10,000 użytkownik rozprzestrzeniać równo nad the 10 BES serwer, ty potrzebować the reg klucz 10,000 (1000 związek na serwer X 10 serwer)

4) Tak, ty móc wielokrotność BES usługowy konto ale ono być usługowy współczynnik usługowy konto serwer. W twój skrzynka, ty móc 10 różny usługowy konto ((1) na serwer). W ten skrzynka, ty móc the reg klucz 1000. Tutaj być ewidencyjny na jak ty zmieniać the usługowy konto - http://www.blackberry.com/btsc/viewContent.do?externalId=KB04293&sliceId=1

JJ
Inne rozwiązania  
 
programming4us programming4us