krapotkin

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

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

  • Посещение

  • Days Won

    36

krapotkin last won the day on 14 февраля

krapotkin had the most liked content!

3 подписчика

О krapotkin

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

Контакты

  • ICQ
    125417612

Информация

  • Пол
    Мужчина
  • Город
    Екатеринбург

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

656 просмотров профиля
  1. вот вам код. бессмысленный ессно но прямо с мобилы type TMyClass=class s:string; end; procedure TForm1.b1Click(Sender: TObject); var l:TObjectList<TMyClass>; begin l:=TObjectList<TMyClass>.Create; l.add(TMyClass.Create); l.add(TMyClass.Create); end;
  2. для http есть THttpClient для остальных протоколов только indy
  3. на мобилах не будет работать
  4. на берлине инди работают, только не используйте SSL
  5. в форм криэйт нет еще размеров, т.к. нет самой формы размеры есть в онресайз
  6. а вот это интересно
  7. ваш сервер хранит всего лишь одно новое поле у пользователя - токен если вы отберете пользователей любым способом, то их токены - это то же что их емейлы для рассылки почты получили токены и отправили на сервер FCM запрос таким-то токенам переслать такое-то сообщение
  8. от души рекомендую заменить TJSONObject на XSuperObject https://github.com/onryldz/x-superobject код будет таким примерно uses XSuperObject; ... procedure TForm1.b1Click(Sender: TObject); var x:ISuperObject; arr:ISuperArray; str:string; begin X:=TSuperObject.Create(); X.S['jsonrpc'] := '2.0'; X.S['method'] := 'get_accounts'; X.I['id'] := 1; arr:=TSuperArray.Create(); arr.Add('captain'); X.A['params']:=arr; ... str:=X.AsJSON(); ... но для начала вам нужно убедиться, что для правильного запроса правильный ответ. ваша строка с образцом не совпадает только в id у вас это строка, а в приведенных примерах - число. может, в этом проблема h:=THTTPClient.Create(); // h.Accept := 'application/json' // h.AcceptCharSet := 'UTF-8'; src:=TStringStream.Create('{"jsonrpc":"2.0","method":"get_accounts","id":1,"params":["captain"]}'); res:=TStringStream.Create(); resp:=h.Post(URL,src,res); if resp.StatusCode=200 then begin ShowMessage('Ответ'+sLineBreak+res.DataString); end; FreeAndNil(h); FreeAndNil(res); FreeAndNil(src); так же может быть, нужно правильно указывать кодировку запроса-ответа и другие заголовки HTTP проверьте этот код. а потом уже делайте JSON любым способом
  9. так нужно саму строку смотреть
  10. Вики: Все передаваемые данные — простые объекты, сериализованные в JSON Запрос — вызов определённого метода, предоставляемого удалённой системой. Он должен содержать три обязательных свойства: method — Строка с именем вызываемого метода. params — Массив объектов, которые должны быть переданы методу, как параметры. id — Значение любого типа, которое используется для установки соответствия между запросом и ответом. вроде все понятно. в чем конкретно вопрос?
  11. по поводу алгоритма закрытия формы через N секунд нужно вызвать из таймера диалог с сообщением. (лучше взять у ZuBy уже предложенную библиотеку MyDialogs. я начинал ее делать именно из-за того, что стандартные диалоги не вывозят) а на закрытие диалога повесить form.Release тогда все будет как вы хотите сначала выйдет сообщение. Потом закроется форма
  12. в том, что на билдере выполнение процедуры останавливается в ShowMessage код void __fastcall TForm1::Button1Click(TObject *Sender) { Label1->Text = L"До"; ShowMessage(L"Привет"); Label1->Text = L"После"; }
  13. нет в данном случае ОРД это отец русской демократии ))) я же написал код, что еще? if (keychar = ' ') then
  14. блин, для цифробуквенных символов, тех, что отображаются в Edit, ответ в ord(keychar) = 32 для всех остальных - в Key а чтобы узнать нажат ли ctrl, есть shift таким образом if (keychar = ' ') and (ssCtrl in shift) then спасет ОРД.