用delphi编程，生成完exe文件后，电脑就联网图标正常，但是不能联网，打不开网页，不能用FTP软件

1、复制文件的时候有错误（程序不完整，常见较大的文件）；

2、被感染病毒，杀毒软件禁止运行；

3、缺少相应的控件、运行库、数据引擎等支持（一般应该有提示）；

4、其他（如低档CPU缺乏指令支持等）。

PS：双击打不开？那有没有按右键选“打开”试试啊？别你鼠标坏

用TIdUDPServer控件实现

//窗体创建时候初始化

procedure TForm1.FormCreate(Sender: TObject)

begin

IdUDPServer1.DefaultPort := 8888 //设定本机端口号

IdUDPServer1.Active := true //开启本机IdUDPServer

memo1.Lines.Clear

end

//发送

procedure TForm1.Button1Click(Sender: TObject)

begin

try

IdUDPServer1.Send(对方IP, 对方端口号, memo1.lines.text)

except

on e:exception do

showmessage('发送出错：' + e.Message + #13#10)

end

showmessage(‘发送成功')

memo1.lines.clear

end

//接收

procedure TForm1.IdUDPServer1UDPRead(Sender: TObjectAData: TStream

ABinding: TIdSocketHandle)

var

tmpstr: string

i, isize: integer

bBuffer: array of Byte

begin

tmpstr := ''

isize := AData.Size

setlength(bBuffer, isize)

AData.ReadBuffer(bBuffer[0], isize)

for i:= 0 to isize - 1 do

begin

tmpstr := tmpstr + chr(bBuffer[i])

end

tmpstr := tmpstr + #13#10 + '------------来自 ' + ABinding.PeerIP + ':' + inttostr(ABinding.PeerPort)

memo1.Lines.Add(tmpstr + #13#10)

edit2.text := ABinding.PeerIP //如果要在对方ip的文本框里面自动记录的话，可以用这句

end

//退出时候顺便告知另一台机子已退出

procedure TForm1.FormCloseQuery(Sender: TObjectvar CanClose: Boolean)

begin

try

IdUDPServer1.Send(对方ip, 对方端口, '※对方已退出会话')

except

on e:exception do

showmessage('发送出错：' + e.Message)

end

IdUDPServer1.Active := false

end

//更细的一些内容可自行修改下，大致功能就上述这些，另一台通信计算机的编辑也可用同一个程序

---