J
jmh521
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
str,str1 : string;
begin
str := richedit2.Text;
try
str1 := listview1.Selected.SubItems.Text ;
showmessage(str1);
//str1(本机IP)
idudpserver1.Binding.SendTo(str1, 2020, str[1], length(str));
//这里老出错,过不去.
except
on exceptiondo
begin
exit;
end;
end;
end;
我写明192.168.0.11的话就没事,,但是用变量赋的话就不行了..
var
str,str1 : string;
begin
str := richedit2.Text;
try
str1 := listview1.Selected.SubItems.Text ;
showmessage(str1);
//str1(本机IP)
idudpserver1.Binding.SendTo(str1, 2020, str[1], length(str));
//这里老出错,过不去.
except
on exceptiondo
begin
exit;
end;
end;
end;
我写明192.168.0.11的话就没事,,但是用变量赋的话就不行了..