Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi


Re: Service Application

From: "Alexander B. Bokovikov"

On Mon, 01 Aug 2005 18:32:38 +0400, Alexey Dunin
wrote:

> Хоpошо, а как пpоще создать пpиложение, чтобы оно постоянно висело в пpоцессах
>и ожидало команд от клиента с дpугого компьютеpа?

Если тебя устроит, чтобы приложение работало только после входа в
систему (логина пользователя) то сервис делать не обязательно. Просто
пиши обычный сервер на сокетах и все. Пример есть в демах. А если
надо, чтобы оно начинало работать сразу после запуска системы и не
зависело от наличия логина, то сервис - единственное решение.

Александр Боковиков
E-mail: bokovikov(a)mail.ru (дом.) abokovikov(a)apress.ru (раб.)
www.apress.ru/pages/bokovikov/delphi
* Origin: Demos online service (2:5020/400)


*** Выборы: Выдвижение кандидатов

Hello everybody!

Cроки проведения выборов в конференции RU.DELPHI:

*18.07.2005 - 31.07.2005 - выдвижение кандидатов;
01.08.2005 - 14.08.2005 - обсуждение кандидатов;
15.08.2005 - 28.08.2005 - голосование;
29.08.2005 - предварительные итоги.


Зарегистрированные кандидаты
----------------------------

#1. Andrew O. Shadoura 2:450/143.25


# - кандидат опубликовал свой вариант правил.



Returning Officer

* Origin: --> GoldED Origin <-- PGP KeyID 7249E0B9 --> (2:5030/1957.10)





*** Выборы: Обсуждение кандидатов

Hello everybody!

Cроки проведения выборов в конференции RU.DELPHI:

18.07.2005 - 31.07.2005 - выдвижение кандидатов;
*01.08.2005 - 14.08.2005 - обсуждение кандидатов;
15.08.2005 - 28.08.2005 - голосование;
29.08.2005 - предварительные итоги.


Зарегистрированные кандидаты
----------------------------

#1. Andrew O. Shadoura 2:450/143.25


# - кандидат опубликовал свой вариант правил.



Returning Officer

* Origin: --> GoldED Origin <-- PGP KeyID 7249E0B9 --> (2:5030/1957.10)





Service Application

Пpиветствую тебя, pейнджеp Andrey!
AR> А если не гpубо, то Application.ShowMainForm := False в файле пpоекта :)

Вот это мне подходит, спасибо!

ЗЫ: я знал, что фоpму как-то можно совсем не показывать, но не знал как. :)

Пишите письма: helex [@] infocentr.ru!!!
* Origin: Книги не выдаются, ибо пpиобpетены таким же методом. (2:5012/2.447)


йЮЙ СДЮКХРЭ TWebBrowser?

Hi, All

Как удалить ActiveX компонент TWebBrowser, так чтобы он потерял текущую
сессию (т.е. чтобы это было так же, как происходит при закрытии IE).
WebBrowser1.Free; явно не достаточно, что ему еще нужно?

Заранее спасибо...

* Origin: Sample (1:135/3.29)


Re: Service Application

From: Andrey Belyakov

Alexey Dunin wrote:

>Пpиветствую тебя, pейнджеp Andrew!
>AVF> Сеpвис спеpва pегистpиpуется, запуском экзешника с ключом /install, а
>AVF> запускается потом из панели упpавления сеpвисами.
>
> Хоpошо, а как пpоще создать пpиложение, чтобы оно постоянно висело в пpоцессах
>и ожидало команд от клиента с дpугого компьютеpа?
>
>
Может проще оставить его лежать на диске и предоставить системе решать
проблемы доступа и запуска этого приложения? :) Заодно получить в
нагрузку и организованный транспортный уровень?
см. Мидас.

А.
* Origin: Demos online service (2:5020/400)


Telnet

Привет, *Andrew* !

По теме Telnet я скажу:


AS> RTM RFC ;) По Telnet вообще-то, файлы не передаются, если клиент этого
AS> делать не умеет (а стандартный telnet этого делать не умеет, разве что
AS> HyperTrm). Если умеет, можешь использовать X/Y/Z-Modem, если нет - сам
AS> придумывай. Можешь BinkP (если у клиента он поднят на чем-нибудь), можешь
AS> FTP (неудобно, из окошка терминала ссылку копировать в ftp-клиент -
AS> увольте).

А номерок RFC не подскажешь ?

AS> ESC[2J; - очистка экрана. Т.е. RTM ANSI terminal
AS> Кроме того, на клиентах должна быть врублена эмуляция терминала ANSI
Тут всё понято. Спасибо.

Всего тебе, Andrew.

* Origin: Пока я только осваиваю просторы Фидо... (2:5071/101.101)


Почистить Tray от иконок ( я сделал наконецто)

#region *Hi* _All_
Мож кому нужно:

procedure TRAYREDRAW;
var TH:THandle;
L,i:integer;
R:TRect;
p:TPoint;
begin
// Для тpея котоpый pасположен внизу
// 1) Hайти окно тpея
// 2) Получить кооpдинаты тpея
// 3) С шагом меньше чем 16 пикселей двинуть мышку по гоpизонтали

GetCursorPos(p);
TH:= findWindow('Shell_TrayWnd',nil);
if TH<>0 then
begin
GetWindowRect(TH,R);
for i:=R.Left to R.Right do
begin
SetCursorPos(i,R.Top+15);
end;
SetCursorPos(p.X,p.Y); // Hа место
end;

end;

#endregion
* Origin: Бей вpага - дpузья найдутся (2:5083/39.47)


Telnet

Приветствую, Miha!

Однажды, 21.07.05 в 22:25:21, ты писал Andrew O Shadoura
по поводу "Telnet".

AS>> придумывай. Можешь BinkP (если у клиента он поднят на чем-нибудь),
AS>> можешь FTP (неудобно, из окошка терминала ссылку копировать в ftp-клиент
AS>> - увольте).

MY> А номерок RFC не подскажешь ?

Google RFC-index

-- С уважением, Andrew O. Shadoura (also 2:450/143.25)

* Origin: FDD Software [@] Moscow (2:5020/1665.26)


Регулярные выражения

From: "Vasily V.Ushakov"

Короче, есть совокупность строк вида:

'AAA' | { 'BBB'<целое число>[<произвольная строка>] }

Примеры:

AAA
BBB1
AAA
BBB2
BBB3
BBB4321CDE
BBB4567FGH

Hадо найти все строки вида

'BBB'<целое число>

Регулярными выражениями решается "на ура".
В 7-ке функции для этого есть?
--
С уважением,
Василий Ушаков
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.ru (2:5020/400)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты