Доброго времени суток, уважаемые жители Королевства. Столкнулся с такой проблемой: использую Delphi XE8 создал библиотеку, отправляющую запрос на https и получающую от него сообщение в ответ. Однако в процессе тестирования меня ждала неожиданность, при слишком большом объёме передаваемых данных сертификат просто не подцеплялся, выдавая "A certificate is required to complete client authentication - URL:https://<путь к wsdl> - SOAPAction:""". Заказчик предоставил мне wsdl, поэтому код обращен ...

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

Доброго времени суток! Прошу вашей помощи. Мне необходима программа которая бы делала скрин свернутого окна. Нашел реализацию вот тут: http://stackoverflow.com/questions/27024554/capture-screenshot-from-selected-minimized-window Там у него исправленный и рабочий пример(он так утверждает). Пытаюсь повторить тоже самое один в один, но меня 3 ошибки выскакивает

code:
Undeclare indentifier "GetWindowLongPtr"
Undeclare indentifier "SetWindowLongPtr"
Undeclare indentifier "LONG_PTR"

...

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

Доброго времени суток! Прошу вашей помощи. Мне необходима программа которая бы делала скрин свернутого окна. Нашел реализацию вот тут: http://stackoverflow.com/questions/27024554/capture-screenshot-from-selected-minimized-window Там у него исправленный и рабочий пример(он так утверждает). Пытаюсь повторить тоже самое один в один, но меня 3 ошибки выскакивает

code:
Undeclare indentifier "GetWindowLongPtr"
Undeclare indentifier "SetWindowLongPtr"
Undeclare indentifier "LONG_PTR"

...

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

Всем привет. TCheckListBox. Как узнать виден у него вертикальный скролбар или нет? И если виден, то какая у него ширина? Ну, первый вопрос, теоретически, могу перебрать все записи, найти максимальный Canvas.TextWidth и если он больше размера TCheckListBox, то, значит, виден. Может есть более простой способ? Ну а какой width скролбару винда делает совсем не знаю как узнать. :) ...

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

Всем привет. TCheckListBox. Как узнать виден у него вертикальный скролбар или нет? И если виден, то какая у него ширина? Ну, первый вопрос, теоретически, могу перебрать все записи, найти максимальный Canvas.TextWidth и если он больше размера TCheckListBox, то, значит, виден. Может есть более простой способ? Ну а какой width скролбару винда делает совсем не знаю как узнать. :) ...

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

С Новым годом, коллеги! Проект состоит из достаточно большого количества BPL, большинство из которых загружаются динамически в зависимости от конфигурации поставки. Вопрос: какой установить для них Image base address (деректива -K), чтобы загрузка приложения была максимально быстрая? Сейчас стоит как и у приложения -K00400000. ...

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

С Новым годом, коллеги! Проект состоит из достаточно большого количества BPL, большинство из которых загружаются динамически в зависимости от конфигурации поставки. Вопрос: какой установить для них Image base address (деректива -K), чтобы загрузка приложения была максимально быстрая? Сейчас стоит как и у приложения -K00400000. ...

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

Здравствуйте, господа! Вопрос про учет и выделение памяти в х86/х64. Хочу в программе сделать мониторинг использования доступной моему процессу памяти. Для этого нужно знать, сколько моя программа уже выделила и сколько может быть выделено всего до возникновения EOutOfMemory. Мой вопрос касается второй части: как определить объем памяти, доступный для GetMem? Пытался GlobalMemoryStatusEx(), результаты ее работы не понятны с практической точки зрения. ullTotalVirtual = 128 Tb (шоб я так жил) ...

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

Здравствуйте, господа! Вопрос про учет и выделение памяти в х86/х64. Хочу в программе сделать мониторинг использования доступной моему процессу памяти. Для этого нужно знать, сколько моя программа уже выделила и сколько может быть выделено всего до возникновения EOutOfMemory. Мой вопрос касается второй части: как определить объем памяти, доступный для GetMem? Пытался GlobalMemoryStatusEx(), результаты ее работы не понятны с практической точки зрения. ullTotalVirtual = 128 Tb (шоб я так жил) ...

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

