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 [...]
Martech MDM Service Tools V3.0.0.5 - AT Terminal added MDM introduces AT Terminal - special application to work with at commands on modems. It's designed for all users who like to play with their modems with various commands. You can use one time commands or create special macro and run it later. Once sent to modem you are getting reply in window below....
To send byte(s) just use write method (before set and open correctly port) file of byte type variable, copy to array and send like i wrote. Otherwise You can read as TFileStream, and read bytes into byte variable, and then send it - all in loop while end of file (stream).
Witam! Staram się napisać wtyczkę do programu Centrafuse odbierającą dane z magistarli iBus. Od dwóch dni walczę z wykraczaniem indeksu poza granice tablicy. Dzieje się tak, kiedy wtyczka odbiera widomości: 80 06 BF 19 0F 35 00 1A 80 05 BF 18 1A 14 2C 80 05 BF 18 1A 0E 36 80 05 BF 18 1A 09 31 80 05 BF 18 1A 08 30 Oczywiście napewno jest ich więcej,...
SPT tez idzie tylko mała kombinacja: Hi I write patch file for Z720B to my Z720 with firmware Z720BKGF and after this do unlock and phone unlocked without problems very good news Comport Connect OK. Modem Connect OK. Read Phone Info ... SW Ver: Z720BKGF2 HW Ver: MP 1.303 IMEI: 352023010757991 BTID: 001C43-66DC5D Phone SN: R3PP636740 MCK: ******xx NCK:...
Witam, jestem zainteresowany tą aktywacją, proszę mi powiedzieć czy w przyszłości projekt rozwinie się o platforme AD, TI, IF, MTK ?? Bo głównie te modele przynoszą mi do unlocka (KP500, KG...) Pozdrawiam "Martech QUL Service Tools QUL - new service tool from Martech Team, designed for servicing LG phones based on Qualcomm cpu. Innovative solution in...
Witam. Zajmuje się projektem, którego częścią jest komunikacja z RS 232. Początkowo chciałam używać do tego funkcji API ReadUart, WriteUart jednak na forum przeczytałam, że bezpieczniej będzie używać już gotowego komponentu ComPort. Zainstalowałam go, przejrzałam examples, ale nie wiem jak ruszyć np. wysyłanie tym komponentem znaku 'A' na Com. Gdzieś...
Witam. Ściągnij sobie komponent comport. Na forme wstaw 2 x memo, 1 x edit, 3 x buton i comport. 'button1 do łączenia i rozłączenia 'button2 do wysyłania 'button3 do ustawienia portu 'edit1 do wpisania tekstu jaki chcesz wysłać 'memo1 do odebrania tekstu 'memo2 do "pomocy" ustawione jako niewidoczne 'zdarzenie do ustawienia portu procedure TForm1.Button3Click(Sender:...
1. Każdy bajt składa się z 2 znaków w formacie HEX. Czytasz po 2 znaki, zamieniasz z Hex na Dec i wysyłasz. Zamieniłem Hex na Dec: 919222192211922019219192181921719216192 1519214192173631190207233205191162241602... 176224119229146166541777225247220874192 2312071514731147231861362241351872418632... 96048145970160231183225242240239236235 2462251052331142247023784225180155254207...
W ComPort ver. 3.xx function Write(const Buffer; Count: Integer): Integer; W ComPort 4.xx [...]TCPortBytes = PAnsiChar;[...] procedure Write(const Buffer:TCPortBytes; Size: Integer);
Masz przecież w tym przykładzie konkretną funkcję: private void btnHello_Click(object sender, EventArgs e) { ComPort.Write("Hello World!"); } Gdzie wysyłasz tablicę zmiennych typu char (czyli 8bitowe zmienne). Zamiast ciągu znaków wstawiasz po prostu pojedynczy znak np. 'a' i wysyła ci wartość 97 (zgodnie z tablicą...
Dzien dobry do odczytu dany z glukometru w linuxie wykorzystuje kod [syntax=python] #!/usr/bin/python import serial import time import io for i in range (0, 255): ComPort = serial.Serial('/dev/ttyS0') ComPort.baudrate = 9600 ComPort.bytesize = 8 ComPort.parity = 'N' ComPort.stopbits = 1 Nas = ComPort.write('\x06') sio = io.TextIOWrapper(io.BufferedRWPair(ComPo...
No widzisz. Bo wcześniej pisałeś że funkcji wysyłającej nie ma. Teraz wyszło że jest a jedynie nie działa. A ja bardzo nie lubię jak ktoś robi nieścisłości i nie napisze o nich tylko każe się ich domyślać :D A co do programu. Pętlę indexujesz od 1: [syntax=delphi]For i := 1 to HexEdit.DataSize do[/syntax] a potem dane wysyłasz od 0: [syntax=delphi]Form1.ComPort.Write(BA[0]...
po odebraniu 4 bajtow chce sprawdzac czy ktorymkolwiek nastapilo prezklamianie(bit parzystosci) ,jak to zrobic,do komunikacji uzywam comport. znalazlem w helpie przyklad Example procedure TForm1.ComPortError(Sender: TObject; Errors: TComErrors); begin if ceRxParity in Errors then ShowMessage('Paity error occured'); end; niestety nie wiem jak go uzyc...
Czyżby problem jest z [syntax=c]// Read com port number for( char * cp = argv[1]; *cp; cp++ ) { *cp = toupper( *cp ); } if(strstr(argv[1], "-COM")) strcpy(comPortName, &argv[1][1]); else { printf(usageString); return -1; }[/syntax] Plik comport.cpp [syntax=c] //======================================... // Copyright...
Witam serdecznie. Chciałbym nadmienić, że w temacie Javy jestem zupełnie początkujący, nie miałem też styczności z transmisją danych do portu USB... ale do rzeczy... Chce stworzyć program który będzie mi sterował wyjściami danych gotowego układu FTDI 245RL jednak mam problem aby układ przepisał dane. Pierwszą dana która wpisuje do portu od razu uzyskuje...
Dzięki za szybką odpowiedź. Wstępnie chciałem wykorzystać AVR231 z racji szyfrowania AES (chodzi o zabezpieczenie firmware uC), aczkolwiek tak myślę, że skoro to procesor będzie sam przechodził w tryb aktualizacji (znając serwer itd itp) a serwer będzie weryfikował jego ID (poprzez IMEI) to nawet jeśli ktoś już wpiął by się fizycznie między modułem...
Witam :!: Mam problem z transmisją pliku przez RS232 za pomocą programu napisanego w C++ builderze wykorzystującego API. Skorzystaj z klasy ComPortLibrary; ostatnio w wersji chyba 3.1 Bardzo ładnie obudowują API, w funkcje, które działają bezprobrlemowo i "męczyć" z kodem się nie trzeba.
oj chyba nie... catch to kawałek funkcji [syntax=vb]Try ; Catch ex As Exception End Try [/syntax] a linia [syntax=vb]MsgBox(ex.ToString)[/syntax] po wystąpieniu błędu który jest wtedy przechowywany w zmiennej ex która jest zamieniana przez polecenie .toString w text i wyświetlana w MsgBox'sie. natomiast linia [syntax=vb]SerialPort1.Write(TB_Wyślij.T...
Witam, Musze napisac kawalek programu robiacy: Inicjalizacja transkisji, wysylanie 260 bajtow kodu aplikacji a nastepnie po jakis 3 sekundach odbior 256 bajtow danych. Zrobilem to tak: comport1.connected:=true; comport1.clearbuffer(true,true); command:=$0B; // bootloader comport1.Write(command,1); comport1.Write(rdata_loader,260); // zaladuj kod do...
Dodano po 1 [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0 $baud = 1200 Config 1wire = Portb.0 Dim Adresy(16) As Byte Dim Temp As Byte Dim Temp_wew As String * 6 Dim Temp_zew As String * 6 Dim W As Byte Dim...
Witam. #include <windows.h> #include <stdio.h> #include "menu1.h" #include <process.h> #include <commctrl.h> #include "rs232.h" LRESULT CALLBACK ProcOkna(HWND, UINT, WPARAM, LPARAM); char szNazwaOkna[] = "Moje okno"; char napis[255]; char wynik[]; char result[]; int ilosc = 0; int kom; int wy; #define IDM_NOWA 100 #define IDM_WYJSCIE...
Gotowy unit do obsługi serial port dla win ce z pod lazarusa. [syntax=delphi] unit Win32CESerialCom; interface uses Windows, Classes, SysUtils, LResources, ExtCtrls; type TComBuf=array[0..255] of byte; TWin32CESerialCom = class(TObject) private hComm: THandle; public Connected:Boolean; function OpenPort(ComPort:String;BaudRate,ByteSiz...
Wgrałem ESPEasy32_R20100 do ESP-WROOM-32 i jest OK, przy czym najpierw wyczyściłem cały flash . Jak próbowałem z "nieczyszczonym" flashem, to po wgraniu kodu ESP restartował w kółko z powodu błędnego odczytu/zapisu SPIFFS. ESP_Easy0 Kod wgrywałem komendą pod linuksem: flashSerial.cmd , który jest w paczce ZIP. Flash czyści się tak samo jak esp8622?...
Ale do przesyłu plików binarnych (zawierających znaki z zakresu ACII 0-255) świetnie nadaje się zaprezentowany pierwszy przykład. On także zachowa Ci miejsca występowania znaków #13... A jeśli Ci chodzi o "zlinijkowanie" takiego pliku, czyli wysyłanie buforem, gdzie separatorem jest znak #13 to mniej więcej będzie to tak: (przy okazji porawiłem kod...
Fragment metody obsługującej kliknięcie przycisku i odczytanie wartości z pól: [syntax=cpp] outputV="VSET1 "+String(Edit2->Text); outputI="ISET1 "+String(Edit3->Text); int sizeV = outputV.Length(); int sizeI = outputI.Length(); sizeV+=2; sizeI+=2; Amrel.buff(Amrel,sizeV,portNumAmr); unsigned char* frame = new unsigned char[sizeV]; for(int i=1;...
Pare miesiecy temu napislem program, cos a'la terminal. Jedna z jego funkcji jest wysylanie dowolnych bajtow od 0- 255. Uruchamiam go teraz i cos jest nie tak, niektore znaki sa konwerowane do innych. Sciagnalem kilka przykladow z netu i .. to samo np: wysylam znak o kodzie 0x0D i otrzymuje na RS'ie 0xC3. Sciagnalem wrapper do COMport ktory korzysta...
Mistrzu faktycznie widzi port COM16 po tej zmianie (działa na Vista nie wiem jak inne systemy). Dziekuję fragment kodu dla C++ Builder: //lpFileName = "COM16"; // nie widzi portu lpFileName = "\\\\.\\COM16"; // teraz widzi hCommDev = CreateFile(lpFileName, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL); Co...
Nie wiedziałem, że chip ma znaczenie. Modem to Huawei E3131. Kod do wysyłki w C# wkleiłem, jest to klasa SerialPort, tutaj cały kod: Dodano po 1 Taki mam teraz kod: +CSCS: ("IRA","UCS2",&q... Wysyłałem sms dla każdej z tych wartości i za każdym razem mam sms bez polskich znaków. Nie ma UTF-8 ani ISO. W jaki...
Witam Mam taki problem... chcę wysłać chara przez kontrolke serial port w visual basic na port com. W delphi przez przez comporta nie było problemu bo posiada ten komponent funkcję: Przykładowy kod delphi : procedure TFormComPort.TD(a: Byte; b: Byte; c: Byte; d: Byte); begin ComPort.WriteByte(a); ComPort.WriteByte(b);...
Witam Niestety ta zmiana nic nie daje, pozatem dotyczy pliku CPortCtl.hpp, który nie jest przezamnie wykorzystywany, natomiast na forum ComPort-ta też nic nie znalazłem. Oto fragment pliku Cport.hpp z którym mam problem i zaznaczone linijki które powodują błędy kompilacji: public: __fastcall EComPort(int ACode, int AWinCode); __fastcall EComPort(int...
https://obrazki.elektroda.pl/3589381800_... Niedawno przedstawiłem wnętrze taniego smartbanda z interfejsem BT, kolorowym wyświetlaczem i kilkoma funkcjami typowymi dla tego segmentu https://www.elektroda.pl/rtvforum/topic3... Teraz opiszę jak zabrać się za programowanie tego układu. Opaską steruje SoC DA14585 firmy Dialog...
Całość wygląda tak //--------------------------------------... #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------... #pragma package(smart_init) #pragma link "CPort" #pragma link "CPortCtl" #pragma...
Bardzo dziękuję za odpowiedzi! Dziś pierwszy dzień w którym zacząłem uczyć się C++, udało mi się napisać takie coś: #include <windows.h> #include <stdio.h> #include <cstdlib> #include <iostream> using namespace std; int main() { HANDLE hCom; //uchwyt portu DCB dcb; //konfiguracja portu BOOL fSuccess; //flaga pomocnicza...
Witam Mam problem z tym komponentem w Delphi , tzn wszystko działa ale nie do końca , używam standardowych procedur jakie są w przykładach : procedure TForm1.Button5Click(Sender: TObject); var Str: String; begin Str := #94 + '2'; Str := str + #13#10; ComPort1.WriteStr(Str); end; procedure TForm1.ComPort1RxChar(Sender:...
Witam wszystkich Mój problem polega na tym że komputer powinien po dostaniu danych napływających z Arduino przez USB (Arduino wysyła "1") wyświetlić komponent Label1 jednakże pomimo tego że Arduino praktycznie zalewa komputer jedynkami nic się nie dzieje.(Wysyłanie (ComPort1->WriteStr("text");)działa prawidłowo) Poniżej znajdują się program który...
pilnie potrzebuje pomocy ;/ szukałem na forum opisu mojego problemu, niestety nie znalazłem, więc proszę Was o pomoc tutaj. Otóż muszę naprawić padniętego Siemensa c60. Znajomy robił flasha i po wgraniu telefon tylko "zabzyczał" i koniec. Nie dało rady zrobienie we frei "use orginal imei". Przeczytałem że trzeba było przeciąć testpointa i tak też zrobiłem...
Hello to everybody, Sorry,I don't speak Polish,but can understand a little bit. I just bought Stag 4 Qbox Basic equipment and fitted it into the car. But something turned bad. Problem is - I can't to do PC connection to the Stag controller and to do calibration. Every time when me trying to connect the note appears on PC screen: "No LPG controller"....
Witam. Mam malutki problemik i nie wiem jak przez niego przbrnac. Otoz chodzi o odbior paczki bajtow z rs'a z wykorzystaniem comportu. Kwestia sie rozbija o to iz wysylam z petli procedury kilka bajtow na rs'a. W odpowiedzi dostaje rownierz kilka bajtow. Odbierma te bajty do bufora i pozniej przetwarzam. Jak poczekac na pelne dane z rs'a. Jest tak ze...
Probowales mimo to ,ze nie mogles ustawic flag uzyskac polaczenie na comport? Kiedys napisalem programik ,ktory komunikowal sie z urzadzeniem ale nie chcial wlasnie wspolpracowac ze standardowym onrxchar. Wklejam tu fragmenty powycinane (postaram sie zeby stanowily jakas calosc) i mozesz sprobowac zrobic wg tego: for i:=1 to 1023 do begin //wysylam...
Wczytujesz hex do komponentu memo1 (musi mieć zaznaczoną opcję WordWrap=False żeby nie zawijał tekstu) wysłanie przez komponent Cport for i := 0 to Memo1.Lines.Count - 1 do begin st := Memo1.Lines.Strings[i]; If length(st) > 0 then begin st := st + #13; ComPort1.WriteStr(st); delay(400); // moja procedura...
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,...
//--------------------------------------... #include <vcl.h> #pragma hdrstop #include <iostream.h> #include <fstream.h> #include <math.h> #include <string.h> #include <stdlib.h> #include "Unit1.h" //--------------------------------------...
Marek dane zapisywane są w bazie Firebird za pomocą zdarzenia OnRxChar komponentu CPort i procedury: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Str : String; plik: TextFile; begin ComPort1.ReadStr(Str, Count); Memo1.Text := Memo1.Text + Str; AssignFile(plik,'C:\beltway\rs23...
Zrób tak jak pisze autor w pliku readme. Ja używam tego komponentu w bcb6 i instaluje sie bez problemu. Co do zasady działania to polecam przejrzeć example. W skrócie: wysyłanie : ComPort1->WriteStr("bebebe"); odbieranie alebo w samym comporcie w zdarzeniu OnRxChar albo w kompnencie równolegle instalowanym o nazwie ComPortPacket w zdarzeniu OnPacket.
Podpinam się pod ten temat , podobny przypadek , ten sam model (przynajmniej identyczna płyta główna). Utopiłem go w słonej wodzie . Dopiero po 2h udało mi się otworzyć slot simkarty , rozdzielić obudowę i odłączyć baterię. DO tego czasu dioda sygnalizacja migała różnkolorowymi sekwencjami. Po rozkręceniu dostępnym sprzętem (hotelowy nożyk) , wymoczeniu...
Witam, próbuję sflashować takie urządzenie BL602: https://ae01.alicdn.com/kf/H685843d0dcd0... https://www.aliexpress.us/item/325680334... Używam również tego klucza UART: https://ae01.alicdn.com/kf/HTB1Vnjfr2ImB... . https://www.aliexpress.us/item/225183261... Kiedy flashuję w systemie Windows...
Sprawdziłem przed sekundą - zawiesza się na open. Kod jest prosty - jest to przesłanie sygnału do drukarki fiskalnej poprzez comport1.writestr(...). Przed wysłaniem jest open a po wysłaniu close. Dla powyższej próby rozpisałem to na trzy buttony - 1.open, 2.writestr, 3.close - program stanął po kliknięciu open.
Zapytałem też o zmianę firmware urządzenia IoT - gpt-oss stwiedził, że to hacking i nie może pomóc. Jak widać, to zależy od przypadku, jest tu pseudolosowość. Dobrze jest wyczyścić sesję i spróbować ponownie. Właśnie niedawno zainwestowałem w kartę graficzną Gigabyte RTX 3090 z 24GBVRAM. Zainstlowałem Ollama i ten sam model gpt-oss:20b. Zadałem dokładnie...
Witam wszystkich Mój problem polega na tym że komputer powinien po dostaniu danych napływających z Arduino przez USB (Arduino wysyła "1") wyświetlić komponent Label1 jednakże pomimo tego że Arduino praktycznie zalewa komputer jedynkami nic się nie dzieje.(Wysyłanie (ComPort1->WriteStr("text");)działa prawidłowo) Poniżej znajdują się program który...
delphi7 comport comport string instalacja comport
obsługa mikrofon behringer kapie zaworu uruchomi laptop matryca lenovo
sharp aquos ustawienia sharp aquos ustawienia
Z czego wykonane są drzwi lodówki Samsung BESPOKE, Family Hub, RT3** – materiały, izolacja, uszczelki Skoda Roomster – bezpiecznik obrotomierza, numery slotów, wartości A, lokalizacja skrzynki
