Здравствуйте! Непонятная мне утечка мозгов. Код, за ним пояснения: [Code] type TBinar: array of Byte; ... function ...(AStr: String): Word; var B1: TBinar; //Исходный B2: TBinar; //Переходной I: Integer; begin //Готовим буфер SetLength(B1, Length(AStr) * SizeOf(AStr[1])); SetLength(B2, 0); Move(AStr[1], B1[0], Length(B1)); //Переносим в буфер2 все кроме нулей for I := 0 to Length(B1) - 1 do if B1[I] <> 0 then begin SetLength(B2, L ...

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

Всем доброго времени суток! Дельфи 7, TWEBBROWSER. Направьте, пожалуйста, как просмотреть Web камеру по адресу https://www.skylinewebcams.com/en/webcam/malta/malta/floriana/grand-harbour-valletta-waterfront.html Выдает : Sorry, your browser does not support HLS. Спасибо всем откликнувшимся заранее! ...

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

Доброго времени суток Почему-то в гугле нет ответа на вопрос как получить значение из произвольного указателя. Дело в том, что мне нужен генератор уникальных чисел. Попытка создать собственный генератор на математической основе окончилась провалом, т.к. есть такая нехорошая штука под названием энтропия и зацикливание определенных псевдослучайных результатов. Я подумал, почему бы просто не использовать указатели на память и получаемые значения не использовать в качестве случайных чисел, особен ...

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

Здравствуйте. А как-то можно сделать, чтобы RichEdit как бы не замечал нажатую клавишу Control? Типа, чтобы сделать ввод спец.символов на onChange и на KeyPress. ...

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

Формы придоканные с помощью ManualDock и TActions Коллеги, доброго дня! Использую Delphi 7. Компоненты все стандартные. В моем приложении главное окно (в нем есть только простое главное меню: открыть,сохранить,закрыть) приложения делает ManualDock менеджера документов. Тот представляет собой многооконный менеджер, окнами которого являются вкладки TPageControl. Может быть открыто одно окно, а может быть несколько. В каждую вкладку в свою очередь загружается документ через модуль к ...

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

программа, созданная в делфи7 работает 15 лет. в ней я передаю параметры в процедуру StoredProc таким образом: Params[12].Asfloat := strtofloat(edit14.text); Params[13].Asfloat := strtofloat(edit6.text); Params[14].Asfloat := strtofloat(edit7.text); ......... и так 120 параметров. установил делфи2010, и в нем открыл исходники и откомпилировал. после этого в момент передачи параметров такая ошибка: Invalid Floating Point Operation в результате долгих раздуми ...

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

Добрый вечер всем жителям Королевства! Подскажите пожалуйста в каких DLL-библиотеках Windows 8, 10 могут храниться смайлы, которые набираются с помощью виртуальной сенсорной клавиатуры? И если можно, то показать какой-нибудь простой пример вывода выбранного смайла из DLL по его коду Юникод в Bitmap созданного приложения в Delphi 7. Всем большое спасибо за ответ! ...

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

Добрый день! Подскажите пожалуйста, как решить проблему: В Webbrowser чужого сайта пытаюсь программно открыть меню "Создать". Фрагмент Html кода:

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

Здравствуйте, помогите пожалуйста разобраться с отправкой XML файла. по инструкции [QUOTE]Сформировать xml-файл (client.xml — название файла) вида для запроса реквизитов организации: [CODE] & ...

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

Приветствую всех жителей!!! Решил все же открыть новую тему, т.к. не нашел того, чего хочу. В общем опишу кратко в 3-х словах: Есть форма с компонентом TWebBrowser. С помощью этой формы открывается заложенный в программе URL ("https://.....") Пользователь вводит логин/пароль и дальше делает свои действия, какие ему предоставляет сервер. Все это прекрасно работало. Пока на сервере не сделали обновление.... Суть проблемы: Раньше пользователи могли открывать документы/сообщения щел ...

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

Всем добрый вечер. Попал в цейтнот. Разбираю чужую прогу, сделанную ещё на Делфи5. Автор использовал нестандартные панели из модуля CoolCtrls: CoolPanel и т.д. Сам модуль находится в каталоге с основной программой. В Uses CoolCtrls прописан вместе со стандартными. Но при попытке компиляции в Делфи7 выдаёт ошибку, что данный класс (CoolPanel) отсутствует. Подскажите, пожалуйста, как его подцепить грамотно. Там подобных выкрутас хватает. Мне бы с одним справиться ,а там дальше проще.. Заранее спас ...

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

