Скачать: CL | DM;

Пару вопросов по KOL   Найти похожие ветки 

← →
!Pharaon!   (2007-04-04 19:04) [0]

У меня появилось пару вопросов по KOL
1) Я для отображения времени в статус-баре написал такой код
procedure TForm1.Timer1Timer(Sender: PObj);
var
sys:TSystemTime;
time:string;
d:TDateTime;
begin
GetSystemTime(sys);
systemtime2datetime(sys,d);
time:=DateTime2StrShort(d);
form1.Form.StatusText[0]:=PChar(time);
end;
Так вот, например вместо 19:00 он мне показывает 15:00! В чём проблема!
2) Я скачал библиотеку ActiveKOL, дал ссылку на папку с компонентом, но когда я пытаюсь установить компонент KOLCdWriter (для которого нужен activekol), он мне выдаёт ошибку в файле ActiveKOL.pas:

procedure TOleCtl.KeyPress(var Key: Char);
begin
 if Assigned(FOnChar) then FOnChar(@Self,key,0); <-
end;                                                                  

[Error] ActiveKOL.pas(1443): Types of actual and formal var parameters must be identical
[Fatal Error] CDWriter_TLBKOL.pas(41): Could not compile used unit "ActiveKOL.pas"

В чём проблема???

---

← →
D[u]fa ©   (2007-04-04 22:19) [1]

1. время по гринвичу (узнавай время через Now например)
2. Char заменить надо на KOLChar из-за введенной поддержки уникода

---

← →
имя   (2007-06-18 05:56) [2]

Удалено модератором

---

← →
Grademax   (2007-06-19 14:00) [3]


Program Mini;
uses windows, messages,KOL;
var
SystemTime: record
           wYear,wMonth,wDayOfWeek,wDay,wHour,wMinute,wSecond,wMilliseconds:Word;
           end;
{------------------------------------------------------------------------------}
procedure _GetDate;
begin
    asm
       LEA   EAX,SystemTime
       PUSH  EAX
       CALL  GetLocalTime  // или установить время - SetLocalTime
    end;
end;
{------------------------------------------------------------------------------}
begin
    _GetDate;
    MsgOk(Int2Str(SystemTime.wHour)+":"+Int2Str(SystemTime.wMinute));
end.


---

← →
имя   (2007-08-08 22:10) [4]

Удалено модератором

---

← →
имя   (2008-01-25 06:00) [5]

Удалено модератором

---

← →
имя   (2008-03-27 05:23) [6]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c