snmp мониторинг (Page 2 of 4)

добавил что бы на почту еще ФИО из таблици отправлял в итоге присылает 10.7.39.51 а аЕб‡аКаИаМаАаН ааЛаЕаКбаАаНаДб€ ааМаИаЛбŒаЕаВаИб‡ Magenta Cartridge HP CE403A
:7%
как исправить кракозябры?

Была ошибка в программе, скачайте пожалуйста последнюю бета версию снова
https://www.dropbox.com/s/abazohrbdt3p9 … a.zip?dl=0

Сохраните параметры почты в БД, затем зная ID записи можно получить эти данные и подставить в фунцию SendMail, пример

var
   sServer, sUserName, sFrom, sTo, sLogin, sPassword: string;
begin

   sServer := SQLExecute('SELECT sServer FROM tablename WHERE id=1');
   sUserName := SQLExecute('SELECT sUserName FROM tablename WHERE id=1');
   sFrom := SQLExecute('SELECT sFrom FROM tablename WHERE id=1');
   sTo := SQLExecute('SELECT sTo FROM tablename WHERE id=1');
   sPassword := SQLExecute('SELECT sPassword FROM tablename WHERE id=1');

SendMail(sServer, sUserName, sPassword, 25, sFrom, sTo, ip + ' ' + 'Мало синего тонера "АО Консист-ОС(Курский)"', ip + ' : '+procentYellow+'%');  

Имеете ввиду установить поменьше таймаут?

SNMP.ReceiveTimeout := 5000; // по умолчанию 5 сек, попробуйте его уменьшить

в принципе есть параметр статус с ошибками там выдает от 1 до 3 но вот как сделать что если ответа не получил записать 0?

В принципе мне надо что бы отображался принтер онлайн или нет. можно как вариант использовать oid статуса принтера который в ответ присылает 1 или 3. Вот как вариант решения я предложил что бы этот прараметр записывать и красить зеленым цветом то что больше 1. но вот как сделать что если он не получил ответ на oid то записать 0. Если есть какой другой вариант буду раз услышать) Спасибо заранее

получается что то типо такого?

 begin
        ip := Form1.TableGrid1.Cells[0,i];
        if ip <> '' then
        begin
            Form1.Label1.Caption := ip;
            sStatus := GetMIBValue(ip, '1.3.6.1.2.1.43.11.1.1.8.1.1');
            if sStatus = '' then sStatus := '0';
                begin 
                   if sStatus <> '' then SQLExecute('UPDATE printer SET Status = '''+sStatus+''' WHERE id='+IntToStr(Form1.TableGrid1.dbIndexToID(i)));
               end;
         end;

Я правильно понял?

Подскажите можно указать место хранения sql базы? предположим диск D

Как можно исправить данную ошибку. Перевел проект на MySQL

и еще вопрос можно ли как то сделать? выбор типа принтера цветной или черно белый и в зависимости от выбора будет опрашивать oid только 1 картриджа или чб? вкратце сделать выбор какие oid будет опрашивать на каждый принтер

Попробуйте в SQL запросах использовать функцию escape_special_characters, которая экранирует спец символы, которые вызывают ошибку. Пример использования

if sPrintModel <> '' then SQLExecute('UPDATE printer SET PrintModel = '''+escape_special_characters(sPrintModel)+''' WHERE id='+IntToStr(Form1.TableGrid1.dbIndexToID(i)));  // значение для получения модели принтера