Sign in Join
Wiki copytemporary

WinCE Programming Tips/ru: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: WinCE Programming Tips/ru

OldNewLine
1+На этой странице описано несколько приёмов работы с платформой WinCE.
2+
3+## Если приложение не запускается?..
4+
5+Если вы написали и скомпилировали ваше приложение под ОС Windows CE и оно прекрасно запускается на эмуляторе, а на реальном устройстве нет (при попытке запуска возникает системная ошибка), возможны следующие варианты:
6+
7+#### Настройки компилятора
8+
9+Убедитесь, что в среде Lazarus установлены правильные настройки компиляции приложения. Они должны быть такими:
10+
11+`"Меню" -> "Проект" -> "Параметры компилятора"`
12+
13+здесь :
14+
15+- на первой владке "Пути", в самом низу в выпадающем меню "Библиотека виджетов LCL" необходимо установить "wince"
16+
17+- на вкладке "Код" в блоке "Целевая платформа", необходимо установить название операционной системы "WinCE" и целевое семейство процессоров "arm" (если вы точно знаете, что на реальном устройстве стоит x86 процессор, соответственно надо выбрать "i386" из предложенного списка). В выпадающем меню "Целевой процессор" оставляем "По умолчанию"
18+
19+#### Не тот целевой процессор
20+
21+Если при попытке запуска программы на целевом устройстве возникает системная ошибка
22+
23+*`'Project1' is not a valid WindowsCE application`*
24+
25+возможно, на устройстве установлен не ARM, наиболее распространённый, а MIPS-процессор, который, к сожалению, не поддерживается компилятором Lazarus. Тут уж ничего не поделаешь.
26+
27+#### Отсутствие некоторых DLL в целевой ОС
28+
29+Ошибки типа :
30+
31+*`Cannot find 'project1' (or one of its components)`*
32+
33+*`'project1' (или один из компонентов) не найден`*
34+
35+а так же, вышеупомянутая
36+
37+*`'Project1' is not a valid WindowsCE application`*
38+
39+очень часто могут возникать из-за отсутствия системной библиотеки aygshell.dll в составе ОС на целевом устройстве.
40+
41+В 90% случаев такая проблема возникает на устройствах, на которых установлена "голая" версия Windows CE "core" (навигаторы, читалки книг, считыватели штрих-кодов), на устройствах под управлением Windows Mobile эта проблема не возникает.
42+
43+Вот так выглядит ошибка на навигаторе Acer p610 :
44+
45+![](/wiki-images/9/93/Winceerr.gif)
46+
47+Проблема решается распространением aygshell.dll вместе с программой (таким образом поступают разработчики GPS-программы Navitel) или записью этой библиотеки в системную директорию //Windows.
48+
49+Вот здесь можно скачать архив с несколькими версиями aygshell.dll для разных версий ОС WinCE:
50+
51+- <http://hpcmonex.net/izemize.htm>
52+
53+Если "прикручивание" aygshell.dll к программе не дало результатов и ошибка все равно возникает, возможно версия целевой ОС ниже требуемой и она просто не имеет той функциональности, которую требует разработанная программа. Часто такая ситуация провоцируется отсутствием требуемых функций в более ранней версии системной библиотеки coredll.dll.
54+
55+## Советы по программированию / примеры
56+
57+### Получить ID устройства
58+
59+Идентификация устройства полезна для защиты вашей программы. Работает только на windows mobile 5.1 и 5.2
60+
61+``` pascal
62+
63+function GetDeviceUniqueID(AppData:LPCWSTR; cbApplictionData:Integer; dwDeviceIDVersion:Integer;
64+ var deviceIDOuput; var pcbDeviceIDOutput:DWORD):Integer; external 'coredll.dll' name 'GetDeviceUniqueID';
65+
66+function GetDeviceID: string;
67+var
68+ AppData: array[0..19] of WideChar;
69+ DeviceID : array[0..19] of Byte;
70+ Count: DWORD;
71+ s: string;
72+ Res, i:Integer;
73+begin
74+ //not sure about Unicode
75+ AppData := Utf8Decode('MY_SIG');
76+ Count := SizeOf(DeviceID);
77+ FillChar(DeviceID, Count, #0);
78+ Res := GetDeviceUniqueID(AppData, SizeOF(AppData), 1, DeviceID, Count);
79+ if Res = 0 then
80+ begin
81+ Result := '';
82+ for i := 0 to Count -1 do
83+ begin
84+ if (i > 0) and ((i mod 2) = 0) then
85+ Result := Result + '-'; //add space make the string wrap in label
86+ Result := Result + IntToHex(DeviceID[i], 2);
87+ end;
88+ end
89+ else
90+ Result := '';//error accord
91+// you can MD5 it with your string
92+// Result := MD5Print(MD5Buffer(DeviceID, Count));
93+end;
94+```
95+
96+Ссылки: <http://msdn2.microsoft.com/en-us/library/ms893522.aspx> <http://peterfoot.net/RetrieveIMEIThroughTAPI.aspx> <http://blogs.msdn.com/jehance/archive/2004/07/12/181067.aspx>
97+
98+### Получить имя устройства
99+
100+Это легко сделать через реестр:
101+
102+``` pascal
103+function GetDeviceName: string;
104+var
105+ aReg:TRegistry;
106+begin
107+ aReg := TRegistry.Create(KEY_READ);
108+ try
109+ aReg.RootKey := HKEY_LOCAL_MACHINE;
110+ aReg.OpenKey('Ident', False);
111+ if aReg.ValueExists('Name') then
112+ Result := aReg.ReadString('Name')
113+ else
114+ Result := 'GUEST';
115+ finally
116+ aReg.Free;
117+ end;
118+end;
119+```
120+
121+### Показать/спрятать SIP Panel
122+
123+Виртуальная клавиатура для сенсорных экранов(SIP: Software Input Panel button).
124+
125+``` pascal
126+const
127+ //Некоторые константы
128+ SIPF_OFF = $00000000;
129+ SIPF_ON = $00000001;
130+ SIPF_DOCKED = $00000002;
131+ SIPF_LOCKED = $00000004;
132+
133+function SipShowIM(IPStatus:DWORD):Integer; stdcall; external 'coredll.dll' name 'SipShowIM';
134+
135+begin
136+ SipShowIM(SIPF_ON)
137+end;
138+```
139+
140+Документация microsoft об этом: [1](http://msdn.microsoft.com/en-us/library/ms941818.aspx)
141+
142+### Включить/разбудить устройство
143+
144+Понадобится любителям будильников.
145+
146+``` pascal
147+function SetSystemPowerState(psState: PWideChar; StateFlags: DWORD; Options : DWORD):DWORD;
148+ stdcall; external 'coredll.dll' name 'SetSystemPowerState';
149+
150+ SetSystemPowerState(nil, POWER_STATE_ON, POWER_FORCE);
151+ Application.BringToFront;
152+ ShowWindow(Handle, SW_SHOW);
153+```
154+
155+### Подсветка/вибрация
156+
157+Вы можете включать/выключать подсветку и вибратор. У меня работало нормально (а вот автор статьи говорит, что работает, но не так, как хотелось бы, и что, видимо будут доработки).
158+
159+``` pascal
160+const
161+ NLED_COUNT_INFO_ID = 0;
162+ NLED_SUPPORTS_INFO_ID = 1;
163+ NLED_SETTINGS_INFO_ID = 2;
164+
165+type
166+ TNLED_COUNT_INFO = record
167+ cLeds: DWORD;
168+ end;
169+
170+ TNLED_SETTINGS_INFO = record
171+ LedNum: DWORD; // LED number, 0 is first LED
172+ OffOnBlink: Integer; // 0 = выкл, 1 = вкл, 2 = мигание
173+ TotalCycleTime: DWORD; // Общее время мигания в микросекундах.
174+ OnTime: DWORD; // Время вкл. в цикле в микросекундах.
175+ OffTime: DWORD; // Время выкл. в цикле в микросекундах.
176+ MetaCycleOn: Integer; // Число вкл. циклов миганий
177+ MetaCycleOff: Integer; // Число выкл. циклов миганий
178+ end;
179+
180+ function NLedGetDeviceInfo(nID:Integer; var pOutput): WordBool;
181+ stdcall; external 'coredll.dll' name 'NLedGetDeviceInfo';
182+ function NLedSetDevice(nID: Integer; var pOutput): WordBool;
183+ stdcall; external 'coredll.dll' name 'NLedSetDevice';
184+```
185+
186+Примеры:
187+
188+``` pascal
189+function TForm1.MakeLEDOn;
190+var
191+ Countnfo: TNLED_COUNT_INFO;
192+ Info:TNLED_SETTINGS_INFO;
193+begin
194+ NLedGetDeviceInfo(NLED_COUNT_INFO_ID, Countnfo);
195+ //with Countnfo.cLeds you can check if your device support LEDs;
196+ Info.LedNum := 0; //<--- First LED
197+ Info.OffOnBlink := 1;
198+ Info.OffTime := 0;
199+ Info.MetaCycleOff:= 50;
200+ Info.MetaCycleOn:= 50;
201+ Info.TotalCycleTime := 100;
202+ NLedSetDevice(NLED_SETTINGS_INFO_ID, Info);
203+end;
204+
205+procedure TForm1.MakeLedOff;
206+var
207+ Info:TNLED_SETTINGS_INFO;
208+begin
209+ Info.LedNum := 0;
210+ Info.OffOnBlink := 0;
211+ NLedSetDevice(NLED_SETTINGS_INFO_ID, Info);
212+end;
213+```
214+
215+Вибратор - это последний индикатор устройства.
216+
217+``` pascal
218+function TForm1.MakeVibratorOn;
219+var
220+ Countnfo: TNLED_COUNT_INFO;
221+ Info:TNLED_SETTINGS_INFO;
222+begin
223+ NLedGetDeviceInfo(NLED_COUNT_INFO_ID, Countnfo);
224+ Info.LedNum := Countnfo.cLeds -1;
225+ Info.OffOnBlink := 1;
226+ NLedSetDevice(NLED_SETTINGS_INFO_ID, Info);
227+end;
228+
229+function TForm1.MakeVibratorOff;
230+var
231+ Countnfo: TNLED_COUNT_INFO;
232+ Info:TNLED_SETTINGS_INFO;
233+begin
234+ NLedGetDeviceInfo(NLED_COUNT_INFO_ID, Countnfo);
235+ Info.LedNum := Countnfo.cLeds -1;
236+ Info.OffOnBlink := 0;
237+ NLedSetDevice(NLED_SETTINGS_INFO_ID, Info);
238+end;
239+```
240+
241+### Получение состояния батареи
242+
243+#### GetSystemPowerStatusEx
244+
245+Больше об этом(опять-таки на английском) : [MSDN GetSystemPowerStatusEx](http://msdn.microsoft.com/en-us/library/aa453172.aspx)
246+
247+``` pascal
248+//by Philip Heinisch
249+ type
250+ TBAT_INFO = record
251+ ACLineStatus:byte; //0=Offline, 1=Online, 2=Backup Power,3= Unknown status
252+ BatteryFlag:byte; //0=High, 1=Low, 2=Critical, 3=Charging, 4=No Battery, 5=Unknown
253+ BatteryLifePercent:byte; //0..100 Battery Life in Percent
254+ Reserved1:byte; //always 0
255+ BatteryLifeTime: DWORD; //remaining time in seconds
256+ BatteryFullLifeTime: DWORD; //max usage time in seconds
257+ Reserved2:byte; //always 0
258+ BackupBatteryFlag:byte; //0=High, 1=Low, 2=Critical, 3=Charging, 4=No Battery, 5=Unknown
259+ BackupBatteryLifePercent:byte; //0..100 Backup Battery Life in Percent
260+ Reserved3:byte; //always 0
261+ BackupBatteryLifeTime: DWORD; //remaining time in seconds
262+ BackupBatteryFullLifeTime: DWORD; //max usage time in seconds
263+ end;
264+
265+ function GetSystemPowerStatusEx(var pOutput;fUpdate:boolean ): WordBool;
266+ stdcall; external 'coredll.dll' name 'GetSystemPowerStatusEx';
267+
268+//Usage Example:
269+
270+function getbat : byte;
271+var
272+ batinfo: TBAT_INFO;
273+begin
274+if GetSystemPowerStatusEx(batinfo,True) then getbat:=batinfo.BatteryLifePercent
275+else getbat:=255; //255=Function Call Failed
276+end;
277+```
278+
279+#### GetSystemPowerStatusEx2
280+
281+Больше об этом(Угадайте, на каком языке?) : [MSDN GetSystemPowerStatusEx2](http://msdn.microsoft.com/en-us/library/aa931066.aspx)
282+
283+``` pascal
284+//добавил romlo
285+ type
286+ TBAT_INFO2 = record
287+ ACLineStatus: byte; // состояние внешнего питания
288+ BatteryFlag: byte; // состояние основной батареи
289+ BatteryLifePercent: byte; // процент зарядки основной батареи
290+ BatteryLifeTime: DWord; // время, на которое хватит заряда
291+ BatteryFullLifeTime: DWord; // время, на которое хватит полной батареи
292+ BackupBatteryFlag: byte; // состояние резервной батареи
293+ BackupBatteryLifePercent: byte; // процент заряда резервной батареи
294+ BackupBatteryLifeTime: DWord; // время остатка заряда резервной батареи
295+ BackupBatteryFullLifeTime: DWord; // полное время резервной батареи
296+ //Физические характеристики батареи:
297+ BatteryVoltage: Dword; // напряжение батреи (mV)
298+ BatteryCurrent: DWord; // сила тока батареи (mA)
299+ BatteryAverageCurrent: DWord; // средний ток
300+ BatteryAverageInterval: DWord; // интервал изменения тока
301+ BatterymAHourConsumed: DWord; // емкость батареи в mA/h
302+ BatteryTemperature: DWord; // температура батареи
303+ BackupBatteryVoltage: DWord; // емкость резервной батареи
304+ BatteryChemistry: Byte; // тип батареи (LION, NiCD, NIMN… )
305+
306+ function GetSystemPowerStatusEx2(var pOutput; DwLen: DWord; fUpdate: boolean ): WordBool;
307+ stdcall; external 'coredll.dll' name 'GetSystemPowerStatusEx2';
308+
309+//Пример:
310+
311+function getbat2 : byte;
312+var
313+ batinfo: TBAT_INFO2;
314+begin
315+if GetSystemPowerStatusEx2(batinfo,SizeOf(batinfo), True) then getbat:=batinfo.BatteryLifePercent
316+else getbat:=255;
317+end;
318+```
319+
320+### Создание полноэкранного приложения
321+
322+Добавьте в раздел uses модуль windows и добавьте следующий код в раздел **interface** вашей программы:
323+
324+``` pascal
325+const
326+ //ShFullScreen
327+ SHFS_SHOWTASKBAR = $01;
328+ SHFS_HIDETASKBAR = $02;
329+ SHFS_SHOWSIPBUTTON = $04;
330+ SHFS_HIDESIPBUTTON = $08;
331+ SHFS_SHOWSTARTICON = $10;
332+ SHFS_HIDESTARTICON = $20;
333+
334+ function SHFullScreen(hwndRequester: hWnd; dwState: DWord): WINBOOL; stdcall; external 'aygshell.dll' name 'SHFullScreen';
335+```
336+
337+Затем вставьте в события OnCreate и OnShow ваших форм (лучше OnShow) следующее:
338+
339+``` pascal
340+procedure TForm1.FormCreate(Sender: TObject);
341+var
342+ Rect:TRect;
343+ hTaskBar:THandle;
344+ menuh:Integer;
345+begin
346+ hTaskBar := FindWindow('HHTaskBar','');
347+ GetWindowRect(hTaskBar,rect);
348+ menuh:=Rect.Bottom-Rect.Top;
349+ GetWindowRect(Form1.Handle,Rect);
350+ SHFullScreen(Form1.Handle,SHFS_HIDETASKBAR or SHFS_HIDESTARTICON or SHFS_HIDESIPBUTTON);
351+ movewindow(Form1.Handle,Rect.Left,Rect.Top-menuh,Rect.Right,Rect.Bottom+menuh,True);
352+end;
353+```
354+
355+### Препятствие входу в режим ожидания
356+
357+Добавьте на форму таймер, в событии OnTimer пропишите следующую строку:
358+
359+``` pascal
360+keybd_event(VK_F24, 0, KEYEVENTF_KEYUP or KEYEVENTF_SILENT, 0);
361+```
362+
363+### Установка приложения на WinCe через app build(cab файл)
364+
365+//Original de Hinnack (from Lazarus forum)
366+
367+У меня ушло много времени на то, что-бы выяснить, как установить моё приложение на WinCE-устройство(Да, я знаю, что можно скопировать и вставить), поэтому я решил поделиться этим здесь.
368+
369+1\) Во-первых, нужен ini-файл (может, когда-нибудь, Лазарус сможет генерировать их сам...). Хороший рассказ о том, как это можно сделать, есть здесь(на англ.): <http://web.archive.org/web/20080205125046/> <http://www.sundialsoft.freeserve.co.uk/cabinfo.htm> (Оригинальный сайт мёртв) Я использовал следующее (только для ARM процессоров):
370+
371+``` pascal
372+[Version] ; Обязательная секция
373+Signature = "$Windows NT$"
374+Provider = "bilettiX"
375+CESignature = "$Windows CE$"
376+
377+[CEDevice.ARM]
378+ProcessorType = 2577 ; значение для ARM
379+
380+[DefaultInstall.ARM]
381+CopyFiles = Files.ARM
382+
383+[Files.ARM]
384+bilettixscan.exe,,,0
385+sqlite3.dll,,,0
386+
387+[DefaultInstall] ; Обязательная секция
388+CEShortcuts = Shortcuts.All
389+AddReg = RegData
390+
391+[SourceDisksNames] ; Обязательная секция
392+1 = ,"common files",,C:\Dokumente und Einstellungen\xyz\Dev;A existing folder on your HD, where the common files to be copied are found (not processor specific)
393+
394+[SourceDisksNames.ARM]
395+2 = ,"ARM files",,arm;Папка со специальными ARM файлами
396+[SourceDisksFiles] ; Обязательная секция, бинарник приложения, файлы для копирования
397+bilettixscan.EXE = 2
398+sqlite3.DLL = 2
399+bilettix.db = 2
400+
401+[DestinationDirs] ; Обязательная секция
402+Shortcuts.All = 0,%CE11%
403+DefaultDestDir = 0,%InstallDir%
404+
405+[CEStrings] ; Обязательная секция
406+AppName = Ticket Validator
407+InstallDir = %CE1%\%AppName%
408+
409+[Shortcuts.All]
410+%AppName%,0,bilettixscan.exe
411+
412+[RegData]
413+HKLM,Software\bilettix\%AppName%,MajorVersion,0x00010001,1
414+HKLM,Software\bilettix\%AppName%,MinorVersion,0x00010001,0
415+HKLM,Software\bilettix\%AppName%,Installpath,0x00000000,%InstallDir%
416+```
417+
418+2\) теперь создаём cab файл из наших файлов, используя утилиту cabWiz из SDK от MS и ini-файл. 3) генерируем install.ini - мой выглядел так(на самом деле icon-section не нужна...):
419+
420+``` pascal
421+[CEAppManager]
422+Version = 1.0
423+Component = Ticket Validator
424+
425+[Ticket Validator]
426+Description = bilettiX Ticket Validator
427+Uninstall = bilettiXscan
428+DeviceFile = bilettiXscan.exe
429+IconFile = bilettix.ico
430+IconIndex = 0
431+CabFiles = bilettiXscan.ARM.CAB
432+```
433+
434+4\) Затем берём EzSetup for free отсюда: <http://www.spbsoftwarehouse.com/products/ezsetup/index.html>
435+
436+5\) Генерируем "установщик", используя ini, readme и лицензионное соглашение в txt файлах.
437+
438+6\) Готово! :-)
439+
440+Удостоверьтесь, что у вас стоит ActiveSync. Двойной клик по полученному файлу, и всё, наслаждайтесь :-)
441+
442+--Blueicaro 21:49, 29 April 2009 (CEST)
443+
444+### Debugging with a log file
445+
446+Windows CE doesn't ship with a command line, so people used to command-line log debugging may have trouble. In some versions of Windows CE it is possible to install a command-line, but another solution for this is using the logging routines from the LCLProc unit in Lazarus to write log information to a file in the same directory as the executable and then read it, as in the code bellow.
447+
448+``` pascal
449+uses LCLProc;
450+
451+DbgAppendToFile(ExtractFilePath(ParamStr(0)) + '1.log', 'Some text');
452+```
453+
454+The unit LCLProc also contains other cool routines for debugging, like GetStackTrace, which returns a string with the stack trace.
455+
456+### Current Directory and Placement of DLLs
457+
458+Windows CE does not have the concept of current directory, so there is no point in placing DLLs in the same folder of the executable, as they will not be loaded from there. They need to be on the \Windows directory or another suitable location.
459+
460+## Database Tips
461+
462+### Pre-compiled sqlite dll
463+
464+You can find sqlite3.dll pre-compiled for Windows CE [here](ftp://ftp.freepascal.org/pub/fpc/contrib/arm-wince-sqlite322.zip).
465+
466+## Links
467+
468+Here are some links that might be useful for creating Windows CE interfaces.
469+
470+- [[Windows CE Development Notes]]
471+- [[KOL-CE|WinCE port of KOL GUI library]]
472+
473+---
474+*From the Free Pascal wiki, page "WinCE Programming Tips/ru", as it stood on 2020-03-04 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history