iplist.pas

来自「用在局域网中完成机子之间的数据传递」· PAS 代码 · 共 52 行

unit IPList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TfrmIPList = class(TForm)
    List: TListView;
    procedure ListDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIPList: TfrmIPList;

implementation

uses Main,NetUnit;

{$R *.dfm}

procedure TfrmIPList.ListDblClick(Sender: TObject);
begin
  if List.Selected<>Nil then
     begin
     frmMain.SendTo.Text:=List.Selected.SubItems[0];
     Close;
     end;
end;

procedure TfrmIPList.FormShow(Sender: TObject);
var
  MMStream:TMemoryStream;
  msg:String;
begin
  List.Items.Clear;
  MMStream:=TMemoryStream.Create;
  msg:='@_0';
  MMStream.Write(Msg[1],Length(Msg));
  frmMain.NMUDP.RemoteHost:=BroadCastIP;
  frmMain.NMUDP.SendStream(MMStream);
end;

end.