ATNEL tech-forum

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-30T17:49:41+01:00

Btw czasami male L (jak lejek) i duze I (jak Irena) wygladaja tak samo

Statystyki: Napisane przez micky — 30 gru 2017, o 17:49

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-29T01:55:13+01:00

sprawdź kod ASCII tego znaku .. powinny być cyfry liczby zdaje się a nie jakieś pałki w serialu

Statystyki: Napisane przez mirekk36 — 29 gru 2017, o 01:55

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-28T22:52:27+01:00

Co mogę robić jeszcze innego niby źle ... jak wszystko co tyczy się COM masz wyżej ? Pisałem przecież wyżej że jak wybiorę COM35 tutaj to łączy z nim dobrze

Jak to pole jest puste to po podłączeniu COM35 on się podłącza pod COM1. Mimo że w cominfo.ComPort jest dobrze COM35

Pomogło dopisanie cPort1.Port := cominfo.ComPort; teraz to ma sens

PS. Jakieś postępy z tym nowym komponentem ? Bo pomijając te rzeczy wyżej to dalej jest problem z "traceniem danych" tzn. po jakimś czasie różnie to jest czasem wykłada się na pierwszych stringach a czasem działa dobrze kilka minut ... Tzn traci się odbiór jakby przestawało/zawieszało się parsowanie. I to jest ciekawe że z aplikacji komunikacja dalej działa i dane do urządzenia są wysyłane poprawnie ale w drugą stronę kaplica.

No i ten efekt tzw. uciętego kabla czyli po prostu odłączonego nie zawsze rozłącza COM. I tutaj ciekawa rzecz:

[syntax=delphi]procedure TForm1.MkUsbDetector1UsbDetect(Sender: TObject; UsbName, vid,
pid: string; inout: Integer);
begin
if inout = 0 then begin
if UsbName = cominfo.ComID then begin
StopCom;
StatusBar1.Panels[0].Text := 'COM?';
end;
StatusBar1.Panels[1].Text := UsbName + ' ' + cominfo.ComID;
end;
end;[/syntax]

I efekt na Statusbarze1 mam taki:

Według programu FT_Prog Serial jest taki A91IFT5T a zapisało go w cominfo.ComID jako A91LFT5T

Dziwna podmiana i teraz niema co się dziwić że nie rozłącza :/ O co w tym biega ? Bo raz wpisuje do cominfo.ComID przy wykryciu A91IFT5T a raz A91LFT5T a ciągle podłączam przecież to samo urządzenie!

Zmieniłem ten Serial na taki A915FT5T i teraz jest okej ... no ale to nie powinno tak być że on sobie raz wykrywa jako ten z "L" a raz jako ten poprawny z "I". Jakiś babol musi być w MkUsbDetector moim zdaniem ...

Statystyki: Napisane przez faber33 — 28 gru 2017, o 22:52

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-28T22:03:19+01:00

przecież ja pokazywałem zdaje się w poradniku wideło jak to robić czy nie - bo teraz myślami jestem daleko od tego ... a się zastanawiam co ty w ogóle robisz że ci wciąż na COM1 się łączy ?

poza tym wyjdź z odpalaniem kodu wprost ze zdarzeń MkUsbDetectora - zrób to na początek ręcznie i sprawdź bo ja już nie rozumiem - po co walczyć z MkUsbDetectorem skoro ci ciągle na com1 się łączy

Statystyki: Napisane przez mirekk36 — 28 gru 2017, o 22:03

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-28T20:08:47+01:00

Wywaliłem to co zbędne ale dalej się łączy z COM1 :/

[syntax=delphi]procedure TForm1.CheckCurrentComID;
var
i, len: Integer;
id, prt: String;

begin
len := MkUsbDetector1.GetAvailableComPortsEx;
for i := 0 to len-1 do begin
prt := MkUsbDetector1.MkComInfo[i].sPort;
id := MkUsbDetector1.MkComInfo[i].Serial;

if AnsiStartsStr(ComSerial_Start,id) then
begin
cominfo.ComPort := prt;
cominfo.ComID := id;

StopCom;
StartComPort;
StatusBar1.Panels[3].Text := cominfo.ComID + ' ' + cominfo.ComPort;
CheckNameModule;
Break;
end;
end;
end;

