Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2014-04-19 10:41:07 ЛС | профиль | цитата
Nic, вопрос несущественный - просто интересно.
На четырёх! компах и трёх! сотовых вот такая "картина маслом"
n_1.png
Наверное (по дороге в Израиль) враги перекодируют. Или у нас UTF-8 разные.
Каким браузером пользуешься ?
Интересно...
У меня IE9.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1n_1.png [27.3KB] [576]
Ответов: 1535
Рейтинг: 176
#17: 2014-04-19 10:54:57 ЛС | профиль | цитата
Tad, подтверждаю, в моём случае тоже самое. Проверил на всех популярных браузерах.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 9906
Рейтинг: 351
#18: 2014-04-19 10:56:45 ЛС | профиль | цитата
Tad писал(а):
На четырёх! компах и трёх! сотовых вот такая "картина маслом"

Присоединяюсь
Приплюсуй и мой комп.
------------ Дoбавленo в 10.56:
Опередили
карма: 9

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#19: 2014-04-19 11:46:26 ЛС | профиль | цитата
Так понял, что для большинства в новинку, что в пакете CNET кодировка UTF8 используется по умолчанию и, соответственно, в sha-файле хранится в таком же виде.
cnetutf8sha.png
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 1cnetutf8sha.png [50.5KB] [681]
Ответов: 9906
Рейтинг: 351
#20: 2014-04-19 14:54:52 ЛС | профиль | цитата
С новым геморроем Вас, коллеги

Nic, обычно, белые люди, всякие там кодировки в текстовых файлах оснащают префиксами. В этом же файле.
Но это, видимо - не к тебе.
Просто, как размышление, кого следует причислять к "белым людям"...
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#21: 2014-04-20 01:16:30 ЛС | профиль | цитата
Nic писал(а):
Kazbek17, для добавления References существует другой способ нежели правка компонента EntryPoint:
code_33441.txt
Tad писал(а):
Nic, подскажи, в какой кодировке выложил code_33441.txt ?

Не надо ля-ля.
Я спрашивал про code_33441.txt , а ты мне показываешь code_33435.txt.

Извини, но это называется Очковтирательство.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Главный модератор
Ответов: 2999
Рейтинг: 396
#22: 2014-04-20 08:51:59 ЛС | профиль | цитата
Tad писал(а):
Я спрашивал про code_33441.txt , а ты мне показываешь code_33435.txt.

Nic писал(а):
У себя проверил - правильно копируется.

cnetutf8sha2.png
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 1cnetutf8sha2.png [49.3KB] [606]
Ответов: 758
Рейтинг: 112
#23: 2014-04-20 19:21:15 ЛС | профиль | цитата
-----
карма: 1

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#24: 2014-04-20 19:28:26 ЛС | профиль | цитата
miver писал(а):
Вот пример

Че-то не вставляется нормально схема у меня. В IC неполный код получается
карма: 22

0
Ответов: 758
Рейтинг: 112
#25: 2014-04-20 19:58:09 ЛС | профиль | цитата
nesco писал(а):
А вот сейчас последует следующий вопрос -- как это все реализовать на HiAsm-e

Вот пример подключения стандартной библиотеки SetupAPI.dll
code_33449.txt

Описания функций можно посмотреть внутри - setupapi.pas
------------ Дoбавленo в 19.58:
miver писал(а):
Че-то не вставляется нормально схема у меня. В IC неполный код получается
Почему-то форум обрезает
Вот текст IC

unit HiAsmUnit;

interface

uses kol,Share,Debug,Windows;

type
THiAsmClass = class(TDebug)

private

public
onGetSerialNum: THI_Event;
Procedure doGetSerialNum(var _Data:TData; Index:Word);

end;

implementation
Procedure THiAsmClass.doGetSerialNum;
type
ULONG_PTR = DWORD;
//{$EXTERNALSYM ULONG_PTR}

//
// Define type for reference to device information set
//
HDEVINFO = Pointer;
//{$EXTERNALSYM HDEVINFO}

//
// Device information structure (references a device instance
// that is a member of a device information set)
//
PSPDevInfoData = ^TSPDevInfoData;
SP_DEVINFO_DATA = packed record
cbSize: DWORD;
ClassGuid: TGUID;
DevInst: DWORD; // DEVINST handle
Reserved: ULONG_PTR;
end;

//{$EXTERNALSYM SP_DEVINFO_DATA}
TSPDevInfoData = SP_DEVINFO_DATA;

