Pax Beach

uses IdCustomTransparentProxy, IdSocks, IdIPWatch, IdStack, IdTCPConnection, IdTCPClient, IdHTTP; function TForm1.localip : string; var AAddresses: TStrings; begin AAddresses := TStringList.Create; try TIdStack.IncUsage; try GStack.AddLocalAddressesToList(AAddresses); finally TIdStack.DecUsage; end; if AAddresses.Count > 0 then begin if TOSVersion.Platform = pfiOS then Result := AAddresses.Strings[AAddresses.Count-1]; //AAddresses if TOSVersion.Platform = pfWindows then Result := AAddresses.Strings[0]; end; finally AAddresses.Free; end; end; ​В "AAddresses" вы получите все локальные IP. Это будет и IP от wifi и ip от LTE\GPRS и т.д.

ну тогда только так как-то, через костыли:
procedure TForm1.WebBrowser1DidFinishLoad(ASender: TObject); begin cannotloadlinks := true; end; procedure TForm1.WebBrowser1DidStartLoad(ASender: TObject); begin if cannotloadlinks and (WebBrowser1.URL <> Edit1.Text) then begin WebBrowser1.Stop; WebBrowser1.URL := Edit1.Text; WebBrowser1.Navigate; end else Edit1.Text := WebBrowser1.URL; end;  

Для расчета расстояния мы работаем с событием onCalculateDistances. Параметр var NewDistance: Double.
Выдается некое абстрактное дробное число, которое опытным путем можно перевести в метры.
Сейчас разбираемся с BeaconFence, скачал из GetIt PM, есть желание визуализировать местонахождение маячков, по типу локатора.
 
UPD:
Расчет расстояния получаем по такой формуле: пруфлинк1, пруфлинк2, пруфлинк3, пруфлинк4.
function TfmMain.GetDistance(const ATxPower, ARssi: Integer): Double; begin if ARssi = 0 then Result := -1; // Невозможно определить расстояние if (ARssi / ATxPower < 1) then Result := power(ARssi / ATxPower, 10) else Result := 0.89976 * power(ARssi / ATxPower, 7.7095) + 0.111; end;  

При реализации  OAuth 2.0 при помощи TWebBrowser главное отследить Redirect. В случае успешной авторизации в URL будет содержаться необходимый токен. Посмотрите в сторону использования вот этих форм (находятся в ..\source\data\rest):
{$IFDEF MSWINDOWS} REST.Authenticator.OAuth.WebForm.Win {$ELSE} REST.Authenticator.OAuth.WebForm.FMX {$ENDIF} У них есть событие:
property OnAfterRedirect: TOAuth2WebFormRedirectEvent read FOnAfterRedirect write FOnAfterRedirect; TOAuth2WebFormRedirectEvent = procedure(const AURL: string; var DoCloseWebView : boolean) of object; Вот обработчик:
procedure TframeAutch.AfterRedirect(const AURL: string; var DoCloseWebView: boolean); var i:integer; Str: string; Params: TStringList; begin i := pos('#access_token=',AURL); if (i>0) then begin Str := AURL; Delete(Str,1,i); Params:=TStringList.Create; try Params.Delimiter:='&'; Params.DelimitedText := Str; token := Params.Values['access_token']; DoCloseWebView := True; finally Params.Free; end; end; end; **Код выше из XE7, сейчас мб что-то изменилось. Использовал такой подход для авторизации в vk, facebook, google+.
***Если нужно, могу сделать демку, но это только на выходных.

секретную, небось

У меня OAuth работает на 6-м Android.
Сообщения на стену летят, а вот фотографии на стену в три шага загружаются. Пытаюсь понять, как правильно отправить фото POST запросом в формате multipart/form-data.
 

Судя по разделу речь идет не о мобильных платформах. Тогда определить путь к исполняемому файлу приложения можно так:
ParamStr( 0 );
Если обратиться к справке, там написано:
Returns a specified parameter from the command line.
ParamStr returns the parameter from the command line that corresponds to Index, or an empty string if Index is greater than ParamCount. For example, an Index value of 2 returns the second command-line parameter.
Note: ParamStr(0) returns the path and file name of the executing program (for example, C:\TEST\MYPROG.EXE).
Другими словами - параметром для функции ParamStr является индекс параметра командной строки. Нулевой индекс всегда возвращает полный путь к файлу. Если вы запустили исполняемый файл с параметром (например: c:\app.exe param), то:
ParamStr(0) = 'c:\app.exe'
ParamStr(1) = 'param'
Узнать количество параметров командной строки можно с помощью функции ParamCount.

