CanClose := False; и выполнить остановку потока (т.е. установить флаг) и ждать пока он завершится, то всё завершается без проблем и блокировки не происходит. А затем можно вызвать завершение всей программы.
photos.getWallUploadServermultipart/form-dataphotos_list. Затем, выполняешь photos.save, передав photos_list в параметрах.
был у меня вариант с реестром, но он еще и подтверждение постоянно просит
{
"one_time": true,
"inline": false,
"buttons": [ <------- а где ещё массив?
{
"action": {
"type": "text",
"payload": "{\"button\":\"btn_1\"}",
"label": "Привет"
},
"color": "secondary"
}
]
}public function generateButtons(array $buttons, bool $inline = false) : string {
$array = [
'one_time' => !$inline,
'inline' => $inline,
'buttons' => [],
];
foreach ($buttons as $item) {
$array['buttons'][][] = [ <---- ещё один массив
'action' => [
'type' => $item['type'],
'payload' => json_encode($item['payload'], JSON_UNESCAPED_UNICODE),
'label' => $item['label'],
],
'color' => $item['color'],
];
}
return json_encode($array, JSON_UNESCAPED_UNICODE);
}{
"one_time": true,
"inline": false,
"buttons": [
[
{
"action": {
"type": "text",
"payload": "{\"button\":\"btn_1\"}",
"label": "1233123"
},
"color": "secondary"
}
]
]
}SetLength(a, SpaceCount + 1);
LastPos := 1;
LastIndex := 0;
for i := 1 to Length(Str) do
if Str[i] = ' ' then
begin
a[LastIndex] := Copy(Str, LastPos, (i - LastPos)); //-- тут возможно +-1
Inc(LastIndex);
LastPos := i;
end;random_id - уникальный (в привязке к API_ID и ID отправителя) идентификатор, предназначенный для предотвращения повторной отправки одинакового сообщения. Сохраняется вместе с сообщением и доступен в истории сообщений.
Заданный random_id используется для проверки уникальности за всю историю сообщений, поэтому используйте большой диапазон (до int64).
TAuth = class(TVKEntity)
/// <summary>
/// Проверяет правильность введённого номера (возможность его использования для регистрации или авторизации).
/// </summary>
/// <param name="Phone">номер телефона регистрируемого пользователя</param>
/// <param name="ClientId">идентификатор Вашего приложения</param>
/// <param name="ClientSecret">секретный ключ приложения, доступный в разделе редактирования приложения</param>
/// <param name="AuthByPhone">True — проверить правильность номера для авторизации,
/// а не для регистрации нового аккаунта. По умолчанию: False.</param>
function CheckPhone(Phone: string; ClientId, ClientSecret: string; AuthByPhone: Boolean = False): Boolean; overload;
/// <summary>
/// Проверяет правильность введённого номера (возможность его использования для регистрации или авторизации).
/// С указанием текущих данных приложения ClientId и ClientSecret
/// </summary>
/// <param name="Phone">номер телефона регистрируемого пользователя</param>
/// <param name="AuthByPhone">True — проверить правильность номера для авторизации,
/// а не для регистрации нового аккаунта. По умолчанию: False.</param>
function CheckPhone(Phone: string; AuthByPhone: Boolean = False): Boolean; overload;
/// <summary>
/// https://vk.com/dev/auth.restore
/// </summary>
function Restore(Phone, LastName: string): TResponse;
end;TVKHandler = class
const
RequestLimit = 3; //Round(1000 / 3) + 10; //задержка между запросами 3 запроса в секунду + 10 мс страховка
private
FStartRequest: Cardinal;
FRequests: Integer;
FRESTClient: TRESTClient;
FOnConfirm: TOnConfirm;
FOnError: TOnVKError;
FOnLog: TOnLog;
FUseServiceKeyOnly: Boolean;
FOwner: TObject;
FOnCaptcha: TOnCaptcha;
function DoConfirm(Answer: string): Boolean;
procedure ProcError(Code: Integer; Text: string = ''); overload;
procedure ProcError(E: Exception); overload;
procedure ProcError(Msg: string); overload;
procedure SetOnConfirm(const Value: TOnConfirm);
procedure SetOnError(const Value: TOnVKError);
procedure FLog(const Value: string);
procedure SetOnLog(const Value: TOnLog);
procedure SetUseServiceKeyOnly(const Value: Boolean);
procedure SetOwner(const Value: TObject);
procedure SetOnCaptcha(const Value: TOnCaptcha);
public
constructor Create(AOwner: TObject);
destructor Destroy; override;
function AskCaptcha(Sender: TObject; const CaptchaImg: string; var Answer: string): Boolean;
function Execute(Request: string; Params: TParams): TResponse; overload;
function Execute(Request: string; Param: TParam): TResponse; overload;
function Execute(Request: string): TResponse; overload;
function Execute(Request: TRESTRequest; FreeRequset: Boolean = False): TResponse; overload;
property RESTClient: TRESTClient read FRESTClient;
property OnConfirm: TOnConfirm read FOnConfirm write SetOnConfirm;
property OnCaptcha: TOnCaptcha read FOnCaptcha write SetOnCaptcha;
property OnError: TOnVKError read FOnError write SetOnError;
property OnLog: TOnLog read FOnLog write SetOnLog;
property UseServiceKeyOnly: Boolean read FUseServiceKeyOnly write SetUseServiceKeyOnly;
property Owner: TObject read FOwner write SetOwner;
end;TLongPollServer = class
...
function Start: Boolean;
procedure Stop;
constructor Create; overload;
constructor Create(AClient: TRESTClient; AMethod: string; AParams: TParams); overload;
destructor Destroy; override;
property OnError: TOnVKError read FOnError write SetOnError;
property Interval: Integer read FInterval write SetInterval;
property GroupID: string read FGroupID write SetGroupID;
property OnUpdate: TOnLongPollServerUpdate read FOnUpdate write SetOnUpdate;
property Client: TCustomRESTClient read GetClient write SetClient;
property Method: string read FMethod write SetMethod;
property Params: TParams read FParams write SetParams;
end;TCustomVK = class(TComponent)
private
FOAuth2Authenticator: TOAuth2Authenticator;
FOnLogin: TOnLogin;
FPermissionsList: TPermissions;
FGroupLongPollServers: TGroupLongPollServers;
FAuthForm: TFormOAuth2;
FAppID: string;
FAppKey: string;
FEndPoint: string;
FHandler: TVKHandler;
FBaseURL: string;
FAPIVersion: string;
FAccount: TAccount;
FAuth: TAuth;
FServiceKey: string;
FUseServiceKeyOnly: Boolean;
FIsLogin: Boolean;
FOnError: TOnVKError;
FOnLog: TOnLog;
FOnErrorLogin: TOnVKError;
FChangePasswordHash: string;
FUsers: TUsers;
FOnCaptcha: TOnCaptcha;
FOnConfirm: TOnConfirm;
FOnAuth: TOnAuth;
function GetPermissions: string;
procedure FAskCaptcha(Sender: TObject; const CaptchaImg: string; var Answer: string);
procedure FAfterRedirect(const AURL: string; var DoCloseWebView: boolean);
procedure FAuthError(const AURL: string; AStatusCode: Integer; var Cancel: WordBool);
procedure FLog(Sender: TObject; const Value: string);
procedure FVKError(Sender: TObject; Code: Integer; Text: string);
procedure SetOnLogin(const Value: TOnLogin);
procedure SetPermissionsList(const Value: TPermissions);
procedure DoLogin;
procedure SetAppID(const Value: string);
procedure SetAppKey(const Value: string);
procedure SetEndPoint(const Value: string);
procedure SetPermissions(const Value: string);
procedure SetHandler(const Value: TVKHandler);
procedure SetBaseURL(const Value: string);
procedure SetAPIVersion(const Value: string);
procedure SetServiceKey(const Value: string);
procedure SetUseServiceKeyOnly(const Value: Boolean);
procedure SetOnError(const Value: TOnVKError);
procedure SetOnLog(const Value: TOnLog);
procedure SetOnErrorLogin(const Value: TOnVKError);
procedure SetOnCaptcha(const Value: TOnCaptcha);
procedure SetOnConfirm(const Value: TOnConfirm);
procedure SetOnAuth(const Value: TOnAuth);
procedure DoAuth(const AURL: string);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure DoLog(Sender: TObject; Text: string);
procedure Login(AParentWindow: TWinControl = nil);
procedure CallMethod(MethodName: string; Params: TParams; Callback: TCallMethodCallback = nil);
procedure GroupLongPollServerStart(GroupID: string);
procedure GroupLongPollServerStop(GroupID: string);
/// <summary>
/// Универсальный метод, который позволяет запускать последовательность других методов, сохраняя и фильтруя промежуточные результаты.
/// https://vk.com/dev/execute
/// </summary>
/// <param name="Code">код алгоритма в VKScript - формате, похожем на JavaSсript или ActionScript (предполагается совместимость с ECMAScript). Алгоритм должен завершаться командой return %выражение%. Операторы должны быть разделены точкой с запятой. </param>
function Execute(Code: string): TResponse;
property PermissionsList: TPermissions read FPermissionsList write SetPermissionsList;
//Группы методов
property Account: TAccount read FAccount;
property Auth: TAuth read FAuth;
property Users: TUsers read FUsers;
//
property AppID: string read FAppID write SetAppID;
property AppKey: string read FAppKey write SetAppKey;
property EndPoint: string read FEndPoint write SetEndPoint;
property Permissions: string read GetPermissions write SetPermissions;
property Handler: TVKHandler read FHandler write SetHandler;
property APIVersion: string read FAPIVersion write SetAPIVersion;
property BaseURL: string read FBaseURL write SetBaseURL;
property ServiceKey: string read FServiceKey write SetServiceKey;
property UseServiceKeyOnly: Boolean read FUseServiceKeyOnly write SetUseServiceKeyOnly;
property IsLogin: Boolean read FIsLogin;
property ChangePasswordHash: string read FChangePasswordHash;
//
property OnLogin: TOnLogin read FOnLogin write SetOnLogin;
property OnError: TOnVKError read FOnError write SetOnError;
property OnErrorLogin: TOnVKError read FOnErrorLogin write SetOnErrorLogin;
property OnLog: TOnLog read FOnLog write SetOnLog;
property OnCaptcha: TOnCaptcha read FOnCaptcha write SetOnCaptcha;
property OnConfirm: TOnConfirm read FOnConfirm write SetOnConfirm;
property OnAuth: TOnAuth read FOnAuth write SetOnAuth;
end;
