IdUDPServer透过哪个网卡发送数据
IdUDPServer透过哪个网卡发送数据
www.MyException.Cn 发布于:2013-02-19 11:11:40 浏览:56次
附Delphi7部分源码: procedure TIdUDPBase.SendBuffer(AHost: string; const APort: Integer; var ABuffer; const AByteCount: integer); begin AHost := GStack.ResolveHost(AHost); Binding.SendTo(AHost, APort, ABuffer, AByteCount); end; property Binding: TIdSocketHandle read GetBinding;
function TIdUDPServer.GetBinding: TIdSocketHandle; var i: integer; begin if not Assigned(FCurrentBinding) then begin if Bindings.Count < 1 then begin Bindings.Add; end; for i := 0 to Bindings.Count - 1 do begin Bindings[i].AllocateSocket(Id_SOCK_DGRAM); Bindings[i].Bind; end; FCurrentBinding := Bindings[0]; FListenerThread := TIdUDPListenerThread.Create(BufferSize, Self); FListenerThread.Start; BroadcastEnabledChanged; end; Result := FCurrentBinding; end;

浙公网安备 33010602011771号