Mam zapis transmisji ściągnięty z magistrali szeregowej ultra sztuczką magiczką, za pomocą szpecjalnego konwertera. Po otwarciu w programie winhex, bez problemu da się odczytać kolejne ramki tego protokołu. A teraz w czym problem... Chce napisać program (a znam się na obróbce stringów, mam w tym...

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaconst HexChar : string[$10] = '0123456789ABCDEF'; SetLength(output, 2 * Length(input)); for i := 1 to Length(input) do begin output := HexChar[(ord(input ) shr 4) + 1]; output := HexChar[(ord(input ) and $F) + 1]; end;

WIEKIE dzięki! wszystko działa, dokładnie o to chodziło Temat zamykam.

Zapis transmisji --> HEX jak to zrobić w DELPHI6?

Zgłoś naruszenie prawa

| Nowy temat

#1 3623818 27 Lut 2007 15:47

lukzak2298 lukzak2298

Poziom 18

Posty: 667

Pomógł: 5

Ocena: 90
Autor tematu

Post #1
3623818 27 Lut 2007 15:47

Mam zapis transmisji ściągnięty z magistrali szeregowej ultra sztuczką magiczką, za pomocą szpecjalnego konwertera.

Po otwarciu w programie winhex, bez problemu da się odczytać kolejne ramki tego protokołu. A teraz w czym problem...

Chce napisać program (a znam się na obróbce stringów, mam w tym jakieś doświadczenie) tylko nie umiem przerobić tego co mam przy użyciu delphi na hexy... a mam coś takiego:

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
-2! d 2 2 d 2 2 d 2 2r 2 r ţ?Q!ł +Q ‚ -3! 8 d 2 2 d 2 2 d 2 2¤ +3 d ţ?Q!ł +Q ‚ 4! Ŕ d 2 2 d 2 2. +4 e ţ?Q!ł +Q ‚ ţ?Q!ł +Q ‚ ţ?Q!ł +Q ‚ ţ?Q!ł +Q ‚ ţ?Q!ł +Q ‚ ţ?Q!ł +Q ‚ ţ?Q!ł +Q ‚

(w załączniku całość, w normalnej postaci).

Poszczególne ramki w hexach powinny się zaczynać od 0A a kończyć na 0D lub 0C (w zależnosci kto nadawał/transmitował coś) - to w ramach ciekawostki...

Problem polega na tym jak przerobić zawartość pliku txt (załączonego) w delphi na np hexy w postci stringów do obróbki np. zmiennej typu string zawierającej wartości np 0A01000201000D <-- to autentyczny fragment 1 ramki, chce uzyskać taką zawartość zmiennej string (zmienna jako przykład, może to być np w TMemo, albo czymkolwiek, byle do obóbki dało się użyć standardowych funkcji delphi).

PLIK -> program w delphi [obóbka, zamiany do czytelniejszej postaci/operacje na stringach] -> wynik w postaci np. 2giego pliku

Przy czym operacje na plikach mam opanowane, tak samo na stringach, nie wiem tylko jak zamienić te znaczki na te stringohexy...

Acha i dla dokuczliwych: SZUKAŁEM tego od 2 godzin na elektrodzie i nie znalazłem!

Pozdrawiam i dzieki za odpowiedź.

NIe

Załączniki:

tic8_2.txt (27.16 KB) Musisz być zalogowany, aby pobrać ten załącznik.

Promuję tematy:
28.12.2024 Piekarnik Amica Integra EB7654A+ nie grzeje, brak sterowania przekaźnikiem

REKLAMA
Pomocny post

#2 3624003 27 Lut 2007 16:41

Sam Sung Sam Sung

Poziom 33

Posty: 2014

Pomógł: 227

Ocena: 583
Pomocny post? (+1)

Pomocny post
Post #2
3624003 27 Lut 2007 16:41

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
const HexChar : string[$10] = '0123456789ABCDEF'; SetLength(output, 2 * Length(input)); for i := 1 to Length(input) do begin output[i*2-1] := HexChar[(ord(input[i]) shr 4) + 1]; output[i*2] := HexChar[(ord(input[i]) and $F) + 1]; end;

Promuję tematy:
31.01.2026 Termometr z czujnikiem DS18B20 i dwucyfrowym wyświetlaczem LED
19.01.2026 Prostownik do doładowywania akumulatora w aucie
07.07.2025 Watomierz optyczny za 10 zł
29.09.2022 USB power booster na LM2596S
#3 3625721 27 Lut 2007 22:47

lukzak2298 lukzak2298

Poziom 18

Posty: 667

Pomógł: 5

Ocena: 90
Autor tematu Pomocny post? (0)

Post #3
3625721 27 Lut 2007 22:47

WIEKIE dzięki! wszystko działa, dokładnie o to chodziło Temat zamykam.

Promuję tematy:
28.12.2024 Piekarnik Amica Integra EB7654A+ nie grzeje, brak sterowania przekaźnikiem
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

| Nowy temat

Zgłoś naruszenie prawa