Search options (Page 2 of 3)

и еще не понял как можно сделать что бы параметры сервера почты брал из бд

Так же решил добавить еще вывод на почту пункта местоположение. Он присылается но вместо нужного текста кракозябры. не понимает кодировку)

for i := 0 to Form1.TableGrid1.RowCount-1 do
    begin
        procentYellow := Form1.TableGrid1.Cells[8,i];
        begin
            if (ValidInt(procentYellow)) and (StrToInt(procentYellow) < 100) then
            begin
                ip := Form1.TableGrid1.Cells[0,i];
                SendMail('mail', 'rakitin_pa@kunpp.ru', 'AsD18407506', 25, 'test@test.ru', 'rakitin_pa@kunpp.ru', ip + ' ' + 'Мало синего тонера "АО Консист-ОС(Курский)"', ip + ' : '+procentYellow+'%');             // 'smtp server', 'username', 'password', 21, 'yourmail@mail.com', 'mailto@mail.com', 'Subject'    'test@test.ru', 'rakitin_pa@kunpp.ru;ter-gevondyan_sg@kunpp.ru
            end;
        end;
    end;

в итоге несмотря что есть 80% в 1 из 6 принтеров он все равно ничего не шлет

С почтой разобрался но теперь вопрос вот в чем. если нету цветного картриджа в принтере то он просто ничего не показывает но скрипт считает что меньше 7 процентов и информацию присылает. как можно задать что бы если нету информации то не отправлять почту? Так же на желтый и красный отправление посты ругается ""is not a valid integer value.

подобную ошибку ловлю везде где идет текст а не цифры

еще вопрос при запросе 1.3.6.1.2.1.43.11.1.1.6.1.1 получаю ответ Black Cartridge HP CF280X он не хочет это записывать кидает ошибку
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    i: integer;
    ip: string;
    sMaxTiner, sNowTiner, sTipCartBlack: string;
    procent: string;
begin
    Form1.Label1.Caption := 'Starting...';
    Application.ProcessMessages;

    for i := 0 to Form1.TableGrid1.RowCount-1 do
    begin
        ip := Form1.TableGrid1.Cells[0,i];
        if ip <> '' then
        begin
            Form1.Label1.Caption := ip;
            sMaxTiner := GetMIBValue(ip, '1.3.6.1.2.1.43.11.1.1.8.1.1'); // подставьте OID значение для получения максимума тонера
            sNowTiner := GetMIBValue(ip, '1.3.6.1.2.1.43.11.1.1.9.1.1'); // подставьте OID значение для получения текущего значения тонера
            sTipCartBlack := GetMIBValue(ip, '1.3.6.1.2.1.43.11.1.1.6.1.1'); // подставьте OID значение для получения типа картриджа черного
            if sMaxTiner <> '' then SQLExecute('UPDATE printer SET tinerMaxOidBlack = '+sMaxTiner+' WHERE id='+IntToStr(Form1.TableGrid1.dbIndexToID(i)));
            if sNowTiner <> '' then SQLExecute('UPDATE printer SET tinerNowOidBlack = '+sNowTiner+' WHERE id='+IntToStr(Form1.TableGrid1.dbIndexToID(i)));
            if sTipCartBlack <> '' then SQLExecute('UPDATE printer SET TipCartBlack = '+sTipCartBlack+' WHERE id='+IntToStr(Form1.TableGrid1.dbIndexToID(i)));
        end;
    end;

не пойму где ошибка

smtp сервер имеется

пример таблицы

а как можно сделать так что бы занеся в таблицу в 1 столбик ip устройства по нажатию кнопки он сделал на него snmp опрос и получив данные записывал в таблицу. и второе брал из таблицы данные проводил над этими данными математические действия и заносил в другой столбец эти данные. это возможно?

требуется на закладке 1 найти пользователя а на 2 закладке что бы в таблице отображалось город присвоенный этому пользователю(по факту будут другие поля но мне нужно понять как такое сделать и можно ли)