Лидеры

Вангую, что второе

не верно, на FMX можно работать с OLE также как и в VCL. просто работает это только для Windows. Подключаем uses'ы и пользуемся

Ярослав, спасибо за оперативное решение. Установилось без проблем.

Решение данной проблемы Открыть редактор реестр: regedit Заменить значение ключа реестра: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language\InstallLanguage с 0419 на 0409 Установить среду Восстановить значение ключа (2 пункт) с 0409 на 0419.

Извините, что апаю тему, но я несколько раз заводил баги в https://quality.embarcadero.com/browse/ (и их все уже исправили, чему я несказанно рад). Там регистрация свободная: у меня тоже нет лицензии, но баги репортить можно.

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

я бы через http)). проверено!

Проблема – не могу передать изображение с клиента на сервер DataSnap и сохранить в СУБД MySQL procedure TForm2.Button1Click(Sender: TObject); var bmp:tbitmap; twic:twicimage; begin bmp:=tbitmap.Create; twic:=twicimage.Create; opendialog1.Execute; twic.LoadFromFile(opendialog1.FileName); bmp.Assign(twic); clientdataset1.append; clientdataset1.FieldByName('name').Asstring:='Hello'; clientdataset1.FieldByName('Picture').Assign(bmp); clientdataset1.Post; clientdataset1.ApplyUpdates(0); //clientdataset1.Refresh; clientdataset1.Close; clientdataset1.Open; end;

var strImagem: TMemoryStream; B: TBitmap; begin //создаем битмап меньше исходного в 4 раза B := TBitmap.Create(rectSign.Width div 2, rectSign.Height div 2); B.Clear(TAlphaColorRec.White); //переносим исходное изображение в созданынй битмап if B.Canvas.BeginScene then try layoutPhoto.PaintTo(B.Canvas, TRectF.Create(, , B.Width, B.Height)); finally B.Canvas.EndScene; end; try //поток для изображения strImagem := TMemoryStream.Create; //загружаем в него битмап B.SaveToStream(strImagem); //возвращаем курсор потока в начало strImagem.Position := ; dm.qMDevice.SQL.Text := 'UPDATE Orders SET PHOTO = :PHOTO WHERE ROWID = :RowId'; dm.qMDevice.ParamByName('RowId').AsInteger := SourceROW; //загружаем в запрос изображение из потока dm.qMDevice.ParamByName('PHOTO').LoadFromStream(strImagem, ftBlob); dm.qMDevice.ExecSQL; dm.qMDevice.Close; except on e: Exception do Toast('Не удалось сохранить фото #7702:'#13#10 + e.Message); end; //освобождем ресурсы FreeAndNil(B); FreeAndNil(strImagem); end; Как-то так делаю я. Наверняка можно более изящно, с меньшим количеством кода. Подключитесь пожалуйста коллеги!

Edit1.Anchors := [TAnchorKind.akTop, TAnchorKind.akRight];

не работает OLE в TWebBrowser(FMX), а Word/Excel/WMI и прочее работает

нужно помнить что на мобильных в TBitmap нельзя присвоить картинку загруженную в отдельном потоке. Поэтому пользуемся хелперами для загрузки файлов, на форуме не раз обсуждалось

Проблему решили через TeamViewer. Были неправильно прописаны пути в настройках Студии. Насчёт версии на моём скрине, это просто скрин старый уже

Может кто-то поделиться Хотфиксом утечки памяти для Rad Studio 10 Seattle Update 1 с Embarcadero Developer Network? Нигде не могу найти Ссылка с хотфиксом: http://cc.embarcadero.com/item/30453

лови P.S. Спасибо братьям-китайцам 10_Seattle_Update_1_ModernTheme_Hotfix.zip

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

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

ну, это примерно то и есть. накидать бы пару компонентов с align=top, и autosize'ом аналогичным простым layout на форме... а вопрос с фоном я вроде себе закрыл. я создал простенький объект, унаследовался от TItemDrawObject. он только рисовать и умеет

А я ждал какого-нибудь Align объектов и раскраски бэкграунда. Из реальных багов - если задать DynamicAppearance - построить там все по нраву, а затем сменить (например случайно) ItemAppearance на какой-нибудь другой, то при возвращении в DynamicAppearance все изменения пропадают... на колу мочало, начинай сначала

