Отговори на тема  [ 38 мнения ]  Отиди на страница Предишна  1, 2, 3  Следваща
Връзка на MCU с PC по RS232 - моля за съвет 
Автор Съобщение
Ранг: Минаващ
Ранг: Минаващ

Регистриран на: Съб Фев 24, 2018 9:41 am
Мнения: 13
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
ike написа:
Има начин да инсталираш виртуална машина дето не си личи че е виртуална машина.
Но по всяка вероятност на новия win10 му трябва някакъв рънтаим компонент за да тръгне бейсика.
Всъщност твоя win10 64 или 32 битов е? И програмите които ги пишеш 16 битови ли са или 32 битови?
Делфито генерира 32 битови и е съвсем тревиално да се чете и пише в COM порт позвайки winapi, както slav4o.com каза с CreateFile() WriteFile() ReadFile() за портове до COM256. Не ти трябва делфи компонент за работа с портовете.

Моят Win 10 със сигурност е 64-битов, VB6(SP6)-програмките са 32 битови. Преди бях с Win 7/64; отначало ползвах бейсика с виртуално ХР, но по-късно успях да инсталирам VB6 и работеше без виртуалната машина без проблеми. След като в продължение на много месеци получавах `покана` да мина на Win 10, един ден от недоглеждане плеснах ОК и се озовах с Win 10. Затова не съм съвсем сигурна коя точно е причината на моя комп програмките да вървят без проблеми.


Съб Мар 31, 2018 10:26 pm
Профил
Ранг: Форумен бог
Ранг: Форумен бог

Регистриран на: Вто Окт 11, 2011 10:53 pm
Мнения: 4174
Местоположение: Brussels / Пловдив
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
До 23/4 е достатъчно време да се свържете с някой колега да ви направи програма която да свърши работа на нещо по ново от VB ... Delphi не, че не става но отдавна не е mainstream платформа за разработка - разбирай - ползва се все по рядко и като едното нищо след време ще се стигне пак то подобен проблем да не може да се прехвърли на съвременна платформа по една или друга причина. Да не говорим, че и самият windows скоро може да се окаже остаряла и неподдържана платформа ;)

_________________
Мразя да мразя ...


Нед Апр 01, 2018 12:04 am
Профил
Ранг: Форумен бог
Ранг: Форумен бог

Регистриран на: Пет Фев 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
Профил
Ранг: Форумен бог
Ранг: Форумен бог

Регистриран на: Вто Ное 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
Профил
Ранг: Минаващ
Ранг: Минаващ

Регистриран на: Съб Фев 24, 2018 9:41 am
Мнения: 13
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
palavrov,
ако беше само тази програма хич нямаше и да се чудя какво и как, а щях да потърся колега да я направи.
Имаме десетки стари контролери, които си работят на шест. И всичките тези MCU се обслужват откъм РС с
най-разнообразни бейсик програмки - за костюмиране, инициализиране, четене на данни и пр. Работата е там,
че още преди години започнахме да даваме тези програмки free като неразделна част от контролерите, с
обещанието, че клиентите ще получават безплатно всеки следващ релийз. Та от известно време все по-често
ме питат кога ще има ... Затова трябва да справя сама, иначе не бих могла да издържа финансово.


Нед Апр 01, 2018 9:49 am
Профил
Ранг: Минаващ
Ранг: Минаващ

Регистриран на: Съб Фев 24, 2018 9:41 am
Мнения: 13
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
[...
Не ти трябва компонент, разгледай кода и ще се справиш.[/quote]

Благодаря!


Нед Апр 01, 2018 9:52 am
Профил
Ранг: Форумен бог
Ранг: Форумен бог

Регистриран на: Пет Юни 03, 2005 8:39 pm
Мнения: 1954
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
Дръпни си visual studio 2013/2015 има безплатни версии, смачкай проекта с него и виж дали няма да тръгне. Може да пипнеш тук-там, ама няма да пишеш всичко отначало.

_________________
Определянето стойността на дадена величина се нарича ИЗМЕРВАНЕ!


Нед Апр 01, 2018 10:03 am
Профил
Ранг: Форумен бог
Ранг: Форумен бог

Регистриран на: Вто Окт 11, 2011 10:53 pm
Мнения: 4174
Местоположение: Brussels / Пловдив
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
arksi52 написа:
palavrov,
ако беше само тази програма хич нямаше и да се чудя какво и как, а щях да потърся колега да я направи.
Имаме десетки стари контролери, които си работят на шест. И всичките тези MCU се обслужват откъм РС с
най-разнообразни бейсик програмки - за костюмиране, инициализиране, четене на данни и пр. Работата е там,
че още преди години започнахме да даваме тези програмки free като неразделна част от контролерите, с
обещанието, че клиентите ще получават безплатно всеки следващ релийз. Та от известно време все по-често
ме питат кога ще има ... Затова трябва да справя сама, иначе не бих могла да издържа финансово.

Парил съм се преди години с подобен бизнес модел - печалба от продажба и безплатна поддръжка. В един момент разходите за поддръжка изяждат печалбата от продажби - просто е много нестабилен модела - например много стари клиенти и малко нови продажби. Стабилното е да се печели постоянно от вече направените продажби и съществуващи клиенти, но ... предполагам тези неща си ги знаете.

_________________
Мразя да мразя ...


Нед Апр 01, 2018 3:41 pm
Профил
Ранг: Минаващ
Ранг: Минаващ

Регистриран на: Нед Ное 06, 2016 5:49 pm
Мнения: 41
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
Това го правя с Delphi 7 и компонент cport310 на сърбина. Иначе Windows-а ми е 10/64, та ми се кара малко за Delphi 7, когато се стартира, но след това exe-то си работи ОК.


Нед Апр 01, 2018 4:50 pm
Профил
Ранг: Минаващ
Ранг: Минаващ

Регистриран на: Съб Фев 24, 2018 9:41 am
Мнения: 13
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
palavrov написа:
Парил съм се преди години с подобен бизнес модел - печалба от продажба и безплатна поддръжка. В един момент разходите за поддръжка изяждат печалбата от продажби - просто е много нестабилен модела - например много стари клиенти и малко нови продажби. Стабилното е да се печели постоянно от вече направените продажби и съществуващи клиенти, но ... предполагам тези неща си ги знаете.

Значи разбираш в какво блато съм...


Нед Апр 01, 2018 4:54 pm
Профил
Ранг: Форумен бог
Ранг: Форумен бог

Регистриран на: Нед Яну 01, 2012 7:04 pm
Мнения: 2581
Местоположение: Велико Търново / София
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
Че тя вечна ли е тази поддръжка ? Пък и като е продаден продукта е казано работи с Win XP ?

_________________
https://github.com/slav4ocom/


Нед Апр 01, 2018 4:58 pm
Профил
Ранг: Минаващ
Ранг: Минаващ

Регистриран на: Съб Фев 24, 2018 9:41 am
Мнения: 13
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
slav4o.com написа:
Че тя вечна ли е тази поддръжка ? Пък и като е продаден продукта е казано работи с Win XP ?

Разбира се, че не е вечна, макар че някои клиенти са останали с подобно впечатление 8O
Просто имаме клиенти, които не мога да отсвиря, защото са купували от нас многократно;
защото ни правят безплатна реклама и водят други клиенти или
защото имат капацитет за една `хубава` антиреклама.


Нед Апр 01, 2018 5:32 pm
Профил
Ранг: Форумен бог
Ранг: Форумен бог

Регистриран на: Нед Яну 01, 2012 7:04 pm
Мнения: 2581
Местоположение: Велико Търново / София
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
Е, че те утре може и Линукс да решат да сложат или да минат на таблети с Инвалид (Андроид) :) Както и да е вие си знаете.
Но то като цяло не виждам от къде идва разликата толкова че пък да не може програмата да върви на Win10. То като е 64 вървят и 32bit програми.
То като цяло алгоритмите и темплейтите следва да са същите. Би трябвало да се мине с не много преправяне (лесно пренаписване) :roll:

_________________
https://github.com/slav4ocom/


Нед Апр 01, 2018 5:40 pm
Профил
Ранг: Популярен
Ранг: Популярен

Регистриран на: Пет Юни 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
Профил
Ранг: Форумен бог
Ранг: Форумен бог
Аватар

Регистриран на: Вто Яну 20, 2009 10:54 pm
Мнения: 11338
Местоположение: "Занзибар"
Мнение Re: Връзка на MCU с PC по RS232 - моля за съвет
slav4o.com написа:
Е, че те утре може и Линукс да решат да сложат или да минат на таблети с Инвалид (Андроид).......

Пък като знам колко големи фирми имат 100 пъти по-калпава поддръжка...
То бъдещето е в шаренията за тъпаци, но вашият сектор май е по-друг: за знаещите Закона на Ом :)

Извинявам се, но след толкова години би трябвало да можеш абсолютно безусловно да диктуваш условията за поддръжка. Справка: големите на пазара.


Нед Апр 01, 2018 7:58 pm
Профил
Покажи мненията от миналия:  Сортирай по  
Отговори на тема   [ 38 мнения ]  Отиди на страница Предишна  1, 2, 3  Следваща

Кой е на линия

Потребители разглеждащи този форум: 0 регистрирани и 5 госта


Вие не можете да пускате нови теми
Вие не можете да отговаряте на теми
Вие не можете да променяте собственото си мнение
Вие не можете да изтривате собствените си мнения
Вие не можете да прикачвате файл

Търсене:
Иди на:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by ST Software for PTF.
Хостинг и Домейни