logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[delphi] zapisa danych z rs232 do pliku przy użyciu PortCom

jacek88 14 Cze 2007 17:00 1857 4
REKLAMA
  • #1 3984044
    jacek88
    Poziom 11  
    Posty: 60
    Witam
    Chciałem zapytać jak można by zapisać dane z rs232 do pliku txt przy użyciu komponentu PortCom, męcze się już z tym ze 2 dni i nie umiem rozwiązać problemu. Nie umiem znaleźć metody która umożliwiła by mi zapis danych do konkretnego pliku.
    Pozdrawiam
  • REKLAMA
  • #2 3985753
    KeinXor
    Poziom 24  
    Posty: 511
    Pomógł: 62
    Ocena: 63
    Witam. Proszę masz gotową procedurę zapisującą do pliku, wystarczy że będziesz ją wywoływał w evencie swojego komponentu, w momecie nadejścia danych i tyle.

    procedure loguj_blad(nazwa_pliku_log,tekst:string);
    var
    zmienna_plikowa:textfile;
    begin
    Assignfile(zmienna_plikowa, nazwa_pliku_log);
    try
    append(zmienna_plikowa);
    Writeln(zmienna_plikowa,tekst);
    finally
    Closefile(zmienna_plikowa);
    end;
    end;
  • REKLAMA
  • #3 3985877
    jacek88
    Poziom 11  
    Posty: 60
    Witaj
    No nie spodziewałem się czegoś tak prostego muszę się przyznać, chyba za bardzo przejąłem się tematem, dla Ciebie piwko i bardzo dziękuje za odp.
    :D
    Jeszcze raz dzięki
    Pozdrawiam
  • REKLAMA
  • #4 3987791
    Stepel
    Poziom 20  
    Posty: 490
    Pomógł: 26
    Ocena: 28
    a jak sczytać z rs232? Domyślam sie ze jakiś Input czy coś :) a dokładniej ? przykładowa linia kodu byłaby chyba najlepsza..

    Dodano po 23 [sekundy]:

    np do memo :)
  • #5 3987845
    KeinXor
    Poziom 24  
    Posty: 511
    Pomógł: 62
    Ocena: 63
    Witam, jak korzystasz z komponentu Cportlib to pod event ComPort1RxChar podpinasz taką procedurke:
    procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
    var
    strtmp : string;
    begin
    ComPort1.ReadStr(strtmp,Count);
    Memo1.Lines.Add(strtmp);
    end;
REKLAMA