Всем привет! Дело такое: Работаю вахтовым методом на удалённом объекте, сотовой связи нет. Интернет есть. Комп только у начальника в кабинете. Мне нужно проверять почту и своевременно отвечать на поступившие письма. Для этого приходится раз в день просится к компу - что не только меня, но и начальника уже немного напрянает. Поэтому я написал сервис, который сканирует мой емэйл и зажигает на LPT светодиодик, если поступило новое письмо. Сервис работает идеально, но только тогда, когда комп, ко ...

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

Доброго времени суток! Нужно "слушать" общение клиент/сервер и при нужной информации в запросе поймать ответ. Сервер чужой, клиент - online flash, тоже чужой. Для этого, как я понял нужно WinPcap использовать. c WinPcap никогда дела не имел, пытаюсь разобраться Поставил magsys.co.uk/delphi/magmonsock.asp ловлю я нужные пакеты через WinPcap, через то самое единственное событие в TMonitorPCap - OnPacketEvent но нигде не могу найти SeqNr пакета и их количество, принадлежащее одному ответу, чт ...

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

Здравствуйте! Помогите пожалуйста с доработкой кода. Есть MDI-приложение, в каждом его окне компонент TChart, помимо всего прочего на кнопки клавиатуры заведены масштабирование и прокрутка для активного окна (см.код). Сейчас понадобилось сделать так, чтобы при прокрутке в активном окне, в остальных окнах тоже шла прокрутка. Как это осуществить? [Code]procedure TfChild.ScrollAxis(Axis: TChartAxis; const Percent: Double); var Amount: Double; begin with Axis do begin Amount := ...

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

Всем доброго времени суток! Вопрос на стыке Delphi и C++. На C++ не писал давно и не писал чего-то сложного. Имеется рабочая библиотека, написанная в Delphi, которая реализует некий COM-интерфейс IA. Этот интерфейс агрегирует другой интерфейс IB. В программа на Delphi все работает четко и красиво, внутренний интерфейс доступен как IA.IB. Но я совсем запутался, как получить интерфейс IB в коде на С++ (gcc). Делфийская DLL экспортирует функцию для получения главного интерфейса и всё работ ...

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

Доброго времени суток! Возникла следующая проблеммка: Имеем Frame, который через свойство получает компонент извне. Каким образом этот Frame может корректно реагировать на события данного компонента? Компонент может быть любой, Фреймов на форме несколько, компонент получают один и тот же. Сам компонент про Frame не знает. При перекрытии его обработчика из Frame, теряем возможность использовать это событие на форме. Как в Delphi корректно подойти к решению такого вопроса? ...

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

Тема: Проблема с распаковкой архива .bz2 при помощи 7zip Нужно программно распаковать архив BZ2. Для этого использую архиватор 7-zip (sevenzip.pas и 7z.dll) со следующим кодом:

... uses SevenZip; ... begin with CreateInArchive(CLSID_CFormatBZ2) do begin OpenFile('B:\TF2 md\Archiv1\example.csv.bz2'); ExtractTo('B:\TF2 md\Archiv1'); end; end;

Проблема: на строчке ExtractTo('B:\TF2 md\Archiv1') выдает ошибку "Cannot create file "'B:\TF2 md\A ...

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

Камрады, прошу помощи. В своей работе периодически использую небольшую расчетную программу EXE, запускаемую в консоли в режиме командной строки. Работает эта программа в двух вариантах : 1. В командной строке указываем значения нескольких параметров для расчета, а в конце после них - имя файла данных, для которых и должен быть сделан расчет. Файл данных - обычный текстовый файл с единственной строкой, в которой записаны несколько чисел через пробелы. Программа вводит этот файл и выдает ...

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

Добрый день. Мне нужно программно отключить сглаживание неровностей экранных шрифтов. Изменить значение в реестре не проблема, а как сделать, чтобы это изменение было принято без перезагрузки компьютера? вариант "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True" - выполняется, но сглаживание шрифтов остается. Может, кто-то сталкивался с такой проблемой? ...

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

Добрый день. Мне нужно программно отключить сглаживание неровностей экранных шрифтов. Изменить значение в реестре не проблема, а как сделать, чтобы это изменение было принято без перезагрузки компьютера? вариант "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True" - выполняется, но сглаживание шрифтов остается. Может, кто-то сталкивался с такой проблемой? ...

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