procedure TForm1.MkUsbDetector1NewComInfo(Sender: TObject;
MkComInfo: array of TMkComInfo; count: Integer);
var
i, len: Integer;

begin
if count > 0 then begin
//
if AnsiStartsStr(ComSerial_Start,MkComInfo[0].Serial) then
begin

cominfo.ComPort := MkComInfo[0].sPort;
cominfo.ComID := MkComInfo[0].Serial;

StatusBar1.Panels[3].Text := cominfo.ComID + ' ' + cominfo.ComPort;
StopCom;
StartComPort;
CheckNameModule;
end;
end;
end;

procedure TForm1.MkUsbDetector1UsbDetect(Sender: TObject; UsbName, vid,
pid: string; inout: Integer);
begin
if inout = 0 then begin
if UsbName = cominfo.ComID then begin
StopCom;
StatusBar1.Panels[0].Text := 'COM?';
end;
StatusBar1.Panels[1].Text := UsbName;
end;
end;

procedure TForm1.StopCom;
begin
cPort1.Connected := False;
cPort1.Close;
end;

procedure TForm1.StartComPort;
begin
cPort1.Open;
cPort1.Connected := True;
StatusBar1.Panels[0].Text := cPort1.Port;
end;[/syntax]

Statystyki: Napisane przez faber33 — 28 gru 2017, o 20:08

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-28T19:29:00+01:00

faber33 napisał(a):

ale nic to nie zmieniło bo po podłaczeniu urządzenia i tak łączy się z COM1 :/

ale nie pisz tak - że nic to nie zmieniło - bo robisz gdzieś okrutnego babola

jednak na początek - daj sobie spokój z tym:

faber33 napisał(a):

i teraz potrzebuje żeby apka jeśli "zobaczy" podłączony układ, który ma takie ustawienia:

ComPID_def := 'PID_6001';
ComVID_def := 'VID_0403';
ComManufacturer_def := 'FTDI';
ComSerial_Start := 'A9';

Połączyła się z tym urządzeniem.

i zostaw sam ComSerial po co ci badanie tych wszystkich dziwactw vid, pid itp itd - jeden serial wystarczy to po pierwsze
a po drugie

przed połączeniem NAJPIERW ROZŁĄCZ się poprawnie bo inaczej NIGDY się poprawnie nie podłączysz

pamiętaj też że proces rozłączania może być procesem asynchronicznym o ile wiesz co to w tym wypadku znaczy

Statystyki: Napisane przez mirekk36 — 28 gru 2017, o 19:29

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-28T19:23:14+01:00

Ok to prościej

Założenie jest takie:

Podłączam swoje urządzenie(FT232, który ma swoje PID, VID, Manufacturer i Serial) i teraz potrzebuje żeby apka jeśli "zobaczy" podłączony układ, który ma takie ustawienia:

ComPID_def := 'PID_6001';
ComVID_def := 'VID_0403';
ComManufacturer_def := 'FTDI';
ComSerial_Start := 'A9';

Połączyła się z tym urządzeniem.

Ogólnie rzecz biorąc to chciałbym uzyskać coś takiego jak w mkAVRCalculator czyli żeby apka wiedziała że to jest "moje urządzenie" i tylko z nim się łączyła

PS. Rzeczywiście z tym Startowaniem popłynąłem ale nic to nie zmieniło bo po podłaczeniu urządzenia i tak łączy się z COM1(jeśli pole "Port" w cPort1 jest puste) :/

Statystyki: Napisane przez faber33 — 28 gru 2017, o 19:23

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-28T19:14:20+01:00

Chciałbym pomóc ale sorki - kompletnie nie rozumiem twojego problemu

faber33 napisał(a):

Włączam apkę i boom MkUsbbDetector wykrywa i łączy się z portem COM35

kto się łączy ? MkUsbDetector ? a co on ma wspólnego z łączeniem ?

Dla mnie to troszkę namieszałeś z podejściem do wyboru portów COM ... po co ta cała zabawa w CheckCurrentComID; ? Co to ma na celu ?

Ja proponuję może opisz jaki jest twój cel ? co chcesz osiągnąć ? zakładam, że musisz mieć możliwość dostępu do jednej z przejściówek do którejś konkretnej - ok - tylko jak można najpierw startować jakieś połączenie a dopiero później próbować przypisać nowy port

