delphi中編制分布式多層應(yīng)用系統(tǒng)服務(wù)資源瀏覽器(編輯修改稿)
2025-08-20 17:17 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 alIp() then := else := 。 //設(shè)置登陸是否提示 := 。 //設(shè)置端口號(hào) := 。 //取得服務(wù)列表 Cn := 。 //如何將OleVariant字符串?dāng)?shù)組加入ServerListBox中 For I := VarArrayLowBound(Cn, 1) to VarArrayHighBound(Cn, 1) do begin Str := String(Cn[I])。 (Str)。 end。 := True。 //設(shè)置連接按鈕可用 except Raise。 end。end。 4．在Caption為連接按鈕的OnClick寫(xiě)如下代碼: procedure (Sender: TObject)。var I : Integer。 Name: string。 Names: OleVariant。 T1, T2: TTime。begin if = 1 then begin MessageBox(Handle, 39。請(qǐng)選擇所使用的服務(wù)名稱(chēng)39。, 39。提示39。, Mb_Ok + Mb_IconInformation)。 Exit。 end。 。 //關(guān)閉，防止重復(fù)打開(kāi) 。 try //指定SocketCn的服務(wù)名稱(chēng) := []。 //計(jì)算連接時(shí)間 T1 := Now()。 。 T2 := Now()。 SetStatusText(1, 39。連接用時(shí)：39。 + TimeToStr(T2 T1))。 //取得Provider if then begin := SocketCn。 T1 := Now()。 Names := 。 T2 := Now()。 For I := VarArrayLowBound(Names, 1) to VarArrayHighBound(Names, 1) do begin Name := string(Names[I])。 (Name)。 end。 SetStatusText(2, 39。取得Providers用時(shí): 39。 + TimeToStr(T2 T1))。 end。 if then := True。 //設(shè)置關(guān)閉按鈕可用 except Raise。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1