Здравствуйте, моя проблема заключается в том чтобы прочитать файлы .DOC .DOCX в строку например string или Memo1 желательно без использования LibreOffice или Word. В данное время остановился на компоненте OpenOffice и даже не понимаю как из него строку считать в String [Code] var OpenOffice:TOpenOffice; begin OpenOffice := TOpenOffice.Create; if not OpenOffice.Connect then Exit; // OpenOffice.CreateDocument; if opendialog1.Execute then OpenOffice.OpenDocument('file:///'+opendia ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83816

Коллеги, может кто-либо сможет оценить ситуацию! Исходная информация: 1. В локальной сети на одном из серверов работает программа, которая в том числе непрерывно пишет информацию в бинарный файл фиксированного размера. 2. На каждом из узлов в сети может запускаться программа-клиент (количество одновременно работающих может превышать 100), которая читает информацию из того самого бинарного файла с «расшаренного» ресурса сервера Описание проблемы: 1. У «клиентов» никогда не было проблем с ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83815

Всем привет. В wisock все понятно, командами select и ioctlsocket определяю готов ли мой сокет отдать мне байты и сколько именно. А как это делать в firemonkey? вот тестовый код: var ipa: TIPAddress; srv,address: string; sock: TSocket; srv := 'www.yandex.ru'; sock := TSocket.Create(TSocketType.TCP); ipa := sock.LookupName(srv,false); if ipa.Addr.s_addr = 0 then exit; address := ipa.Address; sock.Connect('', address, '', 80); ок, подключился. Как узнать готовность сокета отдава ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83814

Всем привет. Опять вопрос по firemonkey. При нажатии на кнопку обработчик может секунды 2-4 поработать. Чтобы это выглядело прилично вывешиваю картинку или пищу предупреждение. А на андроидах это не работает? Memo1.Lines.Clear; ImageWA.Visible := True; Memo1.Lines.Append('please wait...'); // все это не обновляет форму пока не завершится выполнение обработчика Application.ProcessMessages; Application.HandleMessage; FormTEST.Invalidate; ImageWA.Repaint; простого способа нет? как ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83813

Добрый день уважаемому сообществу ! Помогите разобраться со следующей проблемой. На обработку поступает массив строк. Нужно определить кодировку строк - либо ANSI, либо Unicode. Работа идет в среде Embarcadero Delphi RAD Studio 10. Этот массив строк хранится в компоненте TStringList. Если строки вводятся из файла прямо в TStringList, то для этого случая имеется демонстрационный код, работающий на ура : [Code]procedure TForm2.Btn1Click(Sender: TObject); var ListStr ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83812

Delphi + ADO + MS SQL Как вывести в дельфи сообщения сервера? Например, что обработано столько-то строк, запрос выполнен успешно и т.п. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83811

Всем привет. Скачал потестить delphiXE8. Создаю простое приложение: просто форма с кнопкой "Close". Нажимаешь на нее и форма закрывается. Как виндовое приложение - все нормально. Компилю как андроид приложение. Компилится без проблем, на мобилу устанавливается. Запускаешь его, а оно на 1 секунду появляется (без кнопки, кстати) как пустое окно с красным факелом, и сразу же сворачивается. Нажимаю на квадрат - да, вот оно свернутое. Нажимаю на него - снова секунду висит и сворачивается. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83810

Многострочный текст в Компоненте TMStringGrid у меня не фиксируется. Как сделать, лучше пример, чтобы в ячейке были видны все строки? Сформировал таблицу, чтобы потом скопировать в Word, заполняю ячейку многострочным текстом. Всё ок. Но только выхожу с ячейки и текст выстраивается в одну строчку. Высоту ячейки формирую так: [Code] type TFormZatrat = class(TForm) MSGz: TMStringGrid; procedure TFormZatrat.MSGzKeyPress(Sender: TObject; var Key: Char); var S : string; hh :by ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83809

Как отобразить дерево файловой системы в компоненте VirtualTreeView? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83808

Здравствуйте. В моем приложении есть ComboBox1 (стиль csDropDownList). Надо сделать так, чтобы пользователь не мог выбрать в ComboBox1 другую строку (отличную от текущей) с помощью мышки или клавиатуры. В принципе, худо-бедно подходит способ

code:
ComboBox1.Enabled:=false;

Но при этом меняется стиль комбобокса, текст становится бледным, а этого хочется избежать. Как это сделать? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83800

