Nie znam tego komponentu. Ja w Delphi używam TapdCOMPort z pakietu Async Professional. Domyślam się, że procedura TMainWindow.SerialRxChar jest procedurą obsługi zdarzenia nadejścia danych do bufora komponentu. Jeśli tak jest, powinieneś bufor RxBuffer zadeklarować na zewnątrz tej procedury i w każdym wywołaniu TMainWindow.SerialRxChar doklejać do niego...
Dzięki za podpowiedź. Wcale nie bronię się przed FTDI. Wpadłem na omawianą tu przejściówkę, która hardware'owo wygląda prościej - wirtualny port + oprogramowanie np. w Delphi i TComPort -> kabel -> AVR -> SPI niż to samo z wykorzystaniem FTDI - wirtualny port + oprogramowanie np. w Delphi i TComPort -> kabel -> FTDI -> AVR -> SPI. Obadam jednak sytuację...
Dzieki za odpowiedz, str to zmienna typu string do której ładuje sie liczba wysylana z atmegi w przedziale 1-1024, zakonczona #13#10 Logicznie rozumując, na początku jest pusta.
pozostają znaki #13#10 co nie jest problemem, ale wycinanie stringa to dość brutalna metoda ;) W VB i na konsoli nie mam jak to nazwałem efektu "echo", ten problem mam tylko w delphi 248 248 248 248 248 248 248 248 248 248 248 248 248 48 248 248 248 248 248 248 248 248
Witam, ja bym to rozwiązał w nieco inny sposób, mianowicie: stworzył bym wątek który by wysyłał dane na com, po wysłaniu w pętli bezczynności oczekiwał na wywołanie zdarzenia OnRxChar przekazywał bym je do wątku a w nim odpowiednio na nie reagował, czyli zapis/przetworzenie/wyświetlenie (w memo) odebranych danych i wysłanie kolejnej paczki danych na...
Nie wiem jak wczesniej wpisywales warunek, ale w tym przypadku masz zle ,bo warunek dziala tylko i wylacznie kiedy count rowna sie dokladnie 5. warunek ,ktory podalem na poczatku powinien dzialac , nie rozumie dlaczego ci nie dziala, zwracam jeszcze raz uwage na znak >=
Witam ATMEGA8 wysyła dane przez UART i przejściówkę FT232 do komputera. Program w Delphi za pomocą kontrolki TcomPort odbiera dane i ma rysować wykres za pomocą kontrolki TchartFX, ale go nie rysuje. Pokazuje błąd przy konwersji że dane nie są typu Integer. zmienna1:=comport1.ReadChar; lub zmienna1:=comport1.ReadString zm:=StrToInt(Zmienna1) wtedy pokazuje...
Witam! Polecam komponent TComPort który można pobrać:[url=http://sourceforge.net/proje... Po rozpakowaniu odszukaj plik z opisem jak go zainstalować w twojej wersji Delphi.
Witam ! Mam pewien problem. Otóż w moim programie na ATMEGA mam taki zapis $crystal=11059200 $baud=9600 config serialin=buffered, size=10 FOR i=1 to 1500 PRINTBIN DANE(I) NEXT I Po stronie PC mam w DELPHI program używający darmowego komponentu TCOMPORT. Próbuję skomunikować się z ATMEGA od strony PC i wszystko chodzi bardzo ładnie ( dlatego nie umieściłem...
Witam, Piszę w Delphi różne aplikacje ,które współpracują z urządzeniami elektronicznymi poprzez port LPT lub COM.Do transmisji szeregowej używam komponentu TComPort ,a do LPT Small Port. Obydwa są freeware ,są dostępne na sieci.
Witam, najprościej chyba będzie wrzucić dodatkowe trzy kontrolki ComPort, będziesz miał wtedy ComPort1,ComPort2,ComPort3,ComPort4, i teraz albo masz jedna procedurę (zdarzenie) podpiętą pod wszystkie kontrolki albo dla każdej osobne zdarzenia, lub też bardziej zamotać i zrobić tablice obiektów TComPort i kombinować w tym kierunku. Trudno mi tak z fusów...
Nie działało poprawnie, dopóki nie odznaczyłem Project -> Options -> Compiler ->Range Checking. Wywalało ten ten błąd, o którym pisałem wcześniej. Teraz się zmieniło i działa ;) Więc dzięki za pomoc :) BTW - czy zdarzeniu 'TForm1.ComPort1RxChar' można dać takie coś, jak Enabled = False oraz True? Chciałbym, aby po zebraniu przykładowo tych 20k próbek...
oloam , nie ukrywam że używając komponentu TComPort nie zagłębiałem się w tajniki odbioru danych - we wszystkich dotychczasowych sytuacjach jego domyślne ustawienia sprawowały się zadowalająco. Dopiero teraz - przy reżimie czasowym na odpowiedź - pojawiły się problemy. Idąc Twoim tropem sprawdziłem ustawienie SetCommMask - w komponencie widoczne jako...
No własnie problem jest tego typu że po mimo tego iż mam złącze obdII to akurat ten model nie współpracuje z żadnym interfacem nikt nie wie jakiego protokołu używa... Moj komputer jest w stanie odczytać tylko Komputer TestBook 4 serwisowa zabawka Rovera! Dopiero od 2001 roku Rover jest zgodny z OBDII ;/ No to straszny pech. W takim przypadku musisz...
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); Masz coś takiego jak Count. Spróbuj w pętli robić ComPort.ReadStr(Str, Count); Memo1.Text := Memo1.Text + Str; Powtarzaj pętlę Count razy. Używałem kiedyś ComPort ale jakoś inaczej to robiłem. Jak to nie zadziała to wieczorem sprawdzę w domu jak to było... Nie zadziała, bo po pierwszym...
Ma ktoś jakiś przykładowy kod z" CreateProcesAsUser" dla delphi bo nie mogę go znalesc:/ Dodano po 2 Próbowałem przenieść kod z procesu na usługę systemową, niestety wystąpiło parę błędów o to kod: unit Unit1; interface uses Windows, Messages, SysUtils,Variants, Classes, Graphics, Controls, SvcMgr, Dialogs, ExtCtrls, Shellapi, IdBaseComponent, IdComponent,...
Dzięki, działa świetnie, przy wyświetleniu pierwszej linii w Memo, kolejne linie, które się pojawiają w memo nie są aktualizowane w Lebel*.text, pewnie to banalne ale ja dopiero zaczynam w delphi, poniżej fragment kodu. begin ComPort1.ReadStr(Str, Count); Memo1.Text := Memo1.Text+Str; st:=TStringList.Create; try st.Delimiter:='|';...
Trchę niejasna procedura: procedure TForm1.BitBtn1Click(Sender: TObject); begin if ComPort1.Connected then - jeśli podłączony begin ComPort1.Close; - zamknięcie poru end else begin ComPort1.Open; - jeśli nie podłączony otwarcie portu end; end; Może tutaj błąd , chyba że się mylę .
Witam, Piszę program w DELPHI obsługujący pomiar dwóch czujników DS18B20. Mikro kontroler to ATMEGA32, program w BASCOM. Wszystko ogólnie już działa: wysyłam po UART ciąg znaków jako string i odbieram wybrane przeze mnie znaki o danej ilości funkcją Copy w DELPHI. Korzystam z biblioteki TComPort. Jedyny problem to z Label'i zrobił mi się generator:...
[syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ComPort; type TForm1 = class(TForm) CheckBox: TCheckBox; ProgressBar: TProgressBar; RShow: TEdit; Memo: TMemo; ComPort: TComPort; procedure ComPortRxChar(Sender:TObject;Count:Integ... private procedure SetProgressBar(Value:Integer);...
Wstawki assemblerowe dot. dostępu do portów (in,out) nie działają w XP/2000. W Delphi do LPT można użyć ZlportIO a do coma - TComPort. Działa - sprawdziłem pzdr JIMI
http://www.google.pl/codesearch?hl=pl&lr... Sprawdzić otwarte możesz bodajże przez przechwycenie wyjątku próby otwarcia każdego z nich.
Witam Prosze o pomoc z wiazana z nastepujacym problemem . Pisze program w delphi ktorego glownym zadaniem jest komunikacja z zewnetrznym urzadzeniem przez rs-232. znalazlem komponent cport do tego http://delphi.icm.edu.pl/ftp/d30share/co... narazie chce tylko otworzyc port i procedura moja mala wyglada tak : unit Main; interface uses Windows,...
Witam Mam urządzenie z układem FT232R i pisze programik w delphi do komuniakcji z nim jako wirtualny port COM (korzystam z komponentu Tcomport), wszystko działa ok ale za każdym razem po podłaczeniu do innego komputera lub innego portu USB zmienia się fizycznie numer portu i trzeba manualnie to przestawić, pytanie czy da się automatycznie odczytać po...
Jeśli chodzi o dynamiczne tworzenie obiektów-komponentów (jak zwał tak zwał) wystarczy w sekcji uses dodać moduł w którym jest klasa, dajmy na to na przykładzie ComPort-a unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort; type TForm1 = class(TForm) procedure FormCreate(Sender:...
Witam, piszę właśnie obsługę Modbusa (master) w Delphi. Do komunikacji przez RS używam komponentu TComPort. Problem w tym, że około 10% odebranych ramek ma ucięty początek. Procedura odbioru(bez dalszego przetwarzania) wygląda następująco: procedure TFkomunikacja.ComPort1RxChar(Sender&... TObject; Count: Integer); var odebrane:Ansistring;...
Witam. Mam problem z odbiorem tego co wysyła mi uC za pomocą RS232. W terminalu obieram informacje a w delphi jakos nie odbiera nic. Moze mi powiedzieć ktoś w czym tkwi problem? Kod do delphi: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, CPort; type TForm1 = class(TForm)...
Jak programowo rozpoznać jakie urządzenie podpięte jest pod który port com? Dokładniej to mam 3-4 urządzenia wpięte pod usb, na symulowanym porcie com. Do komunikacji korzystam z komponentu TComport. Nie znam sposobów komunikacji z urządzeniami, by próbować odpytać jakąś konkretną komendą każdy dający się otworzyć port. I przy okazji.... jak zmienić...
Ale algorytm wyświetlania jest prosty: 1. Pobierz wartość 2. Wstaw na wykres 3. Idź do 1. Za wykres posłuży komponent TChart - bardzo rozbudowany. Za czytanie z pewnością odpowiedzialny będzie jakiś TComPort. Za interpretację i ew. przeliczenie wartości - Ty sama w oparciu o sporządzoną przez kolegę specyfikację przesyłanych danych. Jeśli chodzi o średnią...
Witam! Używam Comport z sukcesem już dosyć długo, ale nigdy nie korzystałem z ReadStr, no i uzywam go w Delphi, ale mam nadzieję że się dogadamy :D: Stan portu masz sprawdzany tylko na początku programu w zdarzeniu FomCreate, a otwierasz go pózniej. Wrzuć na fomę komponent ComLED, w inspektorze obiektów ustaw jego właściwośc Comport na Comport1, LedSignal...
[syntax=basic4gl]$regfile = "M16DEF.DAT" $crystal = 16000000 $baud = 57600 Config 1wire = Portd.7 Dim Odczyt As Integer Dim T As Single Dim Z As Byte Dim Zn As String * 1 Wait 1 1wreset 1wwrite &HCC 1wwrite &H44 Wait 1 1wreset 1wwrite &HCC 1wwrite &HBE Odczyt = 1wread(2) T = Odczyt - 16 T = T * 10 T = T \ 16 T = T \ 10 Print T Do Z = Ischarwaiting()...
Dziękuj kolego Dżyszla, że w ogóle pomagasz takiemu laikowi jak ja ;) Co do Entera może to być inny znak, który wykryję podczas odbierania paczki ale może być. Przerobiłem program - teraz jeszcze lepszy, ciekawszy błąd który dla laika mówi - wyrzuć komputer za okno... ;D Program się kompiluje ale wywala błąd po uruchomieniu COM. [syntax=delphi] unit...
:) Delphi to chyba tylko Borland:) co innego jak bym napisał Turbo Pascal oto mój kod: unit UART; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort, StdCtrls; type TForm1 = class(TForm) BtnOtworz: TButton; BtnSettings: TButton; BtnWyslij: TButton; EdtMsg: TEdit; ComMemo: TMemo; CBNewLine: TCheckBox;...
spróbuj to: [syntax=pascal] unit ODCZYTRS; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CPort; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; ComPort1: TComPort; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ComPort1RxChar(Sender:...
Nie działa :( [syntax=delphi] unit Oscyloskop_comport; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort, StdCtrls, ExtCtrls; type TForm1 = class(TForm) BtnOtworz: TButton; Settings: TButton; Wyslij: TButton; EdtMsg: TEdit; ComMemo: TMemo; CBNewLine: TCheckBox; ComPort: TComPort; Image1: TImage;...
witam Po napisaniu programu w oparciu o artykół : http://4programmers.net/Delphi/Artykuły/... napotkałem na błąd, który wyskakuje za każda próbą naciśnięcia przycisków otwórz, i wyslij,a także przy próbie zatwierdzenia settingu cportu. ten błąd to http://obrazki.elektroda.net/23_12358278... różni...
Pisze w Delphi7 oprogramowanie do komunikacji z procesorem ADuC812 po USB i LAN z wykorzystaniem konwerterów (RS-USB i LAN-USB). Korzystam z komponentu TComPort (wersja chyba 1.6, ale tu nie ma znaczenia). Wszystko jest fajnie, do momentu gdy odbieram wieksza ilosc danych. Po odebraniu okolo 23% danych transmisja sie urywa. Gdy próbuje cos wyslac do...
Witam, Robię obsługę po RS-ie miernika Motech MT 4090. Miernik Ustawiony na Tryb Remote. I teraz kilka dziwnych rzeczy. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Witam szanownych kolegów Na wstępie powiem, że jestem początkującym programistą Delphi (tyle co w szkole nauczyli podstaw), a z Rsem w ogóle nie miałem do czynienia. Chce napisać program który będzie zbierał sygnał od miernika (sygnał napięciowy 0-2V). Na początek poszukałem jakiś przykładowych programów do obsługi RSa, żeby w ogóle zapoznać się z tematem,...
A to przez USB jest? To sprawdź, czy masz sterownik poprawny. W końcu już się wkurzyłem i zrobiłem kilka eksperymentów Najpierw zacząłem wysyłać dane przez terminal i także było źle potem dopisałem do wysyłanych danych #13#10 do wysyłanych i zapętliłem program sprzętowo , i także źle W końcu "zapętliłem" dwa wynikowe programy na dwu różnych komputerach...
Witam, piszę program do przesyłania wsadu przez port COM do Pierwszy problem: Udało mi się przerobić format IntelHex na bajty danych. Niestety te bajty danych są zapisane w postaci tekstu, a ja muszę je wysłać do mikrokontrolera w czystej postaci bajtów danych (nie wiem jak to inaczej napisać?) i nie wiem jak to zrealizować . Zwykle komendy wysyłam...
Witam wszystkich Na początku chce zaznaczyć, że dopiero zaczynam zabawę z RSem i programowaniem. Chce napisać program który odczytywałby sygnał napięciowy (powiedzmy 0-2 VAC) i pokazywał go w formie wykresu. Póki co do wykresu nie doszedłem wiec to zostawmy. Troszkę zmodyfikowałem gotowy program znaleziony na necie, dzięki pomocy z innego tematu odpaliłem...
Witam Mam taki problem: nie wiem jak wysłać orbazek do przeglądarki www. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,IdBaseComponent, IdComponent, IdCustomHTTPServer, IdContext, IdHTTPServer, StdCtrls, ComCtrls, IdCustomTCPServer, IdSocketHandle, MMSystem, CPort, CPortCtl, GR32_Image,...
Witam, Próbuje zrobić układ dzięki któremu przy pomocy komputera z portem szeregowym RS232 będe mógł sterować urządzeniami podłączonymi do zewnętrznego układu z mikroprocesorem AtMega8. Układ ma za zadanie odbierać komendy z PC w formacie #X.Y gdzie X - numer kanału, Y (1 - włącz, 0 - wyłącz) np #3.1 - Włącz kanał 3. Układ został już zmontowany. Póki...
Witam. Mam problem z dynamicznym utworzeniem komponentu ComPort. Mój kod wygląda następująco: procedure TForm1.FormCreate(Sender: TObject); begin Twoj_ComPort:=TComPort.Create(ni... Twoj_ComPort.Connected:=True; Twoj_ComPort.Port := 'COM1'; Twoj_ComPort.Events := [evRxChar]; Twoj_ComPort.BaudRate := br9600;...
odczyt tcomport delphi otwieranie plików delphi kalibracja delphi
mondeo pompa zmieniarką blaupunkt telefon słuchawka bluetooth
amica pa5560a411 instrukcja pralka amica pa5560a411
Renault Kangoo 2024 – lokalizacja akumulatora 12V i HV, wersje spalinowe i E-Tech Znaczenie liter w numerze fabrycznym alternatora Valeo