Добрый день. Мне нужно программно отключить сглаживание неровностей экранных шрифтов. Изменить значение в реестре не проблема, а как сделать, чтобы это изменение было принято без перезагрузки компьютера? вариант "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True" - выполняется, но сглаживание шрифтов остается. Может, кто-то сталкивался с такой проблемой? ...

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

Глюк обнаружен на текущей версии Lazarus. При проверке числа простым кодом:

code:
Val(Stroka,Result,I);
  if I<>0 then
    Result:=-1;

При передаче параметра Stroka='88E6852-123'; программы вылетает по ошибке "Float Point Overflow". Какие предложения по обходу глюка? Я решил проблему, добавив кусок:

code:
For I:=1 to Length(Stroka) do
  if not (Stroka[I] in ['0'..'9','.']) then begin
    Result:=0.0;
    exit;
  end;

Очевидно, это отсекает вышеприведённый вариант, н ...

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

Здравствуйте эксперты. Я динамически создаю объекты типа TPanel, которые размещены на форма вплотную друг к другу, не перекрываясь. Вопрос как узнать какая панель ниже (выше,левее,правее) от текущей. Спасибо за помощь. ...

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

Добрый день. Имеется компьютер с Windows XP SP3 (+все обновления). На компьютере установлена программа, которая написана на Delphi XE4. Программа работает с базой данных Access 2013 (accdb). Для этого на компьютере установлено Access Runtime 2010. База разделенная на две: с формами+запросами (№1) и с таблицами (№2). База №2 лежит на сетевом ресурсе, а база №1 у клиентов в программе. Проблема в очень медленной работе Windows XP с разделенной базой Acceess 2013. Открытие и обновление таблицы заним ...

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

Возникла достаточно нетривиальная задача. Есть простой OpenCir:TOpenDialog, в нём два фильтра, скажем, *.cir и *.mac. Есть необходимость при выборе одного фильтра автоматически перебрасывать пользователя в одну папку, а при выборе другого - в другую папку. Язык реализации, кстати, Lazarus. На первый взгляд, нужно просто подцепиться на событие OnTypeChange и в нём сделать что-то вроде:

code:
case OpenCir.FilterIndex of
  1:OpenCir.InitialDir:=...;
  2:OpenCir.InitialDir:=...;
end;

Но ...

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

Возникла достаточно нетривиальная задача. Есть простой OpenCir:TOpenDialog, в нём два фильтра, скажем, *.cir и *.mac. Есть необходимость при выборе одного фильтра автоматически перебрасывать пользователя в одну папку, а при выборе другого - в другую папку. Язык реализации, кстати, Lazarus. На первый взгляд, нужно просто подцепиться на событие OnTypeChange и в нём сделать что-то вроде:

code:
case OpenCir.FilterIndex of
  1:OpenCir.InitialDir:=...;
  2:OpenCir.InitialDir:=...;
end;

Но ...

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

Доброго вечера уважаемый All! Имеется Delphi 5. Обрабатываем drag&drop из windows на свою форму. Под windows xp все отлично работает, а вот под windows Vista или 8.1. показывает курсорчик при перетаскивании, но месадж не обрабатывается видимо (т.е. процедура не отрабатывается) Код юзаю такой: [Code]... private { Private declarations } procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; .... procedure TEPMDoc_Edit_F.WMDropFiles(var Msg: TWMDropFiles); var Dro ...

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

Здравствуйте! Не ругайте сразу. Помощь очень нужна. Есть компонент TChromium (Delphi 7) именован как wb1, получаю код страницы запросом wb1.Load(url). Подскажите пожалуйста, как в получаемом коде страницы исключить выполнение javascript кода, размещенного в контейнере . Заранее спасибо неравнодушным. ...

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

Здравствуйте. Нужно открыть файл *.csv и разбить текст по столбцам. Разделителем является запятая. В макросах MS Excel это выглядит так: Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _ ...

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

Всем привет. Вот функция, которая возвращает список звуковых карт. Почему когда она вызывается из программы с окном, то все хорошо, а если ее вызвать из программы без окна, из сервиса, например, то она валится? Похоже, что у нее точка возврата изменяется. Честно списал, слабо с олелями знаком. [Code]function SoundCardsInfo: string; const WbemUser = ''; WbemPassword = ''; WbemComputer = 'localhost'; wbemFlagForwardOnly = $00000020; var FS ...

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

Добрый день, Может ли кто мне объяснить, почему в TStream.CopyFrom использует буфер MaxBufSize именно такого размера $F000, а ни какого другого? ...

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