Два вопроса по Delphi + Excel 1. Как надписи на вертикальной оси диаграммы расположить слева, справа? With (exChart.Axes(xlValue, xlPrimary, LCID) as axis) do ? // ось Y 2. Как назначить желаемый формат надписей на осях - числовой, с заданным числом знаков в дробной части? ...

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

Доброго времени суток Помогите разобраться с распознаванием длинны символа в UTF8 на низком уровне. Открываю вики https://en.wikipedia.org/wiki/UTF-8, там приведена таблица вида (упрощенно привожу здесь):

code:
1 | U+0000  | U+007F   | 0xxxxxxx		
2 | U+0080  | U+07FF   | 110xxxxx | 10xxxxxx	
3 | U+0800  | U+FFFF   | 1110xxxx | 10xxxxxx | 10xxxxxx
4 | U+10000 | U+1FFFFF | 11110xxx | 10xxxxxx | 10xxxxxx | 10xxxxxx

Как её правильно прочитать и составить алгоритм распознавания длинны (х ...

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

Вопрос мой касается интерфейса программы. Заказчик хочет лично для себя задать новые картинки на кнопках TSpeedButton. Картинки будут делать дизайнеры заказчика. От меня требуется дать рекомендации по формату этих картинок. А я никогда не занимался этим вопросом. Помню только что левый нижний пиксель задаёт цвет, который Дельфи считает прозрачным. Может кто-нибудь занимался созданием собственных "глифов" для TSpeedButton? И подскажет мне какие дать дизайнерам заказчика рекомендации, чтобы ...

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

Добрый день. Возникла у меня следующая непонятка, поэтому прошу Вашей помощи и подсказки. Рассылаю письма с помощью Indy. Не первый раз использую idMessager:TidMessage и IdText: TidText. Примерно, следующим образом: [code] idMessager:=TIdMessage.Create(nil); IdText :=TIdText.Create(idMessager.MessageParts, nil); Try ….. for i:=0 to Count do begin // Отправка очередного письма end; finally IdText.Free; idMessager.Free; end; [code] Но на ст ...

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

яваскрипт ?, код подключается к серверу SAP и берет от него данные непонятно куда и как и через что возможно ли вот такую ДИЧЬ реализовать на Делфи. интересует концептуально что нужно делать, дальше сам разберусь... . var sendSAP = function(barcode, inv) { var operation = "MobileDocuments.FixedAssetsList"; var _request = '

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

Здравствуйте. Копирую на флешку около 1 гб данных файлами, примерно, по 9 мб , после чего (сразу же) проверяю их crc32, сравнивая с ранее полученными. При небольшом объёме данных всё прекрасно отрабатывает. Но когда файлов много, то на самом последнем вычисляется неправильная сумма. Для вычисления суммы файлы открываю для блочного чтения с помощью Reset. Если файлов много, но их общий размер невелик, то всё работает. Думал, что не завершено копирование. Сделал слип 10 секунд, не помогло. Чтоб ...

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

Здравствуйте уважаемые форумчане! Мне надо в Lazarus-е сохранить содержимое StringGrid-а в документ OpenOffice Writer через диалог. Вот попробовал написать код, но вопросы остались[Code] procedure TfMain.miSaveToOOWriterClick(Sender: TObject); var r, c: Integer; fn: string; s : string; begin if SaveDialog.InitialDir = '' then SaveDialog.InitialDir := ExtractFilePath(ParamStr(0)); if SaveDialog.Execute then fn := SaveDialog.FileName else exit; if VarIsEmpty( ...

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

Здравствуйте, помогите вразумительным ответом. Пытаюсь зарегистрировать вновь созданный компонент. Делфи предлагает поле Unit File Name ввожу путь до созданного мной файла с расширением .pas, далее требуется указать существующий пакет или вновь созданный, так как при создании модуля я указывал Pallet page: Mycomponents, делаю выбор на существующий пакет. Но среда разработки подставляет путь до неизвестного доселе мне файла С:\ProgramFiles(86)Embarcadero\Stidio\lib\win32\dclrusr.dpk. И тут ...

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

Всем доброго времени. Продолжаются задачи по географии. На этот раз вопрос по аффинным преобразованиям. Имею следующую матрицу:

code:
TAffineParam = record
    c00, c01, c02:double;
    c10, c11, c12:double;
    end;

Ищу пиксели по координатам проекции (в метрах, видимо):

code:
xp:=Affine^.c00 + Affine^.c01 * e + Affine^.c02 * n;
yp:=Affine^.c10 + Affine^.c11 * e + Affine^.c12 * n;

где Affine – описанная выше матрица с параметрами; e, n – координаты в метрах; xp, yp – иск ...

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

Здравствуйте, мастера! Сам новичок! Не разберусь. Простейшая программка получения странички из инета для парсинга (на D7 ). begin Memo1.Lines.Clear; HTTP := TIdHTTP.Create(Nil); Memo1.Lines.Add(HTTP.Get('https://ya.ru/')); end; Выдает ошибку 'IOHandler value is not valid' Кто-то из друзей говорил, что надо обновить какую-то библиотеку. Заранее спасибо! ...

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

Есть программа. Большая и сложная. Решили к ней приделать некое внешнее управление: возможность выполнять некоторые действия по команде извне. Для простоты и универсальности решили использовать протокол HTTP. Для простоты реализации — Indy и TIdHTTPServer. И вот тут пошли вопросы... Опытным путем получается, что обработчик OnCommandGet выполняется в отдельном потоке, это так? Каким образом лучше выполнять вызов методов приложения, чтобы не нарваться? Сейчас посылаю сообщения главному окну ...

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

Уважаемые жители Королевства! Пытаюсь загрузить страницу через Delphi 10 Seattle + Indy 10.6.2 [Code] function TfMain.GetHTMLPage(siteURL: string): string; var IdHTTP : TIdHTTP; Id_HandlerSocket : TIdSSLIOHandlerSocketOpenSSL; begin IdHTTP := TIdHTTP.Create(Nil); Id_HandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP); try IdHTTP.Request.BasicAuthentication := False; IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Geck ...

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

Предыстория Есть прибор такой %url[С6-11]https://www.etalonpribor.ru/catalog/izmeritel-nelineynih-iskazheniy/product/s6-11_izmeritel_nelineynih_iskageniy_/?utm_campaign=Poisk|Prioritetnye_1-chast2&utm_term=С6%2011 (измеритель нелинейных искажений). Возникла необходимость использовать такой прибор в автоматическом (управляемом компьютером) рабочем месте. Только оказалось, что подключить этот измеритель к компьютеру "нормальными" стыками (LAN, USB, RS-232/485) не представляется возможным, ...

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

Здравствуйте, уважаемые форумчане! В перечне вопросов я не нашёл ответ на свой вопрос, поэтому решил спросить. Пишу базу данных в "Delphi 2007", использую компоненты TADOQuery. Написал запрос объединения с использованием стандарта SQL2: str:= 'Select * From tbRelation Inner Join tbBloks On Id_Blok = IdBlokOut'+ ' Where NameBlok Like ' + chr(39) + s + Chr(39); Появилось окно с сообщением: "Не поддерживается выражение объединения". Почему так происходит? Стандарт SQL2 должен поддержив ...

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

14 февраля Delphi исполняется 25 лет. А Delphi 7, уже 18. С юбилеем тебя, Delphi. Успешной и плодотворной работы вам, форумчане. А ведь альтернативы Delphi, в мире вин-десктопа, в ближайшее время не предвидится. То ли не находится Хоара и Дейкстры для создания языка программирования. То ли - Вирта для того чтобы воплотить его в программу. Или мечтателей, прагматиков, трудяг Хейлсберга и Кана, чтобы претворить его в нашу действительность. А может дело в том, что сейчас, слишком боль ...

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