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

Dmitry Stolyarov

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

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

  • Посещение

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

    3

Сообщения, опубликованные Dmitry Stolyarov

  1. 2 минуты назад, krapotkin сказал:

    предположу что ][ - это точно не JSON

    не исключаю ошибки в формировании JSON.. (опыта нет)

    сам php:

    
    if ($DBResult = mysqli_query($DBLink, $query2)) {
      $ResultArray = array();	
      $Index = 0;
        while ($row = mysqli_fetch_array($DBResult, MYSQLI_ASSOC)){
    	 $ResultArray[$Index] = $row;
    	 $Index++;	
    	}
      $ResultJSON = json_encode($ResultArray, JSON_PRETTY_PRINT | JSON_UNESCAPED_UNICODE);
    	echo $ResultJSON;
    	mysqli_free_result($DBResult);
    }
    
    if ($DBResult = mysqli_query($DBLink, $query3)) {
      $ResultArray = array();	
      $Index = 0;
        while ($row = mysqli_fetch_array($DBResult, MYSQLI_ASSOC)){
    	 $ResultArray[$Index] = $row;
    	 $Index++;	
    	}
      $ResultJSON = json_encode($ResultArray, JSON_PRETTY_PRINT | JSON_UNESCAPED_UNICODE);
    	echo $ResultJSON;
    	mysqli_free_result($DBResult);
    }
    
    if ($DBResult = mysqli_query($DBLink, $query4)) {
      $ResultArray = array();	
      $Index = 0;
        while ($row = mysqli_fetch_array($DBResult, MYSQLI_ASSOC)){
    	 $ResultArray[$Index] = $row;
    	 $Index++;	
    	}
      $ResultJSON = json_encode($ResultArray, JSON_PRETTY_PRINT | JSON_UNESCAPED_UNICODE);
    	echo $ResultJSON;
    	mysqli_free_result($DBResult);
    }

    на выходе дает указанный выше формат 

  2. Подскажите, пжл, ка разобрать такой JSON: 

    [
        {
            "cities_id": "1",
            "cities_idpartner": "2",
            "cities_name": "москва"
        },
        {
            "cities_id": "2",
            "cities_idpartner": "2",
            "cities_name": "москва2"
        }
    ][
        {
            "prices_id": "1",
            "prices_name": "полный прайс",
            "prices_idpartner": "2",
            "prices_rub": "1000.00"
        },
        {
            "prices_id": "2",
            "prices_name": "многодетные",
            "prices_idpartner": "2",
            "prices_rub": "750.00"
        }
    ][ 

    ... несколько подобных запрос с разных таблиц в одном JSON

  3. Не могу скомпилировать пустое приложение под OSX Majave SDK 10.14.

    При компиляции вылетает ошибка и студия закрывается (10.2.2 Tokyo). Подскажите, пжл, как это победить??1429283105_(4596).thumb.png.2c5ef27d203b54fa0e1e390f2b57d45a.png

  4. В 26.03.2017 в 13:42, Равиль Зарипов (ZuBy) сказал:

    Есть небольшой проект с горизонтальным режимом в статье, если не получится реализовать, то помогу

    http://blog.rzaripov.kz/2016/11/1-modernlistview.html

    Попробовал запустить демку Berlin 10.2, но получил ошибку :

    [dcc32 Fatal Error] FMX.ListView.pas(21): F2051 Unit FMX.ListView.Adapters.Base was compiled with a different version of FMX.ListView.Types.TListItem

    нужно еще какие-то манипуляции провести или я что-то не понял?

     

  5. В 16.10.2014 в 16:46, nek сказал:

    Может тут посмотришь? Клац!
    А меня интересует FLV. Правда у меня несколько иная задача (боюсь придется создавать новую тему). Что бы не мучатся с форматами использую TMediaPlayer как источник информации о разрешении видео. Ещё не знаю как определить частоту кадров :(

    P.S.: Сорри за некропост

    UPD: o.O всё открывается, но надо переименовать файл в mp4. Но это ведь не дело заставлять юзера переименовывать пачку? Когда файлов 50, среди них n другого формата.

    UPD2:  Дошли руки. Надо ведь регистрировать свой тип? Т.к. по-умолчанию MP знает лишь небольшое кол-во файлов. Пока так  TMediaCodecManager::RegisterMediaCodecClass(".flv","Flash Video",TMediaType::Video,...

    у меня не получилось воспроизвести mp4... где необходимо прописатьTMediaCodecManager::RegisterMediaCodecClass... ? 

  6. имеется ввиду, что пользователь может скачать файл только если зарегистрирован на сайте. Т.е. как я понимаю, необходимо отправить запрос, в котором указаны логин и пароль, и если все ОК, то скачивается файл. Сейчас у меня реализовано простое скачивание без "авторизации". Использую THTTPClient

  7. да, справку эту видел... но не понимаю как ее привязать..

    делал так, но не работает.

    procedure TfmMain.NetHTTPClient2AuthEvent(const Sender: TObject;
      AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName,
      APassword: string; var AbortAuth: Boolean;
      var Persistence: TAuthPersistenceType);
    begin
    if AnAuthTarget = TAuthTargetType.Server then
      begin
        AUserName := 'stdimarik';
        APassword := '123456';
      end;
    end;
    
    ...
    FClient.AuthEvent:= NetHTTPClient2AuthEvent;
    ...

     

  8. Скачиваю файл через THTTPClient (как реализовано в демке xe 10)

    ...
    FClient := THTTPClient.Create;
    FClient.OnReceiveData := ReceiveDataEvent;
    ...

    не могу найти пример с THTTPClient как добавить авторизацию на сайте перед скачиванием файла. 

    подскажите, пжл...

  9. странное поведение MediaPlayerControl ... есть Tabcontrol, на нем лежит MediaPlayerControl. листаю таб через SetActiveTabWithTransition. в итоге если вернутся обратно на вкладку, то на   MediaPlayerControl отпечатки других компонентов, которые при перелистывании как бы проехали через него.

    1.png

  10. В 05.06.2018 в 17:46, Barbanel сказал:

    Имхо, лезть в стили и иубирать рамку.

    Если вам исключительно для того чтобы отображать свой статический/динамический HTML/RTF текст из приложения, то имхо лучше не использовать ВебБраузер.
    Простейший HTML умеет отображать компонент от TMS - TTMSFMXHTMLText
    У него рамки нет)))

    т.к. нужна была статическая страница (по сути картинка) , то решил через скрины) 

  11. Не могу понять в чем дело.. динамически создаются Tabы и Image внутри табов..

    for k := 0 to ...
    ...
    Img:= TImage.Create(tabcSlider.Tabs[k]);
            Img.Name:= 'Img'+IntToStr(k);
            Img.Parent := tabcSlider.Tabs[k];
            Img.Align:= TAlignLayOut.Client;
            Img.WrapMode:= TImageWrapMode.Center;
    ...

    в результате Image вылазит за границы таба... смещается влево

    что не так?

    Снимок экрана 2018-06-07 в 12.24.14.png

×
×
  • Создать...