可以用winsock进行通讯来控制终端,我已发了一个程序到你的信箱请查阅!!!
(发信息程序)procedure form1.serversocketaccept(sender:tobject,socket:tcustomwinsocket);
begin
isserver:=true;
end;
(获得ip地址程序)
procedure TForm1.FormCreate(Sender: TObject);
var wversionrequested:word;
wsadata:twsadata;
p
hostent;s:array[0..128] of char;
p2
char;
begin
wversionrequested:=makeword(1,1);
wsastartup(wversionrequested,wsadata);
gethostname(@s,128);
p:=gethostbyname(@s);
{edit2.text:=datetimetostr(date);}{p^.h_name;}
p2:=inet_ntoa(pinaddr(p^.h_addr_list^)^);
FORM1.CAPTION:='东南大学网络考试系统---客户终端:'+p2;
end;
.........
其他省略