remotecltunt.pas

絮语2007视频聊天软件源程序.仅供参考

unit remotecltunt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
  IdUDPBase, IdUDPServer;

type
  Tremotecltfrm = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    udpserver: TIdUDPServer;
    AntiFreeze: TIdAntiFreeze;
    procedure FormCreate(Sender: TObject);
  private
    procedure initform;
    { Private declarations }
  public
    firendid:string;
    svrip,destip:string;
    svrport,destport:integer;
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure Tremotecltfrm.initform;
begin
udpserver.Bindings.clear;
udpserver.BufferSize:=65536;
udpserver.ThreadedEvent:=true;
with udpserver.Bindings.add do
  begin
  ip:='0.0.0.0';
  port:=0;
  end;
udpserver.Active:=true;
udpserver.Binding.UpdateBindingLocal;
end;

procedure Tremotecltfrm.FormCreate(Sender: TObject);
begin
initform;
end;

end.