|
Тема |
само аз ли сам в тоз форум. Ай стига бе... [re: hi] |
|
Автор | xи (Нерегистриран) | |
Публикувано | 08.04.06 00:35 |
|
|
Вие какво разбирате под команда.
Обикновенно изпращане на низ(стринг). Ако е така ето един пример за дата и час. Естествено има и друг начин. Но сега този ще покажа този с датекс фп550
За да разберем дали така се подава всичко правилно, моля изпробвайте на Датекс.
var
d: TDate;
t: TTime;
s,st: String;
c, separator: Char;
begin
(*
1. Komanda
3Dh (61) -> команда: Установяване на дата и час.
2.Parametri
<DD-MM-YY><space><HH:MM[:SS]>
*)
ActivXCOM1.WriteText('3Dh (61)');
Sleep(500);
separator := '-';
s :=DateToStr(Date);
t :=Time;
st := Copy(s,1,2)+separator;
st := st+Copy(s,4,2)+separator;
st := st+ Copy(s,7,2)+','+' '+','+TimeToStr(t);
ActivXCOM1.WriteText(st);
end;
ще каже ли някой дали така се прави или не.
Не важно самия код, а формирането и подаването.
Така ли трябва да тава.
|
| |
|
|
|