StartComPort;
cominfo.ComPort := prt;
cominfo.ComID := id;

albo czegoś mocno nie rozumiem ....

jak mówię uprość pytanie, sprowadź do prostego problemu a nie tak - bo ciężko pomóc

Statystyki: Napisane przez mirekk36 — 28 gru 2017, o 19:14

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-12-28T19:00:23+01:00

Ja też zauważyłem podobny problem jak kolega driver0207 (Comport+ComDataPacket+MkUsbbDetector) że port nie zawsze się zamyka port po odłączeniu kabla (właśnie w moim przypadku dane w tym czasie są odbierane przez COM) :/ Także liczymy na pana Panie Mirku i czekamy z niecierpliwością na ten nowy fajniuśki komponent

Edit:
Dzisiaj wyszła kolejna "ciekawa przypadłość". Na początek dodam że MkUsbbDetector w najnowszej wersji tj. 1.6. Sytuacja wygląda tak: Mam jedno urządzenia z FT232 wykrywane pod COM35, z problemami (jak wyżej), ale go wykrywa apka w Delphi. Dzisiaj złożyłem drugi takie samo urządzenie i podłączam do kompa tylko to nowe i wykrywa je jako COM43 (tak jest w Menadrzeże urządzeń i przez Putty na tym porcie jest komunikacja jak należy). Włączam apkę i boom MkUsbbDetector wykrywa i łączy się z portem COM35 czyli ten od "starego urządzenia" chociaż fizycznie go NIEMA! jest tylko ten nowym COM43. Dodam że nie zapamiętuje niczego w plikach INI.

Kawałek kodu:
[syntax=delphi]procedure TForm1.WmAPPStartup(var Mag: TMessage);
begin
//informacje do sprwadzenia czy podłączono naszą płytkę do USB
ComPID_def := 'PID_6001';
ComVID_def := 'VID_0403';
ComManufacturer_def := 'FTDI';
ComSerial_Start := 'A9';

StatusBar1.Panels[0].Text := 'COM?';

CheckCurrentComID;
CheckNameModule;
end;

procedure TForm1.CheckCurrentComID;
var
i, len: Integer;
id, prt, pid, vid, manufacturer: String;

begin
len := MkUsbDetector1.GetAvailableComPortsEx;
for i := 0 to len-1 do begin
prt := MkUsbDetector1.MkComInfo[i].sPort;
id := MkUsbDetector1.MkComInfo[i].Serial;
pid := MkUsbDetector1.MkComInfo[i].PID;
vid := MkUsbDetector1.MkComInfo[i].VID;
manufacturer := MkUsbDetector1.MkComInfo[i].Manufacturer;

if ( pid = ComPID_def) AND (vid = ComVID_def ) AND (manufacturer = ComManufacturer_def) AND (AnsiStartsStr(ComSerial_Start,id)) then
begin
StartComPort;
cominfo.ComPort := prt;
cominfo.ComID := id;
Break;
end;
end;
end;

