| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пару вопросов по KOL [Delphi, Windows]

!Pharaon! ©   (2007-04-04 19:04:00) 

У меня появилось пару вопросов по 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'

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

---

  (2008-03-27 05:23:00) [1]

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

---

  (2008-01-25 06:00:00) [2]

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

---

  (2007-08-08 22:10:00) [3]

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

---

Grademax   (2007-06-19 14:00:00) [4]


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-06-18 05:56:00) [5]

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

---

D[u]fa   (2007-04-04 22:19:00) [6]

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

---

Наверх