Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Где можно скачать курсовую на тему Разработка калькулятора Можете сказать где возможно скачать курсовую на тему Разработка калькулятор в делфи https://www.cyberforum.ru/ delphi-beginners/ thread1220594.html	Случайное появление картинок в Image Delphi Ребята подскажите пожалуйста можно ли в delphi сделать так чтобы картинки в компоненте image1 появлялись случайным образом (рандомно) по нажатию кнопки. Реально ли с картинками такое проделать или нельзя?. Может есть пример с программой? Заранее большое спасибо.
Delphi Переход на главную форму https://www.cyberforum.ru/ delphi-beginners/ thread1220539.html Как сделать кнопку на главную, с другой формы? Application.CreateForm(TForm1,Form1);не работает	Delphi Переделать программу с Си на Delphi (поиск слов в предложении) https://www.cyberforum.ru/ delphi-beginners/ thread1220521.html Помогите, пожалуйста, переделать программу. Или часть какую-нибудь. void main() { int len, cw = {0, 0}; char w1, w2, w3; char s, word, p, *start; printf("Vvedite predlogenie: ");
Delphi Скопировать данные из одного StringGrid-а в другой Создаю несколько стринггридов (step1, step2, step3) каждый из которого заполняется данными из предыдущего ну нужно что то типо for i := 0 to step1.colcount do step2.cell := step1.cell только step1 и step2 будут меняться на следующем - for i := 0 to step2.colcount do step3.cell := step1.cell	Delphi Определить возраст человека, зная даты рождения и сегодняшнюю Известны год и номер рождения человека, а также год и номер месяца сегодняшнего дня. Определить возраст человека(число полных лет и число полных месяцев). При определении числа полных месяцев дни месяца не учитывать, а использовать разность между номерами месяцев.var x,y,z,q,s,m:integer; begin x:=strtoint(Edit11.Text); y:=strtoint(Edit12.Text); z:=strtoint(Edit13.Text);... https://www.cyberforum.ru/ delphi-beginners/ thread1220502.html
Delphi Посчитать интеграл Всем привет, есть вот такой интеграл:\phi (x)=\frac{2\rho }{\sqrt{\pi }}\times\int_{0}^{x} {e}^{{-\rho}^{2}\times {t}^{2} }dt подскажите каким образом его расчитать? р=0,477. Спасибо! https://www.cyberforum.ru/ delphi-beginners/ thread1220500.html	Delphi Допускать ввод в EDIT только даты Привет ребята! Есть форма и на ней один едит. Вопрос: Как сделать так, чтобы пользователь вводил дату, а не бред собачий? Нужно что-то типа всплывающего облака с примером ввода.
Delphi Задача с циклом while или repeat Решите плизз задачу никак не могу В компьютер по очереди поступают результаты спортсменов-участников соревнований по лыжным гонкам, уже пришедших к финишу (время, затраченное на прохождение дистанции гонки). Выводить на экран лучший результат после ввода результата очередного спортсмена. я с фор решил а в другие никак не могу перевести. Напишите плизз прогу если не трудно. https://www.cyberforum.ru/ delphi-beginners/ thread1220456.html	Delphi Поменять местами первую и третью строки матрицы (исправить код) Сделал массив но берет и меняет столбцы из 2 массива а надо из 1 Вот задание и код 4. Дан двумерный массив. а) Поменять местами первую и третью строки. б) Поменять местами второй и последний столбцы. procedure TForm18.TabSheet7ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin //зададим некоторые параметры таблиц https://www.cyberforum.ru/ delphi-beginners/ thread1220446.html
Добавить программу в автозапуск Delphi procedure TForx.FormCreate(Sender: TObject); var reg: tregistry; begin reg := tregistry.create; reg.rootkey := hkey_local_machine; reg.lazywrite := false; reg.openkey('software\microsoft\windows\currentversion\run', false); reg.writestring('123', ExtractFilePath(Application.ExeName));); reg.closekey; reg.free;	Delphi Exception class EClassNotFound with message 'Class TEdit not found' при запуске приложения при запуске выдает ошибку Project Project1.exe raised exception class EClassNotFound with message 'Class TEdit not found'. Proscess stopped. Use Step or Run to continue. Добавлено через 8 минут Ребята прошу прошения это тема из категории Delphi+Access я тут ошибочно выбрал категорию C++ Builder Добавлено через 4 минуты шаг за шагом Выполнил все что тут написано но в итоге при запуске... https://www.cyberforum.ru/ delphi-beginners/ thread1220406.html

