ping

[BokarevSS]

MS Axapta 3.0 sp5fp2vat

Как реализовать команду ping из аксапты. Для проверки правильно ли введен адрес сайта?

[Lucky13]

А зачем вам ping? WinInet.internetOpenURL чем не подходит?

[BokarevSS]

Мне необходимо проверить введеный email, и для этого я хочу хотя бы выяснить, правильно ли введен почтовик.
P. S. У меня Ax3.0

[Player1]

Пинг из Аксапты не вернет в Аксапту значение достучался или нет

WinAPI::shellExecute('cmd.exe', '/c ping 192.168.0.100');

Если нужно проверить лежащую на сайте xml, то

XMLDocument         xmlDoc = new XMLDocument();
if (xmlDoc.load(url))
...

Иначе действительно используйте класс WinInet (он есть в 3.0)
Программное скачивание файлов из Internet

[belugin]

Цитата:

Сообщение от Player1

Пинг из Аксапты не вернет в Аксапту значение достучался или нет

Можно перенаправить выхлоп в файл (ping ..... >c:\myfile.txt

[gl00mie]

Цитата:

Сообщение от BokarevSS

Как реализовать команду ping из аксапты. Для проверки правильно ли введен адрес сайта?

Цитата:

Сообщение от BokarevSS

Мне необходимо проверить введеный email, и для этого я хочу хотя бы выяснить, правильно ли введен почтовик.

Объясните, пожалуйста, почему правильность ввода email нужно проверять с помощью ping'а? Ping использует протокол ICMP, предназначенный для мониторинга и управления сетью, а корректность введенного адреса email зависит скорее от протокола DNS. В рамках DNS может быть несколько записей для одного итого же имени, в т.ч. A-запись и MX-запись, причем они могут ссылаться на совершенно разные IP-адреса. В общем случае используется A-запись (в т.ч. ping использует ее), но для отправки почты нужна именно MX-запись. Если есть даже такое доменное имя (A-запись), но нет MX-записи, то почта по этому доменному имени никуда не уйдет. Если есть MX-запись и по соответствующему адресу исправно работает SMTP-сервер, то там может быть отключена отправка ICMP-пакетов вовне, иными словами, этот сервер будет принимать от вас почту, но не будет отвечать вам на ping'и.
Кроме того, даже при корректном доменном имени после @ название почтового ящика может быть задано некорректно, и тогда что толку от этих всех проверок доменного имени?

PS. Для примера посмотрите на то, что говорит nslookup (а он более уместен для проверок DNS-имен, чем ping) в случае mail.ru:

C:\>nslookup mail.ru
Name:     mail.ru
Addresses:  94.100.180.201
          217.69.139.199
          217.69.139.201
          94.100.180.199
 
C:\>nslookup -q=mx mail.ru
mail.ru MX preference = 10, mail exchanger = mxs.mail.ru
mxs.mail.ru internet address = 94.100.176.20

Адреса совершенно разные, в моем случае ping подхватывает 94.100.180.201, при том что этот адрес к именно SMTP-серверу mail.ru никак не относится.

[mayk]

Цитата:

Сообщение от BokarevSS

Мне необходимо проверить введеный email, и для этого я хочу хотя бы выяснить, правильно ли введен почтовик.
P. S. У меня Ax3.0

Для этого отправляется письмо с сообщением "Для подтверждения валидности адреса щелкните сюда". А пинговать не надо: не все сервера пропускают пинги. Например, ping microsoft.com ни к чему не приведет.

internetOpenURL тоже не поможет. Он работает с http или ftp. Почтовый сервер может стоять сам по себе.

[b_nosoff]

Через WinAPI можно попробовать приконнектиться к порту используя Winsock.dll

[lvan]

напомнило сагу о X, Y, и Z

[michel1971]

Цитата:

Сообщение от b_nosoff

Через WinAPI можно попробовать приконнектиться к порту используя Winsock.dll

вот тут как узнать код ошибки при подключении к базе?
есть реализация через ICMP.DLL

[virhundo]

не надо никакого вывода в файл

     COM         wsh;
     str           _cmdStr;
     str         fullCommand, clearBuffCmd;
    DLL         winApiDLL              = new DLL('user32');
    DLLFunction openClipboard          = new DLLFunction(winApiDLL, 'OpenClipboard');
    DLLFunction getClipboardData       = new DLLFunction(winApiDLL, 'GetClipboardData');
    DLLFunction enumClipboardFormats   = new DLLFunction(winApiDLL, 'EnumClipboardFormats');
    DLLFunction closeClipboard         = new DLLFunction(winApiDLL, 'CloseClipboard');
    int         format;
    str         resultStr;
    ;
     openClipboard.returns(ExtTypes::DWord);
     openClipboard.arg(ExtTypes::DWord);
     enumClipboardFormats.arg(ExtTypes::DWord);
     enumClipboardFormats.returns(ExtTypes::DWord);
     getClipboardData.arg(ExtTypes::DWord);
     getClipboardData.returns(ExtTypes::String);
     closeClipboard.returns(ExtTypes::DWord);
     closeClipboard.arg();
 
      clearBuffCmd   =  'cmd /c echo off | clip';
      _cmdStr =  "tracert 192.168.59.186";
      fullCommand = 'cmd /c ' +'chcp 437 && '+ _cmdStr + ' | clip' ; 
     
  wsh             = new COM('WScript.Shell');
 
     wsh.Run(clearBuffCmd, 1, true);
     wsh.Run(fullCommand, 1, true);
     
     sleep(100);
     wsh.finalize();
     if(openClipboard.call(0))
     {
        format = enumClipboardFormats.call(0);
        while(format)
        {
            switch(format)
            {
                case 1: //CF_TEXT
                case 7: //CF_OEMTEXT
                case 13: //CF_OEMTEXT CF_UNICODETEXT
                     resultStr = getClipboardData.call(format); // результат tracert или ping
                     break;
                default:
                    break;
            }
          format = enumClipboardFormats.call(format);
        }
         closeClipboard.call();
     }

[belugin]

Цитата:

Сообщение от virhundo

не надо никакого вывода в файл

Клипбоард пользователя потерт.

Что только не делают люди чтобы не пользоваться \System Documentation\Classes\TextBuffer\fromClipboard

[belugin]

Кстати, если уж пользоваться WshShell, то можно и получать оттуда stdout и stderror