Задача, нужно сохранить в один файл строку и два достаточно больших BitMap (~25 Мб каждый). Отрабатывает всё правильно, сохраняет мгновенно, но вот загружает недопустимо долго. Но если сделать каждую картинку по отдельности с помощью LoadFromFile/SaveToFile, то работает быстро. Но очень нужно сохранить в один файл. Делаю сейчас так: [Code] procedure SaveInFile; var f:TFileStream; s:String; l:Integer; m:TMemoryStream; z:DWord; begin //bPage1.SaveToFile(ProgDir+'1.bmp'); ...

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

Задача, нужно сохранить в один файл строку и два достаточно больших BitMap (~25 Мб каждый). Отрабатывает всё правильно, сохраняет мгновенно, но вот загружает недопустимо долго. Но если сделать каждую картинку по отдельности с помощью LoadFromFile/SaveToFile, то работает быстро. Но очень нужно сохранить в один файл. Делаю сейчас так: [Code] procedure SaveInFile; var f:TFileStream; s:String; l:Integer; m:TMemoryStream; z:DWord; begin //bPage1.SaveToFile(ProgDir+'1.bmp'); ...

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

Уважаемые коллеги! Возникла необходимость поработать с Google Speech API v2. У кого-то есть пример рабочего кода, как отправить звуковой файлик короткий и получить в ответ текст из него? Пытаюсь по примерам на других языках сделать на Delphi, но Google мои запросы отклоняет (Connection reset by peer). Вот мой код [Code] IdHTTP1.Request.ContentType := 'audio/x-flac; rate=44100'; IdHTTP1.Request.CharSet := 'utf-8'; Stream := TStringStream.Create(''); try Params := TIdMultiPa ...

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

Доброго всем рабочего дня. Имеется: FastReport 4. отчет, состоящий из двух страниц: Page1, Page2. На каждой странице - GroupHeader1. Практически , это печать счетов; при переходе на новый счет - переход на новый лист. На Page2 - печать соостветствующего почт. адреса. Так эта зараза печатает сначала все 100 штук Page1, а потом столько же Page2. А надо invoice1:Page1,Page2. invoice2: Page1,Page2 и т.д. Вопрос: кто виноват и что делать? ...

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

Здравствуйте! Вопрос по поводу работы со временем. Когда пытаюсь из 0:00:00 отнять 10 секунд, то вместо 23:59:50 получаю 0:00:10. С другими значениями времени, в которых секунды больше 10, всё вычитается правильно. Какими способами можно побороть данную проблему? В какую сторону копать? Спасибо.

code:
ShowMessage(TimeToStr(StrToTime('0:00:00') - StrToTime('0:00:10')));

...

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

Добрый всем день. D7,Indy10,idmessage. Вопрос: есть ли возможность в отсылаемой почте поменять цвет в SUBJECT? ...

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

Здравствуйте! Задача заменить стандартную подсказку в ListView1 на свою в виде облака. Получилось реализовать частично. Необходимо, чтобы подсказка менялась когда курсор переходит на след. элемент. [Code] var Form1: TForm1; LV: TStringList; TTBalloon: HWND; procedure TForm1.FormCreate(Sender: TObject); var Lc:TListColumn; begin //Моя подсказка TTBalloon := CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, nil, TTS_ALWAYSTIP OR $40, integer(CW_ ...

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

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

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

Всем привет! Объясните пожалуйста, почему в выводимом результате работы этой программы содержится две единички?

code:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  mask: Int64;
  bin: string;
  i: Byte;
begin
  mask := 1 shl 52;
  bin := '';
  for i := 0 to 63 do
    if mask and (1 shl i) > 0
    then bin := '1' + bin
    else bin := '0' + bin;
  writeln(bin);
  readln;
end.

...

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

Всем привет! необходимо решить задачу раскроя листового материала. в программу должны загружаться файлы dwg или dxf, а затем раскладываться наиболее оптимальным способом на листе или нескольких листах. есть у кого какая информация по алгоритмам, реализации, исходники Что-то на сайте в вопросах ничего путного нет и в тырнете, уже целый час ищу, то же все как-то скудно. Если есть какая информация, буду благодарен. ...

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

Нужен PaintBox, который умеет кнопки получать. Вот, списал из инета. Вроде как бы работает, но на стрелки не реагирует. Что нужно тут подправить, чтобы стрелки тоже ловил? [Code] unit KeyPaintbox; // http://www.jjask.com/155766/delphi-paintbox-without-key-events interface uses Windows, Classes, Messages, Controls; type TKeyPaintBox = class(TCustomControl) private FOnPaint: TNotifyEvent; protected procedure Paint; override; procedure MouseDown(Button: ...

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