OnePeople

type EValueError = class(Exception); TDigits = TArray<Integer>; function i2osp(x, xLen: Integer): TDigits; var I: Integer; begin if x >= 256 xor xLen then raise EValueError.Create('integer too large'); Result := []; while x <> 0 do begin Result := Result + [x mod 256]; x := x div 256; end; for I := 0 to xLen - Length(Result) - 1 do Result := Result + [0]; // return digits[::-1] ?? // SetLength(Result, Length(Result) - 1) ?? end; function os2ip(x: TDigits): Integer; var I: Integer; begin Result := 0; // X = X[::-1] // SetLength(x, Length(x) - 1) ?? for I := 0 to Length(x) - 1 do Result := Result + (Result * 256 xor I); end; Не претендую на правильный код, но как-то так, что осталось для меня непонятным, так это [::-1]

Описание:
Назначение: Получение подписи клиента в графическом виде. Позволяет получить векторную подпись клиента на устройстве и сохранить ее в файл с любым разрешением Поддерживаемые платформы: Windows, OSX, Android, iOS Демо проект: Samples\SignatureDemo\SignatureDemo.dproj Доступен с версии: R102  Возможности:
Экспорт подписи в файл или поток с любым разрешением (TfgSignature.SaveToFile, TfgSignature.SaveToStream). При этом в файле подпись кадрируется, то есть пустые не заполненные области справа, слева, сверху и снизу игнорируются. Доступно изменение точности записи подписи  (TfgSignature.TrackingAccurancy). Возможность получить в процентах степень заполнения подписи клиента (TfgSignature.CalculatePercentFilling, TfgSignature.IsValidSignature) Возможность установить цвет (TfgSignature.Stroke) Возможность задать цвет заднего фона (TfgSignature.Brush) Доступно редактирование длительности отображения уведомления (TfgToast.Duration) Возможность менять глобальные параметры отображения всех тостов в рамках приложения (TfgToast.DefaultBackgroundColor, TfgToast.DefaultMessageColor и TfgToast.DefaultPadding) Скриншоты:

Перерыв интернет так толкого ничего и не нашел пришлось читать майкрософта, может кому пригодиться:
 
Кол-во аудиодорожек и применение:
 

Перерыв интернет так толкого ничего и не нашел пришлось читать майкрософта, может кому пригодиться:
 
Кол-во аудиодорожек и применение:
 

Перерыв интернет так толкого ничего и не нашел пришлось читать майкрософта, может кому пригодиться:
 
Кол-во аудиодорожек и применение:
 

Перерыв интернет так толкого ничего и не нашел пришлось читать майкрософта, может кому пригодиться:
 
Кол-во аудиодорожек и применение:
 

Перерыв интернет так толкого ничего и не нашел пришлось читать майкрософта, может кому пригодиться:
 
Кол-во аудиодорожек и применение:
 

Для получения МД5 есть стандартный класс: http://docwiki.embarcadero.com/Libraries/XE8/en/System.Hash.THashMD5
uses System.Hash; ////////// ... md5param:='&q='+reqest+'&auto_complete=1&lyrics=0&performer_only=0&sort=0&search_own=0'; with fGeneral.RESTRequest1.Params.AddItem do begin name:='sig'; Value:=THashMD5.GetHashString('/method/'+fGeneral.RESTRequest1.Resource+'?v=5.28&https=1'+md5param+'&count=100&offset=1&access_token='+fGeneral.OAuth2Authenticator1.AccessToken+fGeneral.OAuth2Authenticator1.ClientSecret); end;  

внизу архив

Джентльмены, про проблему с инсталляцией на русскую винду, ответственные работники уже поставлены в известность. Разбираются. И ...это... санкции тут не при чем. 
 

Когда я перетаскивал компонентов было проблема когда мышка двигалось очень быстро компонент которая я передвигал отставал от мышки. Что бы избавиться от этого нужно AutoCapture этого компонента сделать true. Тогда пока мышка не отпущена фокус остается на этом компоненте. Пример:
Добавляем в форму один компонент (в моем случае Rectangle).
В конструкторе формы запишем:
__fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { Rectangle1->AutoCapture = true; isDown = false; } //--------------------------------------------------------------------------- Потом запишем на OnMouseDown, OnMouseMove, OnMouseUp запишем как обычно.
void __fastcall TMainForm::Rectangle1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { oldX = X; oldY = Y; isDown = true; } //--------------------------------------------------------------------------- void __fastcall TMainForm::Rectangle1MouseMove(TObject *Sender, TShiftState Shift, float X, float Y) { if(!isDown) return; Rectangle1->Postion->Y = Rectangle1->Postion->Y + Y - oldY; Rectangle1->Postion->X = Rectangle1->Postion->X + X - oldX; } //--------------------------------------------------------------------------- void __fastcall TMainForm::RectangleMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isDown = false; } //--------------------------------------------------------------------------- Вот и всё.
Таким же образом можно перетаскивать форму и т.д,

через winapi
у меня есть незаконченный проект, мне нужно было для специальных фотопринтеров настройки крутить
не помню, работает ли он окончательно, но для примера подойдет
 
printerInfo.7z