Rusland

HTTPClient, MapView, Service

и на 10 и на 10.1

А у меня часто зависон черного экрана после повторного старта.

Ааа, дошло ) xJS := SO('{"data":' + aJSON + '}');

Посмотрел пример, а ведь и вправду, где тут в вышеуказанном JSON 'data'? Как в XSO пробежать по массиву, если имени у него нет?

А что говорит Дебагер при запуске? Где происходит ошибка?

Объясните в двух словах что такое маршалинг/демаршалинг классов?

Добавил на ListBoxItem эффект InnerGlowEffect. Trigger=IsPressed=true Но когда я нажимаю на этот ListBoxItem, то никакого эффекта не происходит. Почему? Пробовал все возможные Trigger-ы - никакого толку. Вообще реально придать какой-нибудь эффект помимо InnerGlowEffect? PS. Пока делаю так: procedure TFrmMain.ListBoxItem1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin InnerGlowEffect1.Enabled:=true; end; procedure TFrmMain.ListBoxItem1MouseEnter(Sender: TObject); begin InnerGlowEffect1.Enabled:=true; end; procedure TFrmMain.ListBoxItem1MouseLeave(Sender: TObject); begin InnerGlowEffect1.Enabled:=false; end;

В общем теперь лучше вызывать так TDialogServiceAsync.InputQuery. Ошибка пропала. Видимо это некий баг студии.

Если нажимаю Отмена в InputQuery, InputQuery('Укажите свой ответ', ['Ответ'], [''], procedure(const AResult: TModalResult; const AValues: array of string) begin if (AResult=mrOk) and (AValues[0].Trim<>'') then begin // делаем что-то с AValues[0] end; end ); то получаю Segmentation Fault в FMX.Dialogs.Android (которого в Seattle не существовало) procedure TFMXDialogListener.onDialogClosed(modalResult: Integer; values: TJavaObjectArray<JString>); var I: Integer; begin FModalResult := modalResult; if values <> nil then begin SetLength(FValues, values.Length); for I := 0 to values.Length - 1 do begin if FModalResult = mrOk then FValues[I] := JStringToString(values.Items[I]) else FValues[I] := FDefaultValues[I]; // тут end end; TThread.Queue(FCallerThread, DoDialogClosed); end; Где у меня ошибка? PS. Delphi 10.1 Berlin PPS. в справке сказано Warning: InputQuery is deprecated. Please use Platform.IFMXDialogServiceAsync.MessageDialogAsync. InputQuery вышел из моды? )

Еще посмотрите на компонент CalloutPanel

По поводу 405 вики говорит: "405 Method Not Allowed — указанный клиентом метод нельзя применить к текущему ресурсу. В ответе сервер должен указать доступные методы в заголовке Allow, разделив их запятой." Посмотрите что возвращается в заголовке. По поводу кода... непонятно зачем дополнительно использовать picture: TBitmap; Можно же использовать сразу Image1: procedure TForm1.Button2Click(Sender: TObject); var ms:tmemorystream; begin ms:=tmemorystream.Create; Image1.Bitmap.SaveToStream(ms); IdHTTP1.Put('http://сайт/images/Uchastniki/'+Edit1.Text+'.jpg',ms); ms.Free; end;

master webs, попробуйте убрать ShowMessage. Еще можете попробовать перенести этот код в OnActivate / OnShow

Не согласен, тут просто нужно запомнить что: A - Array I - Integer S - String B - Boolean и т.д. Очень даже просто и логично )

Не-не-не, поддержка Linux и Intel Atom будет не раньше версии "Delphi 99.9 Uhta"

Работает

Что-то не сходится. Вы же писали код, в котором picture:=TBitmap.Create; а значит picture не может быть типа TMemoryStream! Поэтому я и спросил какого типа picture.

Мне просто не понятно почему делается image1.Bitmap.LoadFromStream(picture); а не image1.Bitmap.Assign(picture); ? Покажите код передачи фото в иконку маркера.

А что такое picture? Если он Bitmap, то почему делается image1.Bitmap.LoadFromStream(picture); ?

Евгений Корепов, проверил - работает на Android procedure TForm1.OnAuthEvent(const Sender: TObject; AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName, APassword: string; var AbortAuth: Boolean; var Persistence: TAuthPersistenceType); var MyCredential: TCredentialsStorage.TCredential; begin MyCredential := TNetHTTPClient(Sender).CredentialsStorage.FindAccurateCredential(AnAuthTarget, ''); AUserName := MyCredential.UserName; APassword := MyCredential.Password; end; procedure TForm1.OnValidateServerCertificate( const Sender: TObject; const ARequest: TURLRequest; const Certificate: TCertificate; var Accepted: Boolean); begin Accepted:=true; end;

Я использую такой же код и на Андройде Accepted:=True; и у меня прокатывает. Что за сайт?

procedure TForm1.Button1Click(Sender: TObject); var ms:tmemorystream; begin ms:=tmemorystream.Create; idFTP1.Connect; idFTP1.Get('http://global.ru/www/global.ru/images/product_images/original_images/10_0.png',ms,true); idFTP1.Disconnect; image1.Bitmap.LoadFromStream(ms); ms.Free; end; Почему путь указан http://... а не ftp://... ? Раз обращение через IdFTP, то ftp и прописывайте

Как сделать через ImageList так и не понял. Решил проблему так: TListItemImage(Item.Objects.FindDrawable('Image2')).Bitmap:=Image1.Bitmap; PS. Если вы думаете что переименование в Text, Detail, Image поможет обращаться к объектам как и раньше, то даже не пытайтесь, ничего не выйдет, я проверил )

Вот я указал ItemAppearance = DynamicAppearance Добавил 3 текста и один Image (имя Image2). Тексты присваиваю так: Item :=LsvAlarms.Items.Add; Item.Data['Text1']:='Текст1'; Item.Data['Text4']:='Текст4'; Item.Data['Text3']:='Текст3'; Как в рантайме добавить картинку в Image2? Изначально у меня к ListView был прикреплен ImageList и я просто указывал Item.ImageIndex:=0 - а как поступать теперь? Куда присваивать bitmap?

Kitty, я вообще ничего не скачивал, а просто открыл Seattle и перенес все ссылки с него в SDK Manager Berlin-а и все заработало.