Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2013, 17:05   #1
ULR
Пользователь
 
Аватар для ULR
 
Регистрация: 26.09.2012
Сообщений: 30
По умолчанию Работа с COM портом. Как ответ в байтах перевести в строку

Здравствуйте! Не могли бы Вы мне помочь, если Вам не сложно? Вопрос такой: необходимо передать команду в порт и считать результат, но проблема в том, что вместо нужной строки считываются какие-то знаки, проблема с типами данных, подскажите пожалуйста, что во что нужно преобразовать?
Код:
var
...
   Com: AnsiString; // передаваемая команда
   Otvet: array of Byte; // ответ
   N: Cardinal; // число переданных байт
begin
      Com := 'AT+ RTR=1'+ #$0D;
      N := 0;
   ............
      WriteFile(Port, PAnsiChar(Com)^, Length(Com), N, nil); // запись команды в порт  
      ReadFile(Port, PAnsiChar(Otvet)^, 10, N, nil); // чтение ответа
      ShowMessage('Otvet = ' + ansistring(Otvet));
   ..........
   CloseHandle(Port);// закрыть порт
end;
ULR вне форума Ответить с цитированием
Старый 17.02.2013, 17:28   #2
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Честно говоря, не знаю точно, что Вам нужно, но попробуйте вместо байтов читать из порта символы.
s-andriano вне форума Ответить с цитированием
Старый 17.02.2013, 17:54   #3
ULR
Пользователь
 
Аватар для ULR
 
Регистрация: 26.09.2012
Сообщений: 30
По умолчанию

Цитата:
Сообщение от s-andriano Посмотреть сообщение
Честно говоря, не знаю точно, что Вам нужно
мне нужно получить ответ в виде 255,45,1,12 например
Цитата:
Сообщение от s-andriano Посмотреть сообщение
но попробуйте вместо байтов читать из порта символы.
массив символов? Или как? Извините, за глупые вопросы, но я не очень разбираюсь
ULR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перечисляемый тип перевести в строку? XPAiN Общие вопросы Delphi 3 23.01.2010 13:15
Как перевести строку в тип Tcolor в Delphi Baaandit Общие вопросы Delphi 3 15.11.2009 22:41
перевести число в строку Van777 Паскаль, Turbo Pascal, PascalABC.NET 5 15.05.2009 17:43
Как мне узнать размер файла в байтах? satana Общие вопросы Delphi 4 26.09.2007 16:59
Как перевести строку из чисел в массив? Andris Паскаль, Turbo Pascal, PascalABC.NET 7 21.09.2007 17:12