Доброго времени суток Славные Жители Королевства! При выводе шрифтов в системе на платформе 64 бита с помощью "EnumFontFamiliesEx" выдает ошибку. Перепробовал кучу способов но ничего не помогает. Кто нибудь может помочь в чем дело!!! Ошибка: "First chance exception at &0000000000713034. Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'. Process Progect1.exe" { На платформе 64-bit Platform "EnumFontFamiliesEx" выдает ошибку } { На платформе 3 ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83790

Не могу сам решить эту задачу. Есть текст, в котором надо выловить надстрочные и подстрочные символы. Как я понял, надо использовать EM_GETCHARFORMAT, но как, я не пойму. Я использую библиотеку JEDI. Добавил в uses помимо JvRichEdit еще и RichEdit, потому как без него возникает ошибка в объявлении переменной CF:TCharFormat2;. Пробую отслеживать dwMask и yOffset (да и другие варианты, которые нашел в примерах в интернете), но это не срабатывает... Помогите решить задачу или посоветуйте учебни ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83782

Вопрос относится к доработке класса TRyMenu (http://www.delphikingdom.com/asp/viewitem.asp?catalogid=511). Передо мной сейчас стоит особая задача: необходимо добиться такого поведения, чтобы при выборе пункта контекстного меню [EM]Меню[/EM] не закрывалось, что облегчило бы выбор другого пункта меню при желании. В этом случае предполагаю, что для скрытия меню пользователь должен будет увести в сторону курсор мыши. Такое поведение нужно не всегда, а только в особых случаях. Например: [Code] ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83781

Доброго времени, уважаемые. Ситуация такая: Программа пишет логи, в начале которых вставляет разную информацию о системе. Чтобы получить наименование системы, использую TOSVersion.Name. Для Windows 10 всегда возвращает просто "Windows". Из кода понятно, что так и должно быть. Погуглил и увидел множество советов исправить это добавлением следующего фрагмента в сертификат: [Code] ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83780

Всем добрый день. Решил написать маленькое приложение под андроид (Delphi 10.4 Sydney) Приложение простое - открыть URL и дальше уже пользователь по страничке .... Бросил WebBrowser, Navigate сделал и тут оказалось , что WebView андроид не хочет работать с input type="file" В инете много инфы но для Android Studio Никто не сталкивался с такой проблемой и если да то как решали? Спасибо ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83779

Знатокам GDI. Есть маска — битмап с белым изображением и черным фоном. Можно ли по этой маске быстро (желательно в одну функцию) вывести на DC изображение с заданным цветом изображения и фона. А-ля текстовый режим, где есть маска символа, есть цвет символа и есть цвет фона. Если просто на черном фоне, то это делается вызовом BitBlt с растровой операцией MERGECOPY (цвет символа задается как цвет кисти). А вот чтобы и цвет символа, и цвет фона — что-то не получается придумать без кучи дополн ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83771

Коллеги, подскажите, как правильно добавить string в array of TVarRec? function Test: string; var xPars: array of TVarRec; xS: string; begin xS := 'abc'; SetLength(xPars, 1); xPars[0].VType := vtUnicodeString; xPars[0].VUnicodeString := @xS; // Ожидаю одинакового результата в следующих строках, однако: Result := Format('Res:%s', ['abc']); // Result= 'Res:abc' Result := Format('Res:%s', [xS]); // Result= 'Res:abc' Result := Format('Res:%s', xPars); ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83766

Здравствуйте! Есть библиотека RXLib, а в ней компонент для работы с датой в БД TDBDateEdit, только эта библиотека для delphi 7, а есть ли подобный аналог компонента для Delphi X3 (проект в нём написан). ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83760

Всем привет! не знаю можно ли тут постить ссылки на другие ресурсы... По словам delphi+LanczosFilter и по delphi+bicubic можно легко взять очень интересные процедурки для качественного ресампла битмапов. Lanczos, конечно, лучше всех в даунскейле. Вопрос про скорость. Если я вывожу картинку средствами GDI+ примерно так [Code]currGPI := TGPImage.Create(filename); ... готовлю rect ... gra := TGPGraphics.Create(BOX.Canvas.Handle); gra.SetInterpolationMode(InterpolationModeHighQ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83752

Доброго времени. Хочу проконсультироваться у уважаемых коллег. Есть ли у кого-то опыт работы с Bullzip через OLE? Версия Bullzip - 6.0.0. Хочу получить интерфейс через CreateOleObject. Делаю, как увидел в примерах. Но программа не находит ProgID "Bullzip.PdfUtil". Сам тоже не нахожу в реестре. Рекомендуемый ProgID "Bullzip.PdfSettings" заменил на "Bullzip.PdfPrinterSettings" и получил интерфейс. Но какой класс использовать именно для печати? Возможно ли это для старой бесплатной версии? За ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83751