Виж темите без отговор | Виж активните теми
Дата и час: Чет Мар 28, 2024 4:17 pm
Връзка на MCU с PC по RS232 - моля за съвет
Автор |
Съобщение |
arksi52
Ранг: Минаващ
Регистриран на: Съб Фев 24, 2018 9:41 am Мнения: 13
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Моят Win 10 със сигурност е 64-битов, VB6(SP6)-програмките са 32 битови. Преди бях с Win 7/64; отначало ползвах бейсика с виртуално ХР, но по-късно успях да инсталирам VB6 и работеше без виртуалната машина без проблеми. След като в продължение на много месеци получавах `покана` да мина на Win 10, един ден от недоглеждане плеснах ОК и се озовах с Win 10. Затова не съм съвсем сигурна коя точно е причината на моя комп програмките да вървят без проблеми.
|
Съб Мар 31, 2018 10:26 pm |
|
|
palavrov
Ранг: Форумен бог
Регистриран на: Вто Окт 11, 2011 10:53 pm Мнения: 4174 Местоположение: Brussels / Пловдив
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
До 23/4 е достатъчно време да се свържете с някой колега да ви направи програма която да свърши работа на нещо по ново от VB ... Delphi не, че не става но отдавна не е mainstream платформа за разработка - разбирай - ползва се все по рядко и като едното нищо след време ще се стигне пак то подобен проблем да не може да се прехвърли на съвременна платформа по една или друга причина. Да не говорим, че и самият windows скоро може да се окаже остаряла и неподдържана платформа
_________________ Мразя да мразя ...
|
Нед Апр 01, 2018 12:04 am |
|
|
ike
Ранг: Форумен бог
Регистриран на: Пет Фев 04, 2005 8:59 pm Мнения: 6019 Местоположение: София
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
А може и едно такова https://www.emag.bg/dynna-platka-asrock ... ction=viewи да се ползва само и единствено за сваляне на данните от контролера.
_________________ Warriors of the Night, ASSEMBLER!!!
|
Нед Апр 01, 2018 12:07 am |
|
|
timt
Ранг: Форумен бог
Регистриран на: Вто Ное 27, 2012 8:27 pm Мнения: 2008
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
var fmMain: TfmMain; ComFile:THandle; implementation
{$R *.dfm}
function OpenCOMPort(ComPort:String): Boolean; begin ComFile := CreateFile(PChar(ComPort), (GENERIC_READ or GENERIC_WRITE), 0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); if ComFile = INVALID_HANDLE_VALUE then Result := False else Result := True; end;
procedure SendText(s: string); var BytesWritten: DWORD; begin s := s + #13 + #10; WriteFile(ComFile, PChar(s)^, Length(s), BytesWritten, nil); end;
function ReadText: string; var d: array[1..80] of Char; s: string; BytesRead, i:Cardinal; begin Result := ''; if not ReadFile(ComFile, d, SizeOf(d),BytesRead,nil) then begin { Raise an exception } end; s := ''; for i := 1 to BytesRead do s := s + d[I]; Result := s; end;
procedure CloseCOMPort; begin CloseHandle(ComFile); end;
function ReadCom(var Buffer; Size: DWORD): Integer; var Received: DWORD; begin if ComFile = INVALID_HANDLE_VALUE then raise Exception.Create('Íå îòêðûòà çàïèñü â Com ïîðò'); if ReadFile(ComFile, Buffer, Size, Received, nil) then begin Result := Received; end else raise Exception.Create('Îøèáêà ïðèåìà äàííûõ: ' + IntToStr(GetLastError)); end;
procedure TfmMain.BtnOpenClick(Sender: TObject); begin IF ComboBox1.ItemIndex = -1 Then Begin IF not OpenCOMPort('COM3') Then ShowMessage('!!!!!!')else Begin BtnClose.Enabled:=True; BtnSendText.Enabled:=True; BtnOpen.Enabled:=False; end; end else Begin IF not OpenCOMPort('COM'+IntToStr(ComboBox1.ItemIndex+1)) THEN ShowMessage('!!!!!')else Begin BtnClose.Enabled:=True; BtnSendText.Enabled:=True; BtnOpen.Enabled:=False; Timer1.Enabled:=True; end; end; end;
procedure TfmMain.BtnCloseClick(Sender: TObject); begin BtnClose.Enabled:=False; BtnSendText.Enabled:=False; BtnOpen.Enabled:=True; CloseCOMPort; Timer1.Enabled:=False; end;
procedure TfmMain.BtnSendTextClick(Sender: TObject); begin Timer1.Enabled:=True; SendText(Memo2.Text); end;
procedure TfmMain.Timer1Timer(Sender: TObject); Var ModemStat:DWORD; begin if GetCommModemStatus(ComFile,ModemStat) <> false then begin if ModemStat and MS_CTS_ON <> 0 then if ModemStat and MS_DSR_ON <> 0 then if ModemStat and MS_RLSD_ON <> 0 then if ModemStat and MS_RING_ON <> 0 then Memo1.Lines.Add(ReadText); end; end;
end.
Не ти трябва компонент, разгледай кода и ще се справиш.
|
Нед Апр 01, 2018 2:07 am |
|
|
arksi52
Ранг: Минаващ
Регистриран на: Съб Фев 24, 2018 9:41 am Мнения: 13
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
palavrov, ако беше само тази програма хич нямаше и да се чудя какво и как, а щях да потърся колега да я направи. Имаме десетки стари контролери, които си работят на шест. И всичките тези MCU се обслужват откъм РС с най-разнообразни бейсик програмки - за костюмиране, инициализиране, четене на данни и пр. Работата е там, че още преди години започнахме да даваме тези програмки free като неразделна част от контролерите, с обещанието, че клиентите ще получават безплатно всеки следващ релийз. Та от известно време все по-често ме питат кога ще има ... Затова трябва да справя сама, иначе не бих могла да издържа финансово.
|
Нед Апр 01, 2018 9:49 am |
|
|
arksi52
Ранг: Минаващ
Регистриран на: Съб Фев 24, 2018 9:41 am Мнения: 13
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
[... Не ти трябва компонент, разгледай кода и ще се справиш.[/quote]
Благодаря!
|
Нед Апр 01, 2018 9:52 am |
|
|
syscop
Ранг: Форумен бог
Регистриран на: Пет Юни 03, 2005 8:39 pm Мнения: 1954
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Дръпни си visual studio 2013/2015 има безплатни версии, смачкай проекта с него и виж дали няма да тръгне. Може да пипнеш тук-там, ама няма да пишеш всичко отначало.
_________________ Определянето стойността на дадена величина се нарича ИЗМЕРВАНЕ!
|
Нед Апр 01, 2018 10:03 am |
|
|
palavrov
Ранг: Форумен бог
Регистриран на: Вто Окт 11, 2011 10:53 pm Мнения: 4174 Местоположение: Brussels / Пловдив
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Парил съм се преди години с подобен бизнес модел - печалба от продажба и безплатна поддръжка. В един момент разходите за поддръжка изяждат печалбата от продажби - просто е много нестабилен модела - например много стари клиенти и малко нови продажби. Стабилното е да се печели постоянно от вече направените продажби и съществуващи клиенти, но ... предполагам тези неща си ги знаете.
_________________ Мразя да мразя ...
|
Нед Апр 01, 2018 3:41 pm |
|
|
veryoldman
Ранг: Минаващ
Регистриран на: Нед Ное 06, 2016 5:49 pm Мнения: 41
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Това го правя с Delphi 7 и компонент cport310 на сърбина. Иначе Windows-а ми е 10/64, та ми се кара малко за Delphi 7, когато се стартира, но след това exe-то си работи ОК.
|
Нед Апр 01, 2018 4:50 pm |
|
|
arksi52
Ранг: Минаващ
Регистриран на: Съб Фев 24, 2018 9:41 am Мнения: 13
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Значи разбираш в какво блато съм...
|
Нед Апр 01, 2018 4:54 pm |
|
|
slav4o.com
Ранг: Форумен бог
Регистриран на: Нед Яну 01, 2012 7:04 pm Мнения: 2581 Местоположение: Велико Търново / София
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Че тя вечна ли е тази поддръжка ? Пък и като е продаден продукта е казано работи с Win XP ?
|
Нед Апр 01, 2018 4:58 pm |
|
|
arksi52
Ранг: Минаващ
Регистриран на: Съб Фев 24, 2018 9:41 am Мнения: 13
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Разбира се, че не е вечна, макар че някои клиенти са останали с подобно впечатление Просто имаме клиенти, които не мога да отсвиря, защото са купували от нас многократно; защото ни правят безплатна реклама и водят други клиенти или защото имат капацитет за една `хубава` антиреклама.
|
Нед Апр 01, 2018 5:32 pm |
|
|
slav4o.com
Ранг: Форумен бог
Регистриран на: Нед Яну 01, 2012 7:04 pm Мнения: 2581 Местоположение: Велико Търново / София
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Е, че те утре може и Линукс да решат да сложат или да минат на таблети с Инвалид (Андроид) Както и да е вие си знаете. Но то като цяло не виждам от къде идва разликата толкова че пък да не може програмата да върви на Win10. То като е 64 вървят и 32bit програми. То като цяло алгоритмите и темплейтите следва да са същите. Би трябвало да се мине с не много преправяне (лесно пренаписване)
|
Нед Апр 01, 2018 5:40 pm |
|
|
Stoimen
Ранг: Популярен
Регистриран на: Пет Юни 25, 2010 2:18 pm Мнения: 338 Местоположение: Varna
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Потърси "TurboPower Async Professional". А може и CiaComPort да ти свърщи работа. Ползвал съм CiaComPort със BCB6, а tpapro със RAD studio XE.
p.p Има и по ново CiaComPort - CiaComPortXE със поддръжка на unicode, но не съм го ползвал.
|
Нед Апр 01, 2018 7:27 pm |
|
|
bongo_x2
Ранг: Форумен бог
Регистриран на: Вто Яну 20, 2009 10:54 pm Мнения: 11338 Местоположение: "Занзибар"
|
Re: Връзка на MCU с PC по RS232 - моля за съвет
Пък като знам колко големи фирми имат 100 пъти по-калпава поддръжка... То бъдещето е в шаренията за тъпаци, но вашият сектор май е по-друг: за знаещите Закона на Ом Извинявам се, но след толкова години би трябвало да можеш абсолютно безусловно да диктуваш условията за поддръжка. Справка: големите на пазара.
|
Нед Апр 01, 2018 7:58 pm |
|
|
Кой е на линия |
Потребители разглеждащи този форум: 0 регистрирани и 5 госта |
|
Вие не можете да пускате нови теми Вие не можете да отговаряте на теми Вие не можете да променяте собственото си мнение Вие не можете да изтривате собствените си мнения Вие не можете да прикачвате файл
|
|