Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 17

Тема: Чайнику подскажите 151 + делфи + ОИэвен

  1. #1

    Red face Чайнику подскажите 151 + делфи + ОИэвен

    Пытаюсь изучать работу через owen_io.dll
    Использую owen_io.dll , пишу на делфи 2007 прибор ТРМ151-03.
    пример который выложен на сайте рассмотрел)))
    Вопрос в следующем:
    OpenPort(COM_4,spd_19200,prty_NONE,databits_8,stop bit_1,0) порт открыт
    ShowMessage(intToStr(ReadSInt(16,8,'dEv',val,0))); возвращает -100
    если порт закрыт то:
    ShowMessage(intToStr(ReadSInt(16,8,'dEv',val,0))); возвращает -2

    подскажите что не так?
    хочу получить адрес прибора в переменную val но туда пишет каждый раз разные значения или надо преобразование типов делать в val?
    заранее прошу не ругать за делитанские вопросы
    Последний раз редактировалось valeriy vm; 14.08.2009 в 09:31.

  2. #2

    По умолчанию

    1) Надо не 'dEv', а 'dEv '
    2) 'dev ' - возвращает строку, а не число со знаком - так что читайте нужный тег

  3. #3

    По умолчанию

    изменил 'dEv', на 'dEv ' спс не заметил
    но все равно -100 возвращает

  4. #4

    По умолчанию

    Еще раз
    каждый параметр имеет ТИП, и каждая функция читает параметр соответствующего ТИПА. Т.е. прочитать строковый тег как знаковое число не получится!!!!!!

  5. #5

    По умолчанию

    Добрый день
    помогите как правильно считать параметр 'dEv '?
    я делаю следующим образом но что-то не получается:
    var
    val:string;
    comandchar;
    params:array [0..7] of char;
    p_sz:integer;
    i:integer;
    begin
    Memo1.Clear;
    InitLib;
    val:='';
    comand := 'dEv ';
    try
    ShowMessage(intToStr(OwenIO(16,0,1,comand,params,p _sz)));
    for I := 0 to 7 do
    begin
    memo1.Lines.Add(Char(params[i]));
    end;
    label1.Caption:=val;
    except on E: Exception do
    Begin
    label1.Caption:='Неудачно прочитал данные';
    End;
    end;

    возвращает 0
    считываю массив в нем одно и тоже не зависимо от указания параметра.
    заранее спасибо

  6. #6

    По умолчанию

    добрый день
    подскажите кому не лень
    возвращает -104 в этом случае:
    ReadStoredDotS(16,0,'rEAd',val,0)
    то что сетевая ошибка прочитал но в чем проблема?

  7. #7

    По умолчанию

    пробую с ShowMessage(intToStr(ReadIEEE32(16,0,'rEAd',val,tm ,0)));
    тоже самое -104
    через конфигуратор все нормально идет есть значения на измерителе 1

  8. #8

    По умолчанию

    все спасибо всем разобрался)))

  9. #9

    По умолчанию

    читаю вход1: ReadIEEE32(addr,0,'rEAd',val,tm,-1); все ОК
    как прочитать вход2?

  10. #10

    По умолчанию

    все спс addr+1 прочел в другом файле)))

Страница 1 из 2 12 ПоследняяПоследняя

Ваши права

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