Перейти к содержанию
Fire Monkey от А до Я

beklexx

Пользователи
 Профиль  Обзор контента

  • Постов

    67

  • Зарегистрирован

  • Посещение

Посетители профиля

1 558 просмотров профиля

Достижения beklexx

Enthusiast

Enthusiast (6/14)

  • First Post
  • Collaborator
  • Conversation Starter
  • Week One Done
  • One Month Later

Последние значки

23

Репутация

5

Ответы сообщества

  1. beklexx отреагировал на ответ на вопрос: Баг в Tokio
  2. Ingalime отреагировал на ответ на вопрос: Навигация TmapView
  3. beklexx
    Хмм, тогда интересно, является ли триангуляция/определение по wi-fi mock location? Хотя это не логично, я так понял mock это разрешение получать gps не от сенсора. Тогда интересует, с какой версии андроида идёт ограничение на mock?
  4. beklexx
    если кому лень искать инфу, может пригодится... на основе ответа от Akad для google maps uses Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText ... var Intent: JIntent; begin Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_VIEW); try Intent.setData(StrToJURI('google.navigation:q='+GX+','+GY+'&mode=d')); //если есть google maps except Intent.setData(StrToJURI('https://www.google.com/maps/dir/?api=1&destination='+GX+','+GY+'&travelmode=driving')); //иначе открываем ссылку в браузере end; SharedActivity.startActivity(Intent); end;
  5. beklexx
    Случаем, не нашли решение?
  6. beklexx
    а по дефолту, в случае создания БД в приложении, этот параметр чему равен?
  7. beklexx
    ну либо если есть какая впнка, то вот ещё методы на сайте, на улице
  8. beklexx
    а так не получилось?
  9. beklexx отреагировал на сообщение в теме: С днем рождения!
  10. Rusland отреагировал на ответ на вопрос: Удаление записи из таблицы БД связанной с ListView
  11. beklexx
    для заполнения листвью юзаю подобное решение procedure TFVisit.bListViewFill(LV: TListView; FDSource: TFDQuery; TextField, DetailField, TagField: string; IsClear: boolean); var i, index: integer; item: TListViewitem; begin if LV.Selected <> nil then index:= LV.Selected.Index else index:= -1; if FDSource.IsEmpty then begin // ShowMessage('Нет данных!'); LV.Items.Clear; exit; end; if IsClear then LV.Items.Clear; LV.BeginUpdate; try for i:= 1 to FDSource.RecordCount do begin FDSource.RecNo:= i; item:= LV.Items.Add; item.Text:= FDSource.FieldByName(TextField).AsString; item.Detail:= FDSource.FieldByName(DetailField).AsString; // item.Bitmap.Assign(...) item.Tag:= FDSource.FieldByName(TagField).AsInteger; end; finally LV.EndUpdate; end; if index = -1 then exit; if (LV.Items.Count >= index) then LV.ItemIndex:= index; end; ну и заполняю tbPriceList: TFDQuery; . . . tbPriceList.Open; //фильтрованный по необходимым условиям bListViewFill(ListView1, tbPriceList, 'Name', 'LCP_Qty', 'ProductId', True); tbPriceList.Close; Мне часто приходится работать с листвью где text, detail и tag... но иногда приходится юзать остальной функционал листвью: хидеры-шмидеры, имейджи и т.д. но это уже другой вопрос
  12. Rusland отреагировал на ответ на вопрос: Удаление записи из таблицы БД связанной с ListView
  13. beklexx
    попробуйте OnDeletingItem у меня к примеру такая конструкция норм работает: (правда Bind Visually не юзаю... а в таг каждого итема засовываю нужный ключ) procedure TFVisitPhotoComment.ListView1DeletingItem(Sender: TObject; AIndex: Integer; var ACanDelete: Boolean); begin ... ...'delete bla-bla-bla where Id = :Id'; ...ParamByName('Id').Value:= ListView1.items[AIndex].Tag; ... //не забываем ... ACanDelete := True; //ну или отмена удаления при необходимости ACanDelete := False; end;
  14. elcreg отреагировал на ответ на вопрос: TmapView отображение маркеров в радиусе
  15. Rusland отреагировал на ответ на вопрос: TmapView отображение маркеров в радиусе
  16. Rusland отреагировал на ответ на вопрос: Предзагрузка контента перед показом
  17. zekelive отреагировал на ответ на вопрос: Предзагрузка контента перед показом
  18. beklexx
  19. Kitty отреагировал на ответ на вопрос: Переподключение к серверу (DataSnape)
  20. beklexx
    а, ну да))... в решение же TMapView не участвует ... (пользуясь темой) а TMapView на винде под FMX работает?
  21. sargon отреагировал на ответ на вопрос: TmapView отображение маркеров в радиусе
  22. beklexx
    я обычно проверяю связь до сервака, прежде чем SQLConnection врубать... чем то типа: function Tdm.CheckConnect: boolean; var res: boolean; begin try IdTCPClient1.ReadTimeout:= 10000; IdTCPClient1.ConnectTimeout:= 10000; IdTCPClient1.Connect; IdTCPClient1.Disconnect; res:=true; except res:=false; end; Result:= res; end; установив мои IdTCPClient1.Port и IdTCPClient1.Host
  23. beklexx
    также как и в первый раз if NOT(dm.SQLConnection1.Connected) then try dm.SQLConnection1.Connected:= True; .... хотя если реально при отключении связи не происходит дисконнект, то if dm.SQLConnection1.Connected then dm.SQLConnection1.Connected:= False; try dm.SQLConnection1.Connected:= True; ....
  24. beklexx
    мб пригодится кому... моё решение (android) добавил в прогу TFDSQLiteFunction соединил к FDPhysSQLiteDriverLink и выставил следующее значения: Active = True, ArgumentsCount = 4, FunctionName = 'GPSDist' и в свойстве OnCalculate прописал следующее: procedure Tdm.FDSQLiteFunction1Calculate(AFunc: TSQLiteFunctionInstance; AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject); begin AOutput.AsInteger:= Round(1609.344 * 3958.75 * arccos( sin(StrToFloat(AInputs[0].AsString)/57.2958) * sin(StrToFloat(AInputs[2].AsString)/57.2958) + cos(StrToFloat(AInputs[0].AsString)/57.2958) * cos(StrToFloat(AInputs[2].AsString)/57.2958) * cos(StrToFloat(AInputs[3].AsString)/57.2958 - StrToFloat(AInputs[1].AsString)/57.2958))); end; формула взята отсюда: источник ... имейте ввиду что тут не учтено что земля не совсем правильная сфера... т.е. есть небольшая неточность, но для моих целей было достаточно. Далее добавленная функция юзалась при выборе точек из SQLite. По типу: select ... from ..... where GPSdist(:CenterX, :CenterY, GPSX, GPSY) <= :Dist
  25. beklexx
    эмм... а речь о переподключении к какому серваку?... от клиента к DS или от DS к какому нибудь серваку? если от клиента к DS то у SQLSonnection есть свойство AfterDisconnect. Имхо, стоит избегать постоянного коннекшна, если конечно это возможно. У меня обычно по необходимости подымается коннешн и отрубается после завершения синхронизации. если второй вариант ... то аналогичное свойство используемого компонента подключения
  26. beklexx
    есть у меня такое же в датамодуле одного проекта... помню что раньше работало потом перестало... после какого изменения не помню, а искать лень, кода там многовато, ну и не так уж это критично... так что по стариночке))
×
×
  • Создать...