TSetupDiGetDeviceRegistryPropertyA = function(DeviceInfoSet: HDEVINFO;const DeviceInfoData: TSPDevInfoData; Property_: DWORD;var PropertyRegDataType: DWORD; PropertyBuffer: PBYTE; PropertyBufferSize: DWORD;var RequiredSize: DWORD): BOOL; stdcall;
TSetupDiGetClassDevsA = function(ClassGuid: PGUID; const Enumerator: PAnsiChar;hwndParent: HWND; Flags: DWORD): HDEVINFO; stdcall;
TSetupDiEnumDeviceInfo = function(DeviceInfoSet: HDEVINFO;MemberIndex: DWORD; var DeviceInfoData: TSPDevInfoData): BOOL; stdcall;
TSetupDiGetDeviceInstanceIdA = function(DeviceInfoSet: HDEVINFO;DeviceInfoData: PSPDevInfoData; DeviceInstanceId: PAnsiChar;DeviceInstanceIdSize: DWORD; RequiredSize: PDWORD): BOOL; stdcall;
TSetupDiDestroyDeviceInfoList = function(DeviceInfoSet: HDEVINFO): BOOL; stdcall;

const
DIGCF_DEFAULT = $00000001; // only valid with DIGCF_DEVICEINTERFACE
DIGCF_PRESENT = $00000002;
DIGCF_ALLCLASSES = $00000004;
DIGCF_PROFILE = $00000008;
DIGCF_DEVICEINTERFACE = $00000010;

var
HSetupAPI, Devn:integer;
SerialNum,dtyp:DWORD;
PnPHandle: HDEVINFO;
DeviceInfo: SP_DEVINFO_DATA;
GotDev: LongBool;
PluggedIn: ulong;
DeviceInstanceId : array [0..255] of char;
RequiredSize: DWORD;
dinst, itsname, text: string;

qSetupDiGetDeviceRegistryPropertyA : TSetupDiGetDeviceRegistryPropertyA;
qSetupDiGetClassDevsA : tSetupDiGetClassDevsA;
qSetupDiEnumDeviceInfo : tSetupDiEnumDeviceInfo;
qSetupDiGetDeviceInstanceIdA : tSetupDiGetDeviceInstanceIdA;
qSetupDiDestroyDeviceInfoList : tSetupDiDestroyDeviceInfoList;
begin
HSetupAPI := LoadLibrary('SetupAPI.dll');

if HSetupAPI <> 0 then
begin
qSetupDiGetClassDevsA := GetProcAddress(HSetupAPI, 'SetupDiGetClassDevsA');
qSetupDiEnumDeviceInfo := GetProcAddress(HSetupAPI, 'SetupDiEnumDeviceInfo');
qSetupDiGetDeviceInstanceIdA := GetProcAddress(HSetupAPI, 'SetupDiGetDeviceInstanceIdA');
qSetupDiDestroyDeviceInfoList := GetProcAddress(HSetupAPI, 'SetupDiDestroyDeviceInfoList');
qSetupDiGetDeviceRegistryPropertyA := GetProcAddress(HSetupAPI,'SetupDiGetDeviceRegistryPropertyA');
end;
PnPHandle := qSetupDiGetClassDevsa(0, NIL, 0,DIGCF_ALLCLASSES or DIGCF_PRESENT);

Devn := 0;
repeat
DeviceInfo.cbSize:=sizeof(DeviceInfo);
GotDev:=qSetupDiEnumDeviceInfo(PnPHandle,Devn,DeviceInfo);
PluggedIn:=0;

if GotDev then
begin
qSetupDiGetDeviceInstanceIdA(PnPHandle,@DeviceInfo,@DeviceInstanceId,255,@RequiredSize);
_hi_OnEvent(onGetSerialNum,DeviceInstanceId);

Devn := Devn+1;
end;
until not GotDev;
FreeLibrary(HSetupAPI);
end;
end.
карма: 1

0
файлы: 1code_33449.txt [4.6KB] [363]
Ответов: 4630
Рейтинг: 749
#26: 2014-04-20 20:01:04 ЛС | профиль | цитата
miver, конкретно этот пример серийный номер не выдает, или это просто пример работы с библиотекой?
карма: 26

0
Ответов: 758
Рейтинг: 112
#27: 2014-04-20 20:04:30 ЛС | профиль | цитата
Программа возвращает VID, PID и серийный номер в виде USBVID_XXXX_PID_YYYYZZZ, где XXXX-VID, YYYY-PID, ZZZZ-Серийный номер (Аппаратный)
карма: 1

0
Ответов: 4630
Рейтинг: 749
#28: 2014-04-20 20:16:47 ЛС | профиль | цитата
Надо проверить, сохраняется ли этот идентификатор при подключении к другому компьютеру.
israr ещё бы выложил пример этого серийного номера и в какой программе он его видел.
Но, думаю, для озвученных целей подойдет.
карма: 26

0
Ответов: 16884
Рейтинг: 1239
#29: 2014-04-20 22:06:43 ЛС | профиль | цитата
Netspirit писал(а):
Надо проверить
Проверь
http://narod.yandex.ru/disk/20410847000/CheckUDisk%205.0.zip.html
Расскажешь.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#30: 2014-04-20 22:26:03 ЛС | профиль | цитата
0
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)