有这个提示：连接中间层错误 觉得应该是个简单的问题，可一直找不出原因，哪位有时间，帮忙回一下，谢谢！ procedure TdmClient.DataModuleCreate(Sender: TObject); begin socketconnection1.LoginPrompt:=False; socketconnection1.Connected:=False; if not socketconnection1.Connected then begin try with simpleobjectbroker1 do begin if Servers.Count = 0 then begin Servers.Add; Servers.Items[0].ComputerName:=SServerIP; end else begin Servers.Add; Servers.Items[Servers.Count-1].ComputerName:=SServerIP; end; end; simpleobjectbroker1.LoadBalanced:=True; socketconnection1.ObjectBroker:=simpleobjectbroker1; socketconnection1.ServerGUID:='{C3E65EEF-9C13-436C-AA24-C2E1BAF783D7}'; socketconnection1.ServerName:='ServerMain.untPooler'; socketconnection1.Connected:=True; except on E:exception do begin messagedlg('连接中间层错误 ! ',mtError,[mbok],0); abort; end; end; end; if socketconnection1.Connected then isScoketconnectionopen:=True else isScoketconnectionopen:=False; end;
