ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
23.02.2010, 18:33
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
Сообщение от TrueBit
Как узнать из какой папки открыта программа?
в Делфи я делаю это обычно так:
Код:
extractfilepath(Application.Exename);
|
|
|
24.02.2010, 15:55
|
|
Участник форума
Регистрация: 09.05.2009
Сообщений: 186
Провел на форуме:
1682814
Репутация:
102
|
|
нужно чтобы программка конектилась к базе данных на сервере, могла брать\записывать значения оттуда\туда
как проще всего это реализовать на делфи? натолкните на верный путь  |
|
|
|
24.02.2010, 19:22
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 331
Провел на форуме:
1724067
Репутация:
806
|
|
Волей судьбы вернуло меня с Питоновского поля программирования к Делфи )
Подскажите пожалуйста рабочую компоненту для создания сокс-сервера.
Перепробовал кучу из них, но что-то то одна работает с огронмыми утечками, то с глюками какими-то. Так и не смог найти ничего полезно(.
|
|
|
|
25.02.2010, 06:41
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
1n0y я лично предпочитаю использовать ADO, когда по быстрому надо )). если не нагуглишь или вопросы будут стучи в аську помогу.
|
|
|
|
25.02.2010, 07:07
|
|
Участник форума
Регистрация: 09.05.2009
Сообщений: 186
Провел на форуме:
1682814
Репутация:
102
|
|
Сообщение от RumShun
1n0y я лично предпочитаю использовать ADO, когда по быстрому надо )). если не нагуглишь или вопросы будут стучи в аську помогу.
погуглил, пробежался глазами и понял, что не совсем верно я задал вопрос
сервер - хостинг с мускулом. нужно брать\писать значения туда
гуглил целый день, но толком нефига не понял.. расскажите плз основные команды чтения\записи данных в мускул. буду рад любым наглядным примерам
|
|
|
|
25.02.2010, 12:47
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
1n0y я вот что нагуглил
пример: _http://svdpro.info/page.php?id=18
компоненты: _http://delphi.about.com/od/mysql/tp/aatpmysql.htm
я так понял после прочитки лучше всего из бесплатных Zeos Library
и тебе знание sql скорее всего понадобиться
|
|
|
|
25.02.2010, 12:50
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
У меня такой вопрос возник, в делфи необходимо написать прогу чтоб из одного вордовского документа создать из каждой страницы отдельный новый документ, в результате поиска впринципе понял что к чему, но вот как скопировать именно страницу что то не дотумкаю ((
|
|
|
|
27.02.2010, 00:19
|
|
Участник форума
Регистрация: 15.07.2009
Сообщений: 200
Провел на форуме:
147171
Репутация:
2
|
|
Как прога на делфи может узнать, что комп вышел из режима гибернации или сна???
|
|
|
|
27.02.2010, 11:52
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме:
496930
Репутация:
60
|
|
Этот код поможет узнать находится ли компьютер в процессе гибернации.
function HibernateAllowed: Boolean;
type
TIsPwrHibernateAllowed = function: Boolean;
stdcall;
var
hPowrprof: HMODULE;
IsPwrHibernateAllowed: TIsPwrHibernateAllowed;
begin
Result := False;
if IsNT4Or95 then Exit;
hPowrprof := LoadLibrary('powrprof.dll');
if hPowrprof <> 0 then
begin
try
@IsPwrHibernateAllowed := GetProcAddress(hPowrprof, 'IsPwrHibernateAllowed');
if @IsPwrHibernateAllowed <> nil then
begin
Result := IsPwrHibernateAllowed;
end;
finally
FreeLibrary(hPowrprof);
end;
end;
end;
Этот код поможет узнать находится ли компьютер в процессе сна.
function SuspendAllowed: Boolean;
type
TIsPwrSuspendAllowed = function: Boolean;
stdcall;
var
hPowrprof: HMODULE;
IsPwrSuspendAllowed: TIsPwrSuspendAllowed;
begin
Result := False;
hPowrprof := LoadLibrary('powrprof.dll');
if hPowrprof <> 0 then
begin
try
@IsPwrSuspendAllowed := GetProcAddress(hPowrprof, 'IsPwrSuspendAllowed');
if @IsPwrSuspendAllowed <> nil then
begin
Result := IsPwrSuspendAllowed;
end;
finally
FreeLibrary(hPowrprof);
end;
end;
end;
|
|
|
|
27.02.2010, 13:27
|
|
Участник форума
Регистрация: 15.07.2009
Сообщений: 200
Провел на форуме:
147171
Репутация:
2
|
|
Спасибо за код. И такой вопрос: эта функция вернет истину когда сам комп спит??? Проц то в это время не работает...
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
