a znana Ci jest może instrukcja ECHO OFF|ON w BACOMIE ? Jeśli nie to spróbuj jej użyć przed pętlą DO..LOOP
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 >=
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ę...
Dokładnie jak kolega wspomniał powyżej. Poza tym, dodam tylko od siebie, że trochę kolega autor tematu namieszał z różnymi typami danych. W zdarzeniu nadejścia znaku ASCII ( OnRxChar ) czyta kolega dane do bufora zbudowanego z tablicy byte? To "niewielka" niekonsekwencja :) Sugeruję zdecydować się na konkretny typ danych (znaki albo bufor danych) i...
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ę .
(at)artbweb - wolałbym praktykę z debuggera niż teorię ;)
type TForm1 = class(TForm) ComPort: TComPort; [...] ComPort.Open; Str := 'Test' + #13#10; ComPort.WriteStr(Str); //wysyła string if ComPort.Connected then ComPort.Close [...] lub : Var b : byte; [...] b:=25; ComPort.Write(b,1) //wysyla pojedynczy bajt lub ich ciąg [...]
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:...
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
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...
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 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...
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.
[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);...
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;...
ostrytomasz , moja przejściówka oparta jest o układ FTDI - w opcjach zaawansowanych portu COM można zmieniać opóźnienie i zmniejszenie go spowodowało znaczne ustabilizowanie komunikacji oraz skrócenie czasów odpowiedzi do ok. 8ms. Choć i tak zdarzają się wyskoki do kilkudziesięciu ms. Ale to już - jak rozumiem - uroki Windows? :) oloam , ja mam podobną...
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...
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)...
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, 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...
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,...
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ą...
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...
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...
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...
[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()...
:) 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;...
<-- Nie wiem czy umieszczam ten temat w dobrym dziale, jeśli nie, proszę o przeniesięcie --> Witam, mam problem z IrDĄ... IrDA: Chyba Kingsun.. Z wyglądu taka sama jak tu: (patrzcie na allegro) Taka IrDA z napisem: IrDA USB Mianowicie zrobiłem sobie coś takiego jak tu: http://4programmers.net/Delphi/Artykuły/...
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 ! Proszę o pomoc w wykonaniu programu w Delphi. Do tej pory zajmowałem się głównie programowaniem mikrokontrolerów w asemblerze. Projekt który obecnie wykonuję wymaga jednak aplikacji PC wyświetlającej wynik wysłany z mikrokontrolera przez RS. Calość wygląda mniej więcej tak: 1. Mikronotroler zlicza impulsy z enkodera 2. Po stosownych obliczeniach...
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 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...
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,...
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
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...
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,...
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, 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 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
pralka whirlpool słabo wiruje komputer stacjonarny uszkodzony napełniania syfony
samsung ue50au8002k samsung ue50au8002k
Jak zainstalować BusyBox v1.30.1 - poradnik Schemat instalacji elektrycznej Piaggio X8 125 2006