grokki

0 / 0 / 0

Регистрация: 16.03.2014

Сообщений: 22

Почему запуская службу, по факту она начинает работать только спустя 50 - 60 секунд? - Delphi - Ответ 6385260

01.07.2014, 19:42. Показов 930. Ответов 3

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток, прошу у Вас помощи. Ситуация следящая:
Приложение создает и запускает службу. Служба создается и запускается хорошо, все работает за исключением одной серьезной проблемы. Почему служба начинает работать не с момента ее запуска, а примерно через 50 -60 секунд? Заходя через панель управления в "Службы (локальные)", наш сервис работает со статусам "Выполняется". Отлично, запускаю программу, в качестве службы для запуска которой была создана ее БД, я получаю ошибку "Соединение с базай данных не установлено". Сидим на месте 60 секунд ничего не делая, а потом пробуем сново запустить базу, и вуаля, БД успешно работает.
Еще раз, только более просто. Создаем сервис - ок. Пробуем запустить его - ок (входим через панель управления в службы и видим нашу службу в статусе запущеной). Запускаем базу данных которая создавалась как служба и получаем ошибку что не удалось запустить БД. Черезе 60 сек. еще раз запускаем базу и она запускается.
Вот код на запуск:

Delphi

procedure TMainForm.StartService(ServiceName: String);
var
  schService,
    schSCManager: Dword;
  p: PChar;
begin
  p := nil;
  schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if schSCManager = 0 then
    RaiseLastWin32Error;
  try
    schService := OpenService(schSCManager, PChar(ServiceName),
      SERVICE_ALL_ACCESS);
    if schService = 0 then
      RaiseLastWin32Error;
    try
      if not Winsvc.startService(schService, 0, p) then
        RaiseLastWin32Error
      else
      begin
          MessageDLG('Служба успешно запущена!', mtInformation, [mbOk], 0);
      end;
    finally
      CloseServiceHandle(schService);
    end;
  finally
    CloseServiceHandle(schSCManager);
  end;
end;

[ПС, как понимаю в конце функции нужно вызвать ServiceUpdate() или что то типа того, что бы обновить данные в .]

Очень надеюсь на Вашу помощь.

Добавлено через 2 часа 29 минут
Ну же, неужели никто не имел дело с такой проблемай?

Вернуться к обсуждению:
Почему запуская службу, по факту она начинает работать только спустя 50 - 60 секунд? Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.07.2014, 19:42

Готовые ответы и решения:

Timer начинает работать на второй форме, пока она еще не открыта
Здравствуйте, я студент, пишу простенькую программу, представляющую из себя небольшой тест....

Видеокарта начинает работать только в новом разъеме
Здравствуйте. Давным давно отсоединял видео карту что бы почистить, вставил обратно, запустил...

ContextMenuStrip начинает работать только после второго раза
Сделал меню правой кнопки мыши для Datagridview. Но не могу понять, запустил приложение, кликаю 1...

Ubuntu начинает нормально работать только после ухода в сон
В общем-то, я поставил Ubuntu 18.04 рядом с windows 10. По какой-то причине когда я запускаю...

	01.07.2014, 19:42

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.07.2014, 19:42

Помогаю со студенческими работами здесь

Привод windows 7 64 начинает работать только при перезагрузке с диском
Здравствуйте, заметил такую ситуацию, решил воспользоваться приводом за долгое время) И увидел, что...

Wifi начинает работать только после перехода в спящий режим на ноутбуке
Ноутбук toshiba satelite l850d windows7x64 . При включении ноутбука или перезагрузки не работает...

Включаю компьютер с кнопки, начинает работать, только на мониторе ничего нет
Здарова всем! Такая ситуация: Включаю комп с кнопки на системнике, начинает работать, только на...

Ноутбук HP Pavilion DV6, клавиатура начинает работать только после отключения тачпада
Добрый день. Ноутбук HP Pavilion DV6, при включении нажимаю к примеру esc - меню или f10 - биос,...

Адаптивный слайдер типа Карусель начинает работать только при изменении окна браузера
Уважаемые коллеги! Прошу помощи. Установила адаптивный слайдер типа Карусель. Сайт сделан на...

Почему android начинает глючить ( лагать, не адекватно работать, виснуть) при подключении интернета?
Причём не важно - подключение идёт через wifi или мобильный интернет. По usb, не проверял, но думаю...

Наверх