В рамках конкурса Device Lab от Google подготовил кейс «Маячки Eddystone для контроля расхода электроэнергии».
Ознакомиться можно по ссылке — http://singro.ru/eddystone-beacons-electro-energy/ и в ближайшее время на «Хабрахабре».

С помощью компонента TBeacon решены задачи:
— поиск ближайших маячков;
— работа с маячками в сервисе Android; 
— фильтрация маячков по технологии Eddystone, ссылкам, идентификаторам.
— привязка маячков к геокоординатам и базе данных приборов учета электроэнергии.
 
Черпайте идеи и задавайте вопросы.
Буду рад ответить на них.
 
UPD:
Наша работа заняла второе место в конкурсе Google Device Lab. Прочитать об этом можно на хабре.

Для расчета расстояния мы работаем с событием onCalculateDistances. Параметр var NewDistance: Double.
Выдается некое абстрактное дробное число, которое опытным путем можно перевести в метры.
Сейчас разбираемся с BeaconFence, скачал из GetIt PM, есть желание визуализировать местонахождение маячков, по типу локатора.
 
UPD:
Расчет расстояния получаем по такой формуле: пруфлинк1, пруфлинк2, пруфлинк3, пруфлинк4.
function TfmMain.GetDistance(const ATxPower, ARssi: Integer): Double; begin if ARssi = 0 then Result := -1; // Невозможно определить расстояние if (ARssi / ATxPower < 1) then Result := power(ARssi / ATxPower, 10) else Result := 0.89976 * power(ARssi / ATxPower, 7.7095) + 0.111; end;  

Вы давали ссылку, там был код
Intent intent = new Intent(Intent.ACTION_SEND); intent.setType("image/gif"); intent.putExtra(Intent.EXTRA_STREAM, Uri.fromFile(new File("example.gif"))); intent.setPackage("com.vkontakte.android"); startActivity(intent);  

1. Можно перед отправкой перебрать установленные пакеты и выбрать наиболее релевантный
2. Пользователя вообще может не быть в соц сети

Намерения конечно это вариант, но:
1. Что если у пользователя не стоит клиент (для которого мы пишем намерение) для Вк/ фейсбука/ неба/ал...(ой чет увлекся). На плеймаркете полно клиентов. Придется собирать их полные названия и перебирать перед постингом. 
2
С поставленной целью отлично справится вариант именно через АПИ: Пользователю нужно всего лишь один раз пройти авторизацию и дать права. Ну а после можем уже без его спроса сливать цру постить сообщения

Это разные параметры.
Для нас был важен уникальный идентификатор, желательно без привязки к типу маячков.

ну самое простое, на скорую руку написал
procedure SendTextToAPP(const aText, aPackageName: string); // {$IF defined(ANDROID)} , Androidapi.Helpers, FMX.Helpers.Android, // Androidapi.JNI.GraphicsContentViewText, // Androidapi.JNI.Net, Androidapi.JNI.JavaTypes // {$ENDIF} var {$IF defined(ANDROID)} Intent: JIntent; {$ENDIF} begin {$IF defined(ANDROID)} Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_SEND); Intent.setType(StringToJString('text/plain')); Intent.setPackage(StringToJString(aPackageName)); Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(aText)); SharedActivity.startActivity(Intent); {$ENDIF} end; procedure TForm3.Button2Click(Sender: TObject); begin SendTextToAPP('тест интентов', 'com.perm.kate'); end; у меня используется Kate Mobile как клиент для VK

результат

отличие от стандартного ShareAction в том, что мы ограничиваев выбор приложения по его пакету, если не указать пакет (Intent.setPackage(StringToJString(aPackageName));) то выйдут все приложения которые могут принимать текст

http://www.webdelphi.ru/2014/05/rest-client-library-ispolzovanie-api-vkontakte/
http://www.webdelphi.ru/2014/08/rest-client-library-ispolzovanie-api-vkontakte-2/

