GoogleMap,GMLIB,HTML Здравствуйте жители королевства. Я написал программу на Делфи, которая связывается с SQL сервером получает координаты точек через которые двигался автомобиль и отображает это все на карте плюс отображение дополнительной информации в виде таблиц и графиков. Т.е. сделано то что задумано. Вопрос в том, что надо сделать, чтобы моя программа была в виде сайта, т.е. клиент заходит на сайт и видит мою программу и с ней работает, так вот собственно вопрос мне мою программу ...

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

RichEdit: Загрузка из rtf-файла только текста Добрый день. Никак не могу разобраться( Хочу из rtf-файла взять толь ко данные, без тегов. Текст берётся вместе с тегами. Причём отображается не в красивом, отформатированном виде, а в виде : {\rtf1\adeflang1025\ansi\ansicpg1251\uc1\adeff1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1049\deflangfe1049\themelang1049\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times ...

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

Добрый день. Замучил меня этот Эксель 2010 (русский)... Исходные данные (про Эксель уже сказал) - Д7, Windows 7 Задача - из ворда взять данные из таблицы. Алгоритм... 1. Выделяем строки таблицы в ворде, копируем. 2. В программе [Code]ExcellApp := InitExcel; // моя функция try ExcellApp.Cells.Select; ExcellApp.Selection.NumberFormat := '@'; ExcellApp.ActiveSheet.Cells[1,1].Select; ExcellApp.ActiveSheet.Paste;//Special(xlPasteValues);//,EmptyParam,EmptyP ...

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

Здравствуйте! Я использую стандартный алгоритм инициализации TVideoCaptureDevice. [Code]const M_LAUNCH_CAMERA = WM_APP + 450; type TCamSF1 = class(TForm) ... protected procedure LaunchCamera(var Message: TMessage); message M_LAUNCH_CAMERA; ... end; ... procedure TCamSF1.LaunchCamera(var Message: TMessage); begin if VideoCamera = nil then begin VideoCamera := TCaptureDeviceManager.Current.DefaultVideoCaptureDevice; if VideoCamera <> nil then ...

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

Всем привет. Уже который день ищу то как можно передавить файлы между клиентом и сервером по средствам COM может кто подсказать как это можно сделать? ...

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

доброе время суток, коллеги. есть программа, предназначенная для установки скриптов обновлений. перед установкой скрипта, делается резервное копирование базы данных (sql server 2008 r2 express) в строке соединения с сервером указан период тайм-аута 600 сек но. при выполнении запроса "backup database "+ BaseName+" to disk='" через 30 секунд выходит сообщение

code:
Истекло время ожидания. Время ожидания истекло до завершения операции...

что и где нужно исправить на сервере, что ...

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

Всем привет! Написал клиент-серверное приложение используя TIdServerIOHandlerSSLOpenSSL (INDY). Сгенерировал ключи, сертификаты - все работает. Вопрос - как мне идентифицировать клиента (а их предполагается не один), который удачно подключился по ssl со своим личным сертификатом? Можно ли как-то в событии

code:
 procedure IdHTTPServer1CommandGet(AContext: TIdContext;ARequestInfo:TIdHTTPRequestInfo;AResponseInfo: TIdHTTPResponseInfo);

получить информацию о сертификате? ...

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

Всем доброе время суток. Я новичок в Королевстве и пишу свой первый вопрос. Пишу программу на Дельфи ХЕ (VCL под Windows). Она должна работать под разными операционными системами (WinXP, Win7, Win8 (32,64 бита)) При запуске программа, перед тем как начнет выполнять свою основную функцию, должна запретить переход/запуск любой другой программы который пользователь может запустить. С этой целью программа определяет все запущенные программы (таб Applications TaskManager-а) и минимизирует их окна ...

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

Доброго времени суток! Нужно преобразовать UInt64 в строку. Может просто не там ищу, но максимум что получаю при преобразовании

code:
 $FFFFFFFFFFFFFFFF 

это -1, а мне нужно чтобы преобразовывала без знака. Есть простые пути решения? ...

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

Всем доброго время суток. Хочу соединить две фигуры линией в MS Word'е. На msdn вот такой %url[пример.]https://msdn.microsoft.com/en-us/library/office/aa211622(v=office.11).aspx Если это ручками делать, то соединять фигуры можно только на подложки, поэтому делаю так: [Code] procedure TForm1.Button1Click(Sender: TObject); var app,doc,rng: variant; cn, f1, f2, cc: variant; begin app := CreateOleObject('Word.Application'); doc := app.Documents.Add; rng := app.sele ...

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

Ошибка подключения ADOConnection к MySQL После нажатия кнопки - Build (Use Connection String) у ADOConnection Ошибка - Класс не зарегистрирован. Такая же ошибка, при попытке изменения свойства Provider у ADOConnection. (Delphi 7.0 Enterprise, MySQLServer 5.1 MDAC version = 2.8 Windows XP SP3) Как зарегить провайдара для MySQL? и какой версии должен быть MDaC? ...

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

Привет всем. Редко задаю вопросы, как-то гугл часто помогает, но тут... Имею вот такую структуру... [Code] type PRecordData = ^TRecordData; TRecordData = packed record ID: integer; Name: string; end; ... var tmpData: PRecordData; ... begin GetMem(tmpData,sizeof(TRecordData)); ZeroMemory(tmpData,sizeof(TRecordData)); tmpData.ID := ...; tmpData.Name := '......; .... // больше не нужна эта запись tmpData.Name ...

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

у меня проблема с созданием отчёта в Word-е. WinXP, OfficeXP, Delphi7. сделал стандартный код: [Code] procedure TForm1.Button1Click(Sender: TObject); var zapr, FileName: String; begin // задаём путь к шаблону 'D:\PROBA\Akt_pnruu_1.dot' zapr := ExtractFilePath(ExpandFileName('Project1.exe')) + 'Akt_pnruu_1.dot'; WordApplication1.Connect; WordApplication1.Documents.Open(zapr, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyP ...

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

Здравствуйте уважаемые рыцари! Есть вопрос касательно CallBack функций из Dll в Main. DLL: [Code] //Объявление CallBack функции: Type TProgressCallBack = procedure(aValue: Integer); stdcall; //Функция: function ProcessStream(aInputStream: TStream; out aOutputStream: TStream; aSignature: TBinar; const ReturnCallBack: Pointer = nil): Integer; stdcall; begin //Выполняем работу //... //Собственно само проблемное место if assigned(CallBackProgress) then begin ...

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

Уважаемые рыцари! Помогите, кто сможет. Давно рабочая программа с выводом на чековые принтеры информации с помощью компонента TPrinter. По случаю взял термопринтер чековый SEWOO LK-T210 (USB). В винде определяется, инсталлируется - печатает пробную страницу. Но при печати через программу - выдает ошибку на команде TPrinter.BeginDoc ..... Подставляю другой принтер (к примеру Posiflex) - снова печатает без проблем. Может надо что-то изменить в настройках принтера или в параметрах. Подскажите ...

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

Доброго времени суток, господа! Посоветуйте, пожалуйста, как лучше поработать с файлом. Задача такая: приложение должно в течение своей работы (сеанса) создать файл, регулярно дописывать в конец структуру фиксированного размера (несколько десятков килобайт), в памяти весь этот архив постоянно не нужен, просто как лог. Но другой поток должен иногда брать данные из этого файла за некоторый период и отдавать по запросу. Сеанс может быть долгим, теоретически файл может быть большим. Конечно, буде ...

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

Всем доброго времени суток! Может кто-нибудь дать пример кода получения PID и VID съемного диска по его букве, ну к примеру параметром передаем в функцию

code:
'E:'

, и в случае если эта буква является буквой съемного USB-накопителя, то вернуть PID и VID. Только пример не с помощью WMI и чтения из реестра, а как нибудь более правильно что ли, с помощью SetupAPI или DeviceIOControl. Толковых примеров в сети не нашел. С помощью DeviceIOControl ни у кого, я так понял, не получилось. ...

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

Уважаемые программисты! Есть MDI-форма с дочерним MDIChild-окном. На главной форме есть ScrollBox, а на дочерней форме - Grid, оба с вертикальной прокруткой. Чтобы ScrollBox прокручивался колесом мышки добавил процедуру WMMOUSEWHEEL(var Msg: TMessage); message WM_MOUSEWHEEL; Прокрутка колесом в ScrollBox заработала, НО одновременно с ним прокручивается и Grid на дочерней форме. Возможно могло бы помочь перемещение фокуса с дочерней на главную форму во время прокрутки, но сделать это тоже ...

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

Добрый день. Компонент TAdsTable подключается к фоксовой таблице (dbf), имеющей поле, описанное как Numeric(4). Так как Delphi недолюбливает этот тип, то он его преобразует в один из своих числовых - либо TFloatField, либо TSmallIntField. Ну если в Numeric(N,M) M > 0, туда ему и дорога, но почему же при M = 0 сразу в TSmallIntField (максимальная длина 4 символа), а не в TIntegerField (максимальная длина 9 символов)? Называется, экономим два байта для будущих поколений? Причем дизайнер по ...

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

Хотел сделать взаимные переходы между разными конфигураторами в системе телеметрии и уперся в казалось бы простой вопрос. Ситуация: 1. Из основной формы , простой кнопкой вызывается Form1.ShowModal; 2. В Form1 простой кнопкой вызывается Form2.ShowModal; Но! перед запуском Form2 или в самом начале Form2.FormActivate Form1 должна быть закрыта. И непросто как-то убита, а нормально с выполнением процедуры Form1.Close; (т.к. есть общие ресурсы) Проблема в том что Form1.Close; не уда ...

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