Ale co konkretnie cię interesuje albo z czym konkretnie masz problem... Zasada jest bardzo prosta, połączenie przez port com wymaga jego konfiguracji, i albo robisz to ręcznie na sztywno, albo tworzysz klasę w której go konfigurujesz, tak czy inaczej musisz podać pewne parametry początkowe portu. Potem czekasz na wystąpienie zdarzenia OnReceive (a dokładniej...
Co to za zmienna Pamiec ? Nie konwertujesz czasem w którymś momentcie AnsiString do String lub odwrotnie ? Może tu jest problem
procedure ClearBuffer(Input, Output: Boolean); wystarczy helpa przejrzec ps poza tym function ReadStr(var Str: String; Count: Integer): Integer; przekazuje do Str bajty, nie bity
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;...
:) 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;...
Więc przerób na przyszłość na: [syntax=delphi]procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var Date1,Date2,Row,Str:string; begin ComPort.ReadStr(Str,Count); Memo.Lines.Add(Str); while Length(Str)>0 do begin Row:=Parse(Str,#13); Label1.Caption:='wynik odczytu Date1= '+Copy(Row,1,1);//początek danych Label2.Caption:='wynik odczytu...
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 problem z zapisem danych z ComPortu. Mianowicie mam eventa na OnRxChar, odbieram dane z urządzenia ale zamiast normalnych danych jak np w hyperterminalu: 4833.407 4833.638 4833.870 4834.100 4834.331 4834.563 dostaje coś takiego: 484 2.417 4842.647 48 42.879 484 3.109 Jak widać dzieje się z coś dziwnego. Nie umiem zlokalizować miejsca w którym...
Witam Piszę makro w VBA pod Excelem 2007 z wykorzystaniem kontrolki mcscomm.ocx. Mogę ustanowić komunikację z urządzeniem za pomocą poniższego kodu: [syntax=VB]Public commX1 As mcscomm.CommX Private Sub CommandButton1_Click() Set commX1 = CreateObject("mcscomm.CommX") commX1.PORTNAME = "\\.\COM3" commX1.BaudRate = 1200 commX1.DATABITS = 7 commX1.StopBits...
Witam, próbuję czytać dane z pewnego urządzenia podłączonego do portu COM. Posługuję się wielokrotnie już tu opisywanym komponentem TComPort. Również kod obsługujący poszczególne akcje wiele razy się przewinął. Jest tylko taki problem, że w większości przypadków programy w końcu zadziałały tak, jak chciał autor, a u mnie się zacina. Ale do rzeczy: Po...
Witam! Mam problem zodczytem danych z RS - wykorzystuje komponent Tcomport, procedury odczytu znalazłem na elektrodzie, jednak mimo wszytko nic mi nie działa. AVR wysyła temperaturę w formacie np. 23.4 (string), jeśli korzytam z emulatora BASCOM lub Hyperterminala wszystko jest OK, dane są poprawnie odczytywane, zaś przez załączony poniżej programik...
Właściwie to wszystko poprzednio już napisałem. Po zrobieniu tego wszystkiego o czym poprzednio pisałem w obsłudze zdarzenia OnPacket piszesz np. [syntax=delphi] procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: String); begin chart1.Series[0].Add(StrToFloat(Str); end; [/syntax] lub robisz co chcesz ze stałą Str w której masz tylko tą...
Witaj KeinXor, Poruszałem podobny temat ale tam importowałem dane z pliku txt bo nie było innego wyjścia. Tutaj sam zapisuje dane do txt i dopiero potem robie import z bazy. Jeżeli chodzi o bufowanie to nie jest mi ono potrzebne jeżeli da się rozwiązać cały problem zapisując dane bezpośrednio do bazy. Czy jesteś w stanie wrzucić mi jakiś przykład bo...
W jakis sposób w comport4 odczytać, ciag bajtów z bufora jako typu bajtowego? Instrukcja comport1.readstr( dane ,count) oraz z tego co sprawdziłem, także polecenie comport1.read(dane,count) , czyta kolejne bajty jako znaki. Kompilator wymusza zadeklarowanie wcześniej zmienną dane jako ansistring, shortstring jest niemożliwy. To stwarza problem, bo później...
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)...
Dane nie są odczytywane przez komponent Memo (służy on do prezentacji/przechwytywania danych). Dane odczytywane są z portu za pomocą: String Text = ComPort->ReadString(); i przypisywane do zmiennej typu string (w tym przypadku do Text); Spróbuj zamiast string'a zrobić zwykły char :) A jeżeli znak jest znakiem ASCII (a tak raczej będzie w...
Zauważ, że w pętli interpretacyjnej wykonywane są czynności: 1. Sprawdzenie czy w buforze odbiorczym istnieje bajt do odebrania (nasza komenda T lub P) 2. Jeśli komendą jest T to program czeka na numer temperatury. Po odebraniu numeru (1 lub 2) wysyła do PC odpowiednią temperaturę 3. Jeśli komendą jest P to program wysyła status portu. ...dlaczego do...
Mam prośbę odnośnie wykonania zadania, realizacja warunku po odbiorze danych typu string z portu rs232 w Delphi używając komponentu cport, podaję mój przykład ,który nie bardzo chce mi zadziałać, gdzie robię błąd? procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Dane:string; D:string; begin ComPort1.Readstr(D,...
Witaj (at)pkaczmarek2 — dziękuję, że włożyłeś tyle wysiłku i czasu w ten projekt i pomogłeś tak wielu z nas tutaj! Chciałem zgłosić problem, którego nie udało mi się rozwiązać w przypadku (być może?) nieznanego wariantu kontrolera RGB działającego na modelu BL602. Przyniosłem kilka zdjęć dla innych do porównania, może uda ci się to rozwiązać. Kontroler...
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...
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. 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;...
comport string delphi comport odczyt arduino string odczyt
chiński miernik panelowy prostowanie wałka wydechy motocykla
kuchenka amica 53gg5 43zptgn technologia chemiczna
Jak zdemontować gumę z piły Hilti WSR 1200-PE? Lokalizacja zielonej szyny CAN w pojazdach Scania