delphi中編制分布式多層應(yīng)用系統(tǒng)服務(wù)資源瀏覽器(編輯修改稿)
2025-08-20 17:17 本頁面
【文章內(nèi)容簡介】 alIp() then := else := 。 //設(shè)置登陸是否提示 := 。 //設(shè)置端口號 := 。 //取得服務(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寫如下代碼: procedure (Sender: TObject)。var I : Integer。 Name: string。 Names: OleVariant。 T1, T2: TTime。begin if = 1 then begin MessageBox(Handle, 39。請選擇所使用的服務(wù)名稱39。, 39。提示39。, Mb_Ok + Mb_IconInformation)。 Exit。 end。 。 //關(guān)閉，防止重復(fù)打開 。 try //指定SocketCn的服務(wù)名稱 := []。 //計算連接時間 T1 := Now()。 。 T2 := Now()。 SetStatusText(1, 39。連接用時：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用時: 39。 + TimeToStr(T2 T1))。 end。 if then := True。 //設(shè)置關(guān)閉按鈕可用 except Raise。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1