слегка расстраивает расстановка приоритетов Имхо, никто не будет пользоваться этим странным EditMode и при этом все тотально мучаются с Item.AutoSize. лучше было бы эту фичу впилить ((

Читаем внимательно правила форума. А именно 3.3. P.S. Это не официальный сайт эмбаркадеро, а форум по решению задач и проблем. На всякий случай скину вам ссылку: http://www.embarcadero.com/. Если вы чем-то не довольны, то прошу опять же на http://www.embarcadero.com/.

Попробую я ответить. Во первых Direct2d, используемый FMX по умолчанию, более нативен для Windows чем OpenGL. Нужной версии OpenGL может и не быть в системе, а Direct2d начиная с Vista тянет с собой сама Windows. Кроме того при использовании Direct2d используется CanvasD2D, которая являться оберткой для нативных вызовов D2D, и работает намного лучше, аккуратнее, и обладает большими возможностями чем TGpuCanvas - используемая для OpenGL.

apptethering - это локальная сеть, насколько я понимаю облако - это сервер и есть, осталось выбрать чей. раньше был Parse. теперь надо искать еще

Поддерживаю предыдущего оратора!))

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

Джентльмены, про проблему с инсталляцией на русскую винду, ответственные работники уже поставлены в известность. Разбираются. И ...это... санкции тут не при чем.

private

Правильно понимаете, теперь при любом изменении высоты статус бара форма будет корректно менять свои размеры.

To enforce visibility semantics, class and record helpers cannot access private members of the classes or records that they extend. И да, я пока еще качаю, но они, что, реально убрали доступ хелперов к приватным полям? У меня куча закрытых ("мудрым" архитектором) полей таким макаром "подтянуты" до публичного доступа

это фейл, придётся все свои фичи переносить на новый LV... как только будет berlin сразу выложу обновление

ListViewHelper в новой версии не работает. Вся надежда на ZuBy ) http://i.piccy.info/i9/f722ebe1c12a20d4da02a868563e3b22/1461061559/12498/955466/LsvHelper.png А какая-нибудь инструкция есть как работать с новым редактором ListView?

У TImage есть свойство DisableInterpolation ===================================== Image1.DisableInterpolation:= False;

Проблема решена. Оказалось что там кодировка Win1251, а я указал TStringStream.Create('', TEncoding.UTF8); вместо TStringStream.Create(''); И парсер на всякий случай: uses msxml; procedure GetKursValutAndDate(XML:String; var KDollar,KEuro:Double); var XMLDoc: IXMLDOMDocument; Subnodes: IXMLDOMNodeList; AttributeNode: IXMLDOMNode; OperationNode: IXMLDOMNode; i:integer; begin KDollar:=0; KEuro:=0; try XMLDoc:=CoDOMDocument.Create; if Assigned(XMLDoc) and XMLDoc.loadXML(XML) then begin Subnodes:=XMLDoc.selectNodes('//ValCurs/node()'); if Assigned(Subnodes) then begin for I := 0 to Subnodes.length - 1 do begin AttributeNode := Subnodes[I].attributes.getNamedItem('ID'); if Assigned(AttributeNode) then if (AttributeNode.nodeValue='R01235') then begin // доллар OperationNode:=Subnodes[I].selectSingleNode('.//Value'); if Assigned(OperationNode) then KDollar:=StrToFloat(OperationNode.text); end else if (AttributeNode.nodeValue='R01239') then begin // евро OperationNode:=Subnodes[I].selectSingleNode('.//Value'); if Assigned(OperationNode) then KEuro:=StrToFloat(OperationNode.text); end end; end; end; except Raise Exception.Create('Не удалось получить курс валют'); end; end;

При попытке установить RotationAngle:=90 изображение на Win32 поворачивается, а на Android исчезает. Это нормальное состояние вещей или я что-то делаю не так?

В FireMonkey TBitmap имеет верхнее ограничение на размеры хранимого изображения, ограниченные максимально допустимым размером текстур в текущей платформе. Узнать максимальную ширину и высоту можно так: var MaxWidthHeight: Integer; begin MaxWidthHeight := TCanvasManager.DefaultCanvas.GetAttribute(TCanvasAttribute.MaxBitmapSize); end;