MSMQ 請問如何用MSMQ的元件 |
|
尚未結案
|
|
omu
一般會員   發表：4 回覆：3 積分：1 註冊：2002-10-28 發送簡訊給我 |
|
|
omu
一般會員 發表：4 回覆：3 積分：1 註冊：2002-10-28 發送簡訊給我 |
不好意思 又打擾到大家 關於我提出的問題後來已經解決了 msmq這東西似乎在台灣的網站討論及介紹的很少 不知各位大大是否有資料或網站或書籍可供分享出來 例如:此些元件的一些屬性方法事件（網站或書籍希望能提供中文的）.
我已解決的是寫入的部分 現在朝讀取邁進 因為我覺得此元件的功能面蠻多的 應沒那麼少 希望各位大大能不吝提共一些資訊供大家分享.
我先把我寫入部分的文章 供大家分享參考:寫入
procedure TForm1.Button1Click(Sender: TObject);
var
MSMQQueueInfo1: TMSMQQueueInfo;
MSMQQueue1: TMSMQQueue;
MSMQMessage1: TMSMQMessage;
IMSMQQ:IMSMQQueue2;
IMSMQMsg:IMSMQMessage2;
ff:Integer;
begin
MSMQQueueInfo1:=TMSMQQueueInfo.Create(self);
MSMQQueue1:= TMSMQQueue.Create(self);
MSMQMessage1:= TMSMQMessage.Create(self);
//DIRECT=OS:ComputerName\private$\QueueName 此為設定遠端路徑已computername設定
//DIRECT=tcp:ip\private$\QueueName 此為設定遠端路徑 已ip設定
MSMQQueueInfo1.FormatName :='DIRECT=os:rb\private$\TT' ;
IMSMQQ:=MSMQQueueInfo1.Open(MQ_RECEIVE_ACCESS ,MQ_DENY_NONE);
MSMQQueue1.ConnectTo (IMSMQQ);
MSMQMessage1.ConnectTo(MSMQQueue1.);
MSMQMessage1.DefaultInterface.Label_ :=FormatDateTime('HHNNSSZZZ',Now);
MSMQMessage1.DefaultInterface.Body :=Memo1.text;
MSMQMessage1.Send(MSMQQueue1.DefaultInterface );
MSMQMessage1.Disconnect ;
MSMQQueue1.Disconnect ;
MSMQQueueInfo1.Disconnect ;
MSMQMessage1.Free ;
MSMQQueue1.Free ;
MSMQQueueInfo1.Free ;
end;
望各位多多提供 謝謝！
|
|
achao6137
一般會員 發表：0 回覆：1 積分：0 註冊：2003-06-23 發送簡訊給我 |
|
|
omu
一般會員 發表：4 回覆：3 積分：1 註冊：2002-10-28 發送簡訊給我 |
發表時間：2002-12-23 15:24:37
IP:61.30.xxx.xxx 未訂閱
系統時間：2024-05-18 5:30:36
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |