простой пример Делфи 7 Опции

[messenger]

Написать программу Делфи 7
Форма. На форме кнопка и строка с текстом.
При нажатии Кнопка Вкл/меняеться на Выкл.
При Вкл, проверка доступных com портов (Например 1,2,4,8).
Подключение по очереди к каждому.
Отправка запроса "fix"
При получении ответа "fix" перейти к функции №1 (Пустой раздел со словом "Функиция")

При получении иного ответа или не получении за таймаут 0,1 с перейти к слудующему по номеру порту.
Если все доступные порты пройдены а ответ не получен изменить кнопку на выкл.
Написать строку устрйоство не найдено.

500р. на карту после принтскрина
Почта lia54()mail.ru

[Mareng]

500 р. вы уже должны за чтение ТЗ.

[messenger]

Проходите мимо. 500р/час.

[AlexRayne]

500 р. вы уже должны за чтение ТЗ.

тут пара дней возни.
посланник кажись не готов раскошеливаться

[messenger]

Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть.
1 компонент, 1 цикл это два дня?

[AlexRayne]

Проходите пожалуйста дальше. Если вы эту задачу собрались решать два дня то это вызывает только грусть.
1 компонент, 1 цикл это два дня?

да, таков мой опыт решения таких задач.
а вам советую писать на freepascal.ru, может там найдутся умельцы на час.
А тут не светит. и умаю нигде не светит. если время дорого - трахайтесь сами

Сообщение отредактировал AlexRayne - Jan 12 2018, 07:40

[Эдди]

Лучше все-таки этому неучу пойти в армию. Не нужны стране такие "специалисты"!

[AlexandrY]

Написать программу Делфи 7

Delphi 7 - это сурово. Ну хоть бы Delphi 2007.
А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро.

[AlexRayne]

Delphi 7 - это сурово. Ну хоть бы Delphi 2007.
А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро.

как раз дельфин7 - это вершина, самое лучшее что у них было. Если это слишком старо, то лучше уж на лазарусе, чем эмбаркадеру тащить.

[messenger]

Это предложение у кого есть опыт, наработки и установлено Делфи 7.
Понятно, что если все делать с нуля то и за неделю можно не уложиться.

В матлабе перебором я написал за пол часа с нуля.

% --- Executes on button press in pushbutton_VKL.
function pushbutton_VKL_Callback(hObject, eventdata, handles)
global stop_btn
global btn_cal
global btn_zero
global btn_set_freq
global obj1
global DataMain

if (stop_btn==1)%СТАРТ
set(handles.pushbutton_VKL, 'String', 'Вкл' );%Str2Num(DataMain.power)
drawnow;
fclose(obj1);%Закрываем порт
stop_btn=0
flag_rs_open=0 %Флаг "Порт закрыт"
else %(stop_btn=1)

set(handles.pushbutton_VKL, 'String', 'Выкл' );%Str2Num(DataMain.power)
drawnow;
stop_btn=1

% Подключение к COM, авто и ручное

num_port_set_form=handles.popupmenu1.Value
% If АВТОПОИСК COM else РУЧНОЙ
flag_rs_open=0
if num_port_set_form==1
num_port=1


while (num_port<10) & (flag_rs_open==0)
obj1 = instrfind('Type', 'serial', 'Port', ['COM' num2str(num_port)], 'Tag', '')
if isempty(obj1)
obj1 = serial(['COM' num2str(num_port)]);
else
fclose(obj1)
obj1 = obj1(1)
end

try
fopen(obj1);

catch
num_port=num_port+1
set(handles.info,'String','Автопоиск'); drawnow; pause(0.2)
end

mask='open'
tmp= obj1.status
if strcmp (tmp, mask)
flag_rs_open=1

end

if (flag_rs_open==1)%есть подключение
set(obj1, 'Timeout', 1.0);
test_RS = query(obj1, 'Fix', '%c');
mask='Fix'
if strncmp (test_RS, mask,8)
flag_rs_open=1
pause(0.5);
set(handles.info,'String','i'); drawnow;
else
fclose(obj1)
flag_rs_open=0
num_port=num_port+1
end
end
end %while поиск порта
% далее ручной выбор...

[Molotov]

А так за один только дауншифтинг к Delphi 7 и Win 95 стоит брать не меньше 1 тыс. евро.

Почему Windows 95? Delphi 7 прекрасно идет на Windows XP и возможно даже на Windows 7. Ну хотя, да, доступ к портам есть только у Windows 95 и 98. Хотя с COM-портами он не нужен.
Руки чешутся эту программу написать, но я пишу на C++Builder 6. Так что, извиняйте.
Напишите сами да и все. Киньте на форму кнопку(Button), метку(Label) и COM-порт. Компонент COM-порт, по-моему, скачивается с Интернета. Прочитайте про события и сделайте события OnClick для кнопки. Дальше настраивайте компонент COM-порт.

[messenger]

to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей.

[Kabdim]

Ну собственно работы на час, включая поиск, скачивание и установку этой окаменелости.

[AlexRayne]

to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей.

смотря кому и как. если для бизнеса решение - то определенно стоит.
вы ведь не посчитали в ваши трудовые издержки:
дизайн формы, и согласование ее
процедуры перечисления ком-портов в системе, или их детектирование
обработки ошибок при работе с портами
собственно реакции - что делать с результатом тестов
оформление компонента в удобном для вас виде, для укладки его в ваши репы/архивы
время на отладку на реальном железе, и на вашей операционке
сапорт компонента в ходе эксплуатации, или время на тестирование компонента и приемку работы

to AlexRayne, просто когда я слышу тут работы на два дня то понимаю это как 500*16=8т.р. согласитесь этот пример не стоит 8 рублей.

И кстате, бизнес решение былобы ведение теста по всем выбраным портам паралельно, а не перебор их последовательный

Сообщение отредактировал AlexRayne - Jan 12 2018, 08:20

[AlexandrY]

Ну собственно работы на час, включая поиск, скачивание и установку этой окаменелости.

Насколько помню там было все очень плохо с USB COM портами и новыми политиками безопасности начатыми с Win 7.
Никому не пожелал бы связываться с Delphi 7.

Кстати вышел RAD Studio RAD 10.2.2 Tokyo 25.0.29039.2004.
Может кто пробовал, как там с COM портами через Bluetooth?

А то после Creator Update в Win10 в RAD с Bluetooth все посыпалось.

[messenger]

Согласитесь, я не писал перечисленные вами требования.
Точность к деталям с вашей стороны вызывает чувство общения с профессионалом.

[AlexRayne]

Насколько помню там было все очень плохо с USB COM портами и новыми политиками безопасности начатыми с Win 7.
Никому не пожел бы связываться с Delphi 7.

да все там прекрасно с дельфином7, только если вы остаетесь в пределах winAPI communication device. ну и пути к портам похитрее.
с енумерацияей нужна некоторая эрудиция. но можно наверно и без енумерации.

Согласитесь, я не писал перечисленные вами требования.
Точность к деталям с вашей стороны вызывает чувство общения с профессионалом.

это лишь показывает отсутсвие у Вас опыта подобных заказов.
все эти требования начнут вылезать в момент когда вам вручат работу, и попросят деньги. Вам ведь не подошло по какойто причине куча барахла на эту тему уже лежащего в интернете. потому что это не то что Вам надо, а надо чтото вполне определенное и некоего качества.

Рекомендую все же перейти на фрипаскаль.ру - может быть там найдутся старички-фанаты соскучившиеся по работе с паскалем. они могут сбацать и даже быстро, может за день или за пол.
а тут таким не место. хотя по моему последнему опыту, там тоже аудитория упертая и ядовитая и разочарованная - бизнес так бизнес, а учеба так учеба. так что наберитесь терпения.


Сообщение отредактировал AlexRayne - Jan 12 2018, 08:44