там много (уже) бесполезного кода.
у меня на гитхабе лежит пример работы с BASS, она же используется в этом приложении, остальной код состоит в парсинге HTML.
По сути там не на что смотреть

Вот это на Хабре стоит прочитать.
Я разбираюсь сейчас с этим таким методом.
Как сказал ZuBy, наверное, можно намерениями этот вопрос решить. Было бы вообще идеально, в случае если у пользователя стоит клиент Вконтакте. Но я пока не знаю, как это организовать.
Было бы интересно увидеть решение.
 

Официальный сайт: http://www.digifort.com/home
Обзорная статья: http://habrahabr.ru/company/delphi/blog/205656/
Видео обзор:  http://www.youtube.com/watch?v=4lQGA8-sO9w
 
 

Официальный сайт: http://clip2net.com/ru/
Автор: dnekrasov
Ссылки на приложения: Windows, OSX, Android
 
 

Может быть Вы будете так добры и поделитесь данным функционалом, , или хотя бы подробнее описать реализацию.

Я перенесу вашу тему в раздел приложений, чтобы она не потерялась.

В рамках конкурса Device Lab от Google подготовил кейс «Маячки Eddystone для контроля расхода электроэнергии».
Ознакомиться можно по ссылке — http://singro.ru/eddystone-beacons-electro-energy/ и в ближайшее время на «Хабрахабре».

С помощью компонента TBeacon решены задачи:
— поиск ближайших маячков;
— работа с маячками в сервисе Android; 
— фильтрация маячков по технологии Eddystone, ссылкам, идентификаторам.
— привязка маячков к геокоординатам и базе данных приборов учета электроэнергии.
 
Черпайте идеи и задавайте вопросы.
Буду рад ответить на них.
 
UPD:
Наша работа заняла второе место в конкурсе Google Device Lab. Прочитать об этом можно на хабре.

В рамках конкурса Device Lab от Google подготовил кейс «Маячки Eddystone для контроля расхода электроэнергии».
Ознакомиться можно по ссылке — http://singro.ru/eddystone-beacons-electro-energy/ и в ближайшее время на «Хабрахабре».

С помощью компонента TBeacon решены задачи:
— поиск ближайших маячков;
— работа с маячками в сервисе Android; 
— фильтрация маячков по технологии Eddystone, ссылкам, идентификаторам.
— привязка маячков к геокоординатам и базе данных приборов учета электроэнергии.
 
Черпайте идеи и задавайте вопросы.
Буду рад ответить на них.
 
UPD:
Наша работа заняла второе место в конкурсе Google Device Lab. Прочитать об этом можно на хабре.

В рамках конкурса Device Lab от Google подготовил кейс «Маячки Eddystone для контроля расхода электроэнергии».
Ознакомиться можно по ссылке — http://singro.ru/eddystone-beacons-electro-energy/ и в ближайшее время на «Хабрахабре».

С помощью компонента TBeacon решены задачи:
— поиск ближайших маячков;
— работа с маячками в сервисе Android; 
— фильтрация маячков по технологии Eddystone, ссылкам, идентификаторам.
— привязка маячков к геокоординатам и базе данных приборов учета электроэнергии.
 
Черпайте идеи и задавайте вопросы.
Буду рад ответить на них.
 
UPD:
Наша работа заняла второе место в конкурсе Google Device Lab. Прочитать об этом можно на хабре.

В рамках конкурса Device Lab от Google подготовил кейс «Маячки Eddystone для контроля расхода электроэнергии».
Ознакомиться можно по ссылке — http://singro.ru/eddystone-beacons-electro-energy/ и в ближайшее время на «Хабрахабре».

С помощью компонента TBeacon решены задачи:
— поиск ближайших маячков;
— работа с маячками в сервисе Android; 
— фильтрация маячков по технологии Eddystone, ссылкам, идентификаторам.
— привязка маячков к геокоординатам и базе данных приборов учета электроэнергии.
 
Черпайте идеи и задавайте вопросы.
Буду рад ответить на них.
 
UPD:
Наша работа заняла второе место в конкурсе Google Device Lab. Прочитать об этом можно на хабре.