AliZairov

Пользователи
  • Публикации

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

  • Посещение

  • Days Won

    3

AliZairov last won the day on 18 мая

AliZairov had the most liked content!

О AliZairov

  • Звание
    Продвинутый пользователь
  • День рождения 01.01.1994

Контакты

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

Информация

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

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

672 просмотра профиля
  1. Добрый вечер. Я использовал этот код для веб-телепроекта ABP. Были некоторые ошибки в коде он знает. Но, видя, полные необходимые процедуры. Мне нужно было, чтобы сделать эту систему из такой библиотеки. Picasso
  2. Я не до конца понимаю. Вы задали мне вопрос?
  3. Да, я использую его для 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;
  4. Привет. Я использую самый так. Более стабильная. 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;
  5. Привет. Я не использовал такой путь. Организуйте свой проект. 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);
  6. Добрый вечер. Скоро будет полностью подготовлен.
  7. Привет. Я добавил отдельную функцию помощи. procedure TMain.FormShow(Sender: TObject); begin V.Load; end; Необходимая информация поступила.
  8. Привет. Alcione
  9. Я написал короткий вопрос.Значения, приведенные всегда происходит с компонентами создаются, когда значения по умолчанию. Я проверяю только с Log.d.
  10. Привет. Я делаю 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
  11. Добрый вечер. Субъект актуальность. Я могу использовать сторону 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;
  12. Здравствуйте. Я хотел бы позвонить из 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"); } }
  13. Привет. Я сделал установку на CorssOver ( WineHQ ).
  14. Привет. Я сделал macos установку web installer с Delphi Berlin. Программа дает .bpl ошибка открытия файла.
  15. Hi. SharedPreferences uses Androidapi.Helpers, Androidapi.JNI.App, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText; var SP: JSharedPreferences; SPE: JSharedPreferences_Editor; procedure TMain.FormShow(Sender: TObject); begin SP := TAndroidHelper.Activity.getSharedPreferences(StringToJString('ZTApp'), 0); IP.Text := JStringToString(SP.getString(StringToJString('IP'), StringToJString('127.0.0.1'))); end; procedure TMain.SaveClick(Sender: TObject); begin SPE := SP.edit; SPE.putString(StringToJString('IP'), StringToJString(IP.Text)); SPE.commit; end;