[AlexandrY]

да все там прекрасно с дельфином7, только если вы остаетесь в пределах winAPI communication device. ну и пути к портам похитрее.
с енумерацияей нужна некоторая эрудиция. но можно наверно и без енумерации.

Вот тут вы и зависните.
Если хотите контролировать все сами через winAPI, то придется отказаться от компонентов. Того же AsyncPro
А товарищ желает видеть один компонент на форме.

[AlexRayne]

Вот тут вы и зависните.
Если хотите контролировать все сами через winAPI, то придется отказаться от компонентов. Того же AsyncPro
А товарищ желает видеть один компонент на форме.

с винапи, без АсинкПро, жизнь прекрасна - именно эта мутация со мной и произошла. особенно если надо сделать компонент, асинкпро - лишняя зависимость.

[AlexandrY]

с винапи, без АсинкПро, жизнь прекрасна - именно эта мутация со мной и произошла. особенно если надо сделать компонент, асинкпро - лишняя зависимость.

Да этот winAPI тоже анахронизм по сути.
Сейчас все перешли на UWP API.
Только там будут появляться новые изощренные COM порты через новые медиа каналы.

[AlexRayne]

Да этот winAPI тоже анахронизм по сути.
Сейчас все перешли на UWP API.
Только там будут появляться новые изощренные COM порты через новые медиа каналы.

но зато он есть во всех вендах, а не только в вин10
а на фрипаскале наверняка есть и РТЛ кроссплатформенный.

[__Alexander]

У меня винда семерка, делфи 6, компонент CportLib = полет нормальный.

[Эдди]

Насколько помню там было все очень плохо с USB COM портами и новыми политиками безопасности начатыми с Win 7.
Никому не пожелал бы связываться с Delphi 7.

Судя по ТЗ, ТС просто хочет, чтобы за него лабораторку выполнили. Потому как никто в своем уме реальные приложения на "делфи" писать не будет, тем паче таком древнем. Если бы нужно было, чтобы работало, уже за полчаса бы на С набросал утилитку командной строки и пользовался…

Как промежуточный вариант — накультяпкать на Qt или пхытоне.

Сообщение отредактировал Эдди - Jan 12 2018, 09:15

[AlexandrY]

Если бы нужно было, чтобы работало, уже за полчаса бы на С набросал утилитку командной строки и пользовался…
Как промежуточный вариант — накультяпкать на Qt или пхытоне.

Реально найти все COM порты может только Visual Studio 2017.
А Qt или пхытон будут в тихую юзать OLE объекты сделанные в Visual Studio.
Так лучше сразу к первоисточнику обратиться.

[IID]

Подскажите, как получить список доступных com портов в системе? Спасибо.

Правильное получение списка COM-портов в Delphi

"... Плюсы очевидны – работает быстро, стабильно, мы получаем всю необходимую информацию об устройстве, не требует прав администратора.
Минус единственный – для новичка непонятен код ..." ©

Сообщение отредактировал IID - Jan 12 2018, 10:24

[__Alexander]

В компоненте Cport энумерация походу проходит через считывание с реестра, что не правильно. Но зато есть автоматический вызов процедуры по сравнению на стартовую и стоповою строку. Удобно.

[Эдди]

Реально найти все COM порты может только Visual Studio 2017.

Как-то у вас в венде через одно место все… А с пистоном — да, если под линуксом более-менее можно с портом работать (и то, нормальное неблокирующее чтение поди-ка сделай, а в C это элементарно через select работает), то в вендах нужна какая-нибудь прокладка, и все еще больше усугубляется.

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

[aps]

В WIN7 на Intel-e Delphi7 работает прекрасно. 2 года назад делал объемную "программку", в которой был подобный функционал, именно на Delphi7 потому, что надо было побыстрее. До сих пор используется. Но от паскалевских инструментов отказался принципиально по причине паскалевского синтаксиса. А так, конечно, за 1 час это делается. Просто, совсем не интересно...