//prodecura wysyłają do podłączonej płytki zapytanie, która to werja(1,2 czy 4 czujniki)
procedure TForm1.CheckNameModule;
begin
try
cPort1.WriteStr('wyslij' + #13);
except
StopCom;
end;
end;

procedure TForm1.MkUsbDetector1NewComInfo(Sender: TObject;
MkComInfo: array of TMkComInfo; count: Integer);
var
i, len: Integer;

begin
if count > 0 then begin
if ( MkComInfo[0].PID = ComPID_def) AND (MkComInfo[0].VID = ComVID_def) AND (MkComInfo[0].Manufacturer = ComManufacturer_def) AND AnsiStartsStr(ComSerial_Start,MkComInfo[0].Serial) then
begin
cominfo.ComPort := MkComInfo[0].sPort;
cominfo.ComID := MkComInfo[0].Serial;

StartComPort;
CheckNameModule;
end;
end;
end;[/syntax]

PS. teraz dopatrzyłem że miałem wpisany COM35 do cPortu, ale to tak teraz wychodzi że on sobie otwiera ten port zamiast otwierać ten który tego if sprawdzającego pid itd. :/

Nawet jak zostawię to pole Port puste to łączy się z pierwszym portem czyli COM1 :/. Jak się może z nim łączyć skoro nie spełniony jest warunek z if'a więc nie wywołuje procedury StartComPort; ???

Statystyki: Napisane przez faber33 — 28 gru 2017, o 19:00

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-10-31T16:55:21+01:00

Witam.
Dane nie są wysyłane .

a czy odbierane hmm tego nie wiem . Mam położony komponent ComTerminal może on coś nasłuchuje .

-- 4 minutach --

Fajnie!! Na pewno komponent zakupie . Delfi narazie ma wiele plusów . Co do b4j się trochę sparzyłem. Przez to ze napisać jakiś program by działał na win xp graniczy z cudem .
A tu proszę wrzucam i działa. Fajne są te komponenty takie gotowe jak to okno terminala czy to ze można dodawać nowe komponenty . Super wręcz.

Statystyki: Napisane przez driver0207 — 31 paź 2017, o 16:55

Re: MkUsbDetektor i obsługa błędu połączenia portu com

2017-10-31T16:39:49+01:00

a czy w trakcie rozłączania masz wysyłanie jakichś danych przez COM ? bo jeśli tak to może być właśnie taki problem albo gdy są odbierane

poza tym mówiłem w poradniku, że to nie jest i tak eleganckie rozwiązanie i być może - zdarzy się, że kiedyś nie zadziała

Ja mogę tylko podpowiedzieć, że jestem w trakcie pisania komponentu do komunikacji przez port COM - który będzie działać w 100% normalnie i nie będzie potrzeba takich kocich tricków robić ... jak się przetnie siekierą kabel albo rozłączy FIFI albo Bluetooth to najnormalniej w świecie port się sam rozłączy właściwie a nawet będzie wbudowany mechanizm żeby mógł się automatycznie sam włączyć gdy awaria minie ... no ale to jeszcze trzeba troszkę poczekać

Statystyki: Napisane przez mirekk36 — 31 paź 2017, o 16:39

MkUsbDetektor i obsługa błędu połączenia portu com

2017-10-31T16:15:56+01:00

Witam mam mały problem napisałem sobie terminal rs232 w delphi i zgodnie z poradnikiem 004j chciałem sobie zrobić by nie pokazywał mi się błąd przy odłączeniu przejściówki rs232.
Błąd mam dalej.

W zdarzeniu oncomdetect mam

[syntax=delphi]if inout = 0 then begin
Memo1.Text := IntToStr(inout);

ComPort1.Close;

end;[/syntax]

Wyglada jak by za wolno zamykał się port com .

cały program wygląda tak :
[syntax=delphi]unit TERMINAL;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
Vcl.ExtCtrls, CPort, CPortCtl, mk_usb_detector ;

type
TForm1 = class(TForm)

Panel1: TPanel;
Edit2: TEdit;
Button3: TButton;
Button4: TButton;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
ComPort1: TComPort;
MkUsbDetector1: TMkUsbDetector;
ComTerminal1: TComTerminal;
Memo1: TMemo;

procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure MkUsbDetector1ComDetect(Sender: TObject; ComPort: string;
inout: Integer);
procedure ComPort1Error(Sender: TObject; Errors: TComErrors);
procedure ComPort1Break(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled := False;
Button2.Enabled := True;
Button4.Enabled := True;
ComboBox1.Enabled := False;
ComboBox2.Enabled := False;
ComboBox3.Enabled := False;
ComboBox4.Enabled := False;
ComboBox5.Enabled := False;

if ComboBox2.ItemIndex = 0 then ComPort1.BaudRate := br1200;
if ComboBox2.ItemIndex = 1 then ComPort1.BaudRate := br2400;
if ComboBox2.ItemIndex = 2 then ComPort1.BaudRate := br4800;
if ComboBox2.ItemIndex = 3 then ComPort1.BaudRate := br9600;
if ComboBox2.ItemIndex = 4 then ComPort1.BaudRate := br14400;
if ComboBox2.ItemIndex = 5 then ComPort1.BaudRate := br19200;
if ComboBox2.ItemIndex = 6 then ComPort1.BaudRate := br38400;
if ComboBox2.ItemIndex = 7 then ComPort1.BaudRate := br57600;
if ComboBox2.ItemIndex = 8 then ComPort1.BaudRate := br115200;
if ComboBox2.ItemIndex = 9 then ComPort1.BaudRate := br256000;

if ComboBox3.ItemIndex = 0 then ComPort1.DataBits := dbEight;
if ComboBox3.ItemIndex = 1 then ComPort1.DataBits := dbSeven;
if ComboBox3.ItemIndex = 2 then ComPort1.DataBits := dbSix;
if ComboBox3.ItemIndex = 3 then ComPort1.DataBits := dbFive;

if ComboBox4.ItemIndex = 0 then ComPort1.StopBits := sbOneStopBit;
if ComboBox4.ItemIndex = 1 then ComPort1.StopBits := sbTwoStopBits;

if ComboBox5.ItemIndex = 0 then ComPort1.Parity.Bits := prNone ;
if ComboBox5.ItemIndex = 1 then ComPort1.Parity.Bits := prEven ;
if ComboBox5.ItemIndex = 2 then ComPort1.Parity.Bits := prMark ;
if ComboBox5.ItemIndex = 3 then ComPort1.Parity.Bits := prOdd ;
if ComboBox5.ItemIndex = 4 then ComPort1.Parity.Bits := prSpace;

ComPort1.Open;
ComPort1.Connected := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Enabled := True;
Button2.Enabled := False;
Button4.Enabled := False;
ComboBox1.Enabled := True;
ComboBox2.Enabled := True;
ComboBox3.Enabled := True;
ComboBox4.Enabled := True;
ComboBox5.Enabled := True;

ComPort1.Close;
ComPort1.Connected := false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ComTerminal1.ClearScreen;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
{cport.PutString(Edit2.Text);}

if CheckBox1.Checked = false or CheckBox2.Checked = false or CheckBox3.Checked = false then begin
ComPort1.WriteStr(Edit2.Text );
end;

if CheckBox1.Checked = true then begin
ComPort1.WriteStr(Edit2.Text + #13 );

end;

if CheckBox2.Checked = true then begin
ComPort1.WriteStr(Edit2.Text + #10 );

end;

if CheckBox3.Checked = true then begin
ComPort1.WriteStr(Edit2.Text + #13 +#10 );

end;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CheckBox2.Checked := false;
CheckBox3.Checked := false;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
CheckBox1.Checked := false;
CheckBox3.Checked := false;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
CheckBox1.Checked := false;
CheckBox2.Checked := false;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComPort1.Port:= ComboBox1.Items[ComboBox1.ItemIndex];
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
MkUsbDetector1.GetAvailableComPorts(ComboBox1.Items, false);
end;

procedure TForm1.ComPort1Break(Sender: TObject);
begin
ComPort1.Close;
end;

procedure TForm1.ComPort1Error(Sender: TObject; Errors: TComErrors);
begin
ComPort1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox2.AddItem('1200',nil);
ComboBox2.AddItem('2400',nil);
ComboBox2.AddItem('4800',nil);
ComboBox2.AddItem('9600',nil);
ComboBox2.AddItem('14400',nil);
ComboBox2.AddItem('19200',nil);
ComboBox2.AddItem('38400',nil);
ComboBox2.AddItem('57600',nil);
ComboBox2.AddItem('115200',nil);
ComboBox2.AddItem('256000',nil);

ComboBox3.AddItem('8',nil);
ComboBox3.AddItem('7',nil);
ComboBox3.AddItem('6',nil);
ComboBox3.AddItem('5',nil);

ComboBox4.AddItem('1',nil);
ComboBox4.AddItem('2',nil);

ComboBox5.AddItem('NONE',nil);
ComboBox5.AddItem('EVEN',nil);
ComboBox5.AddItem('MARK',nil);
ComboBox5.AddItem('ODD',nil);
ComboBox5.AddItem('SPACE',nil);

ComboBox2.ItemIndex := 3;
ComboBox3.ItemIndex := 0;
ComboBox4.ItemIndex := 0;
ComboBox5.ItemIndex := 0;

end;

procedure TForm1.MkUsbDetector1ComDetect(Sender: TObject; ComPort: string;
inout: Integer);
begin
if inout = 0 then begin
Memo1.Text := IntToStr(inout);

ComPort1.Close;

end;

end;

en[/syntax]
Z góry dzięki za pomoc.

a oto błędy

Statystyki: Napisane przez driver0207 — 31 paź 2017, o 16:15