/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
MSMQ eller Message Queue
Fra :
Rudi Hansen
Dato :
10-06-02 14:07
Er der nogen her der kan give mig et simpelt eksempel på hvordan man bruger
MSMQ fra VB?
guid (
12-06-2002
)
Kommentar
Fra :
guid
Dato :
12-06-02 01:00
"Rudi Hansen" <Rudi.Hansen@birkelan.dk> wrote in message
news:_v1N8.29220$N46.1048339@news010.worldonline.dk...
> Er der nogen her der kan give mig et simpelt eksempel på hvordan man
bruger
> MSMQ fra VB?
>
>
Jeg har da 2 eksempler her. Det første opretter en ny kø og indsætter en
meddelse mens det andet eksempel henter fra denne kø. Håber du kan bruge det
:)
Private Sub SendMessage_Click()
On Error GoTo SendMessageErr
Dim oQInfo As MSMQ.MSMQQueueInfo
Dim oQueue As MSMQ.MSMQQueue
Dim oMessage As MSMQMessage
' Initialiser MSMQQueueInfo objektet
Set oQInfo = New MSMQQueueInfo
oQInfo.PathName = ".\PRIVATE$\Test"
' Laver nu en queue
oQInfo.Label = "Test Queue"
oQInfo.Create
' Åbner queueen så vi kan sende til den
Set oQueue = oQInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
' Hvis det lykkedes at åbne
If oQueue.IsOpen Then
' Initialisere MSMQMessage objektet
Set oMessage = New MSMQMessage
With oMessage
.Label = "Test message"
.Priority = 7 ' Default er 3
.Body = "Vi tester"
.Send oQueue
End With
Else
' Det lykkedes ikke at åbne queueen
MsgBox "Det lykkedes ikke at åbne queueen."
Exit Sub
End If
' hvis alt er gået godt lukker vi queueen
oQueue.Close
MsgBox "En message er sendt."
Exit Sub
SendMessageErr:
' Hvis queuen findes i forvejen fortsætter vi.
If Err.Number = MQ_ERROR_QUEUE_EXISTS Then
Resume Next
End If
' Håndter andre fejl
MsgBox Err.Description
End Sub
Og her henter vi fra vores kø:
Private Sub Hentmessage_Click()
On Error GoTo HentmessageErr
Dim oQinfo As MSMQ.MSMQQueueInfo
Dim oQueue As MSMQ.MSMQQueue
Dim oMessage As MSMQ.MSMQMessage
Set oQinfo = New MSMQQueueInfo
oQinfo.PathName = ".\PRIVATE$\Test"
' Åbner queueen så vi kan modtage
Set oQueue = oQinfo.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE)
' Hvis det lykkedesat åbne queueen henter vi en message
If oQueue.IsOpen Then
Set oMessage = oQueue.ReceiveCurrent(ReceiveTimeout:=1000)
Debug.Print "Label: " & oMessage.Label & vbCrLf
Debug.Print "Body: " & oMessage.Body
Else
MsgBox "Det lykkedes ikke at åbne queueen"
Exit Sub
End If
oQueue.Close
Exit Sub
HentmessageErr:
MsgBox Err.Description
End Sub
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408926
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.