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

AliZairov

Пользователи
  • Постов

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

  • Посещение

  • Победитель дней

    6

AliZairov стал победителем дня 12 сентября 2018

AliZairov имел наиболее популярный контент!

Информация о AliZairov

  • День рождения 01.01.1994

Контакты

  • Сайт
    http://alizairov.com
  • Skype
    ali.zairov.1994

Информация

  • Пол
    Мужчина
  • Город
    Baku
  • Интересы
    Object Pascal

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

2 410 просмотров профиля
  1. Здравствуйте. Кто-нибудь использует схему instagram api? Dev instagram Хотя я и сделал эксперименты, результат, к сожалению, не очень хороший. function getCode: string; begin FRequest.Method := TRESTRequestMethod.rmGET; FRequest.Resource := '/oauth/authorize/'; FRequest.AddParameter('client_id', client_id, TRESTRequestParameterKind.pkGETorPOST); FRequest.AddParameter('redirect_uri', URIEncode(redirect_uri), TRESTRequestParameterKind.pkGETorPOST); FRequest.AddParameter('response_type', 'code', TRESTRequestParameterKind.pkGETorPOST); FRequest.Execute; FRequest.Response.GetSimpleValue('code', Result); end; Проблема заключается в перенаправленном URL-адресе. http://your-redirect-uri?code=CODE
  2. Здравствуйте. К сожалению, есть некоторые ошибки. 1) К сожалению, компонент Align и Anchor не реагирует. 2) Распространяйте объекты в Layouta и это не работает должным образом. 3) Если размер видео небольшой, он остается черным, как на картинке. if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, FScreenService) then FScale := FScreenService.GetScreenScale else FScale := 1; procedure Load; begin {$IFDEF ANDROID} CallInUIThreadAndWaitFinishing( procedure begin { VideoView } FJVideoParams := TJViewGroup_LayoutParams.JavaClass.init(Round(Width * FScale), Round(Height * FScale)); FJVideoView := TJVideoView.JavaClass.init(TAndroidHelper.Context); FJVideoView.setLayoutParams(FJVideoParams); FJVideoView.setBackgroundColor(TJColor.JavaClass.BLACK); if Visible = True then begin Visible := False; FJVideoView.setVisibility(TJView.JavaClass.VISIBLE); end else begin FJVideoView.setVisibility(TJView.JavaClass.INVISIBLE); end; { Control } FJNativeLayout := TJNativeLayout.JavaClass.Init(TAndroidHelper.Activity, MainActivity.getWindow.getDecorView.getWindowToken); FJNativeLayout.setControl(FJVideoView); FJNativeLayout.setPosition(Round(Position.X * FScale), Round(Position.Y * FScale)); FJNativeLayout.setSize(Round(Width * FScale), Round(Height * FScale)); end); {$ENDIF} end; // http://techslides.com/demos/sample-videos/small.3gp 4) Trackbar не меняет позицию. procedure TMain.TrackBar1Change(Sender: TObject); begin Label1.Text := MSToTime(TrackBar1.Value); //V.setPosition(TrackBar1.Value); // Когда вы его активируете, это создает проблемы. end;
  3. Привет. Никаких официальных YouTube Api компоненты. Только данные с парсинг. Пример доступен в архиве.
  4. Добрый вечер. Я использовал этот код для веб-телепроекта ABP. Были некоторые ошибки в коде он знает. Но, видя, полные необходимые процедуры. Мне нужно было, чтобы сделать эту систему из такой библиотеки. Picasso
  5. Я не до конца понимаю. Вы задали мне вопрос?
  6. Да, я использую его для win и mac. Я использую его для Android. function checkNetwork: Boolean; function GetConnectivityManager: JConnectivityManager; var ConnectivityServiceNative: JObject; begin ConnectivityServiceNative := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.CONNECTIVITY_SERVICE); if not Assigned(ConnectivityServiceNative) then raise Exception.Create('Could not locate Connectivity Service'); Result := TJConnectivityManager.Wrap((ConnectivityServiceNative as ILocalObject).GetObjectID); if not Assigned(Result) then raise Exception.Create('Could not access Connectivity Manager'); end; var cm: JConnectivityManager; activeNetwork: JNetworkInfo; begin cm := GetConnectivityManager; activeNetwork := cm.getActiveNetworkInfo; Result := Assigned(ActiveNetwork) and ActiveNetwork.isConnected; end;
  7. Привет. Я использую самый так. Более стабильная. function checkNetwork: Boolean; var TCP: TIdTCPClient; begin Application.ProcessMessages; TCP := TIdTCPClient.Create(nil); try TCP.ReadTimeout := 2000; TCP.ConnectTimeout := 2000; TCP.Port := 80; TCP.Host := 'google.com'; TCP.Connect; TCP.Disconnect; Result := True; except Result := False; TCP.Free; end; end;
  8. Привет. Я не использовал такой путь. Организуйте свой проект. procedure setLogo(ListView: TListView; code, url: string; id: Integer); var Cache: string; T: TThread; begin Cache := TPath.GetCachePath + '/AzerBoxPlus/Cache/'; if not TFile.Exists(Cache + code + '.png') then begin T := TThread.CreateAnonymousThread( procedure var HTTP: TIdHTTP; MS: TMemoryStream; begin MS := TMemoryStream.Create; HTTP := TIdHTTP.Create(nil); try try HTTP.Get(url, MS); TThread.Synchronize(TThread.CurrentThread, procedure() begin ListView.Items[id].Bitmap.LoadFromStream(MS); MS.SaveToFile(Cache + code + '.png'); end); except MS.Free; end; finally HTTP.Free; MS.Free; end; end); T.start; end else begin T := TThread.CreateAnonymousThread( procedure begin TThread.Synchronize(TThread.CurrentThread, procedure() begin ListView.Items[id].Bitmap.LoadFromFile(Cache + code + '.png'); end); end); T.start; end; end; setLogo(ListView, 'name', 'url', index);
  9. Добрый вечер. Скоро будет полностью подготовлен.
  10. Привет. Я добавил отдельную функцию помощи. procedure TMain.FormShow(Sender: TObject); begin V.Load; end; Необходимая информация поступила.
  11. Я написал короткий вопрос.Значения, приведенные всегда происходит с компонентами создаются, когда значения по умолчанию. Я проверяю только с Log.d.
  12. Привет. Я делаю Android компонент. Я использовал TControl как класс. Проблемы TControl памяти. property Position stored True; property Width stored True; property Height stored True; constructor TAZVideoPlayer.Create(AOwner: TComponent); begin inherited; Log.d ( Round(Self.Position.X).ToString + 'x' + Round(Self.Position.Y).ToString + '_' + Round(Self.Width).ToString + 'x' + Round(Self.Height).ToString ); end; var V: TAZVideoPlayer; begin V := TAZVideoPlayer.Create(Self); V.Position.X := 112; V.Position.Y := 112; V.Width := 100; V.Height := 100; Настройки не будут записаны. Где я ошибаюсь? Logcat: FMX: App: 0x0_50x50
  13. Добрый вечер. Субъект актуальность. Я могу использовать сторону Delphi. Проблемы в использовании проектов Java. Пожалуйста, помогите. Примеры для Delph: // hello.dpr (Console project) Compile copy project folder libhello.so library hello; // Replace program function getYear: Integer; cdecl; begin Result := 2017; end; exports getYear name 'getYear'; begin end. //Demo FMX Android app. Project->Deployment Add libhello.so path library\lib\armeabi-v7a\ uses System.IOUtils; var Path: string; FLib: THandle; getYear: function: Integer; cdecl; procedure loadLib(const name: string); begin Path := IncludeTrailingPathDelimiter(TPath.GetLibraryPath); FLib := LoadLibrary(PChar(Path + 'lib' + name + '.so')); end; procedure TMain.Button1Click(Sender: TObject); begin loadLib('hello'); // libhello.so if FLib <> 0 then begin getYear := GetProcAddress(Flib, 'getYear'); ShowMessage(IntToStr(getYear())); end; end;
  14. Здравствуйте. Я хотел бы позвонить из Java для создания и .so библиотеки с Delphi. Я получаю такие сообщения об ошибках A/libc: Fatal signal 11 (SIGSEGV) at 0x00000000 (code=1), thread 16883 (com.nativefmx) Оригинальный шаблон кода C. #include <string.h> #include <jni.h> jstring Java_com_nativefmx_Main_getName(JNIEnv* pEnv, jobject pObj) { return (*pEnv)->NewStringUTF(pEnv, "Hello NDK!"); } Delphi код библиотеки. library fmx; uses Androidapi.Jni; function Java_com_nativefmx_Main_getName(pEnv: PJNIEnv; pObj: JNIObject): JNIString; cdecl; begin Result := (PEnv^).NewStringUTF(pEnv, MarshaledAString(Utf8Encode('Delphi Native String'))); end; exports Java_com_nativefmx_Main_getName; begin end. Java код. package com.nativefmx; import android.app.Activity; import android.os.Bundle; import android.widget.TextView; public class Main extends Activity { @Override protected void onCreate(Bundle savedInstanceState) { super.onCreate(savedInstanceState); setContentView(R.layout.main); TextView tv = (TextView) findViewById(R.id.tv); tv.setText(getName()); } public native String getName(); static { System.loadLibrary("fmx"); } }
×
×
  • Создать...