F fnhkewfg Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-09 #1 我是想在与服务器建立连接前，先测试是否能连接上。能的话就传数据去服务器，连不上就将数据暂存在本地。因为程序运行在自动生产线，万一网络故障的话，要保正数据不丢失，程序不能死 用DELPHI写 紧要救救我
S sadnui Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-09 #2 wininet var s : Integer; begin s := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; if InternetGetConnectedState(@s, 0) then Edit1.Text := yes' else Edit1.Text := 'no'; end;
wininet var s : Integer; begin s := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; if InternetGetConnectedState(@s, 0) then Edit1.Text := yes' else Edit1.Text := 'no'; end;