Различное поведение редактора Word при работе программы в среде разработки Delphi 2010 и в отдельно откомпилированном варианте.Операционная система Windows7. При работе из среды Word открывается по команде из программы. Если же программа откомпилирована и работает самостоятельно без среды, то Word по той же самой команде автоматически не открывается, а только появляется его иконка в строке статуса. При ее активации открывается редактор с результатами расчетов. Что надо сделать, чтобы Word откры ...

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

Всем привет! Имеется массив байт: [EM]C7 80 D0 02 00 00 90 01 00 00 C3[/EM] как привести это к такому виду: [EM]0C7h,080h,0D0h,002h,000h,000h,090h,001h,000h,000h,0C3h[/EM] и подсчитать кол-во байт (в данном случае 11). Заранее спасибо! ...

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

Всем привет, у меня проблемма с http запросом: используется компонент TIdHttp параметры Request такие:

code:
 
User-Agent=Mozilla/5.0 (Windows NT 6.3; WOW64; rv:39.0) Gecko/20100101 Firefox/39.0
Accept=text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language=ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3
Accept-Encoding=gzip, deflate
Referer=http://www.ozone.ru

при запросе [Code] procedure TForm1.Button1Click(Sender: TObject); var ResponseStream: TMemoryStream; s ...

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

Здравствуйте, друзья! Стоит задача -сделать гибкий атоответчик на базе GSM модема. С распознаванием вопросов и выдачи РАЗНЫХ голосовых ответов по запросу. Дайте, плиз, ссылку на материалы или подскажите, какой модем лучше, как записать и выдать голосовой файл. Где взять DLL работы с портом? Заранее огромное спасибо. ...

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

что-то я не понял. есть класс и процедура в нем type TAAAThread = class(TThread) procedure asdf; в этой процедуре создаю tbitmap var ABC: TBitmap; jpg: TJPEGImage; ms: TMemoryStream; ABC := Graphics.TBitmap.Create; рисую на нем, потом перегоняю в стрим и так далее: ms := TMemoryStream.Create; abc.SaveToStream(ms); sz := ms.Seek(0,2); ms.Seek(0,0); все нормально работает. но если я сделаю так: jpg := TJPEGImage.Create; try jpg.Assign(ABC); ms := TMemoryStream.Cr ...

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

Добрый день,спасибо заранее за помощь. Такая проблема:есть файл dbf со своей структурой и т.п. (около 30 полей и 5 тыс. записей).Необходимо конвертировать этот файл в другой такой же файл с сохранением всей структуры и индексации.Как это сделать без загрузки в dbgrid и использования tquery.Что то вроде insert into <путь до новой дбф>(<список полей>) select <список полей> from <путь до старой дбф> Но как это организовать по кнопке? ...

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

Друзья, есть такая проблема. Не ловится исключение в обычном режиме запуска (для пользователя). При этом в режиме отладки это исключение ловит сама студия и останавливает выполнение программы. Я уже пробовал Application.OnException, но это тоже не помогло поймать исключения. После вызова MySRC.Search секция try завершается успешно. Сам поиск происходит асинхронно, в сторонних библиотеках (кода нет). Длительность поиска примерно 30 секунд. Если в процессе поиска происходит ошибка, ...

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

доброе время суток вопрос: каким образом остановить PlaySound из потока? [Code] type TSoundThread = class(TThread) private procedure OnStopPlay; protected procedure Execute; override; end; const BC_PLAY: array [0..1] of String = ( 'пуск', 'стоп' ); var SoundThread: TSoundThread; procedure TSoundThread.Execute; begin PlaySound('warning_sound', HInstance, SND_SYNC or SND_RESOURCE); Synchronize(OnStopPlay); end; procedure TSoundThrea ...

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

доброе время суток может кто подскажет, есть ли функция определения наличия блокировки системы (win 7/8/8.1)? пользуюсь нижеприведённым кодом. он работает, но чувствую это не самый удачный вариант

code:

function IsLockWorkstation: Boolean;
var
  Desktop: Cardinal;
begin
  Desktop := OpenDesktop('Default', 0, False, DESKTOP_SWITCHDESKTOP);
  Result := not SwitchDesktop(Desktop);
  CloseDesktop(Desktop);
end;

...

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