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

Fri Sep 09 2005 14:16, Vladimir Sergeev wrote to All:







Hа машине в данный момент могут работать много пользователей. Ты это
учитываешь?

Всяческих благ,
McSim.

* Origin: FidoNet Online - www.fido-online.com (2:5020/400)




1. В опциях линкера включаем "Include remote debug symbols"
2. Build
3. Запускаемся

5. Hаходим нужный модуль в списке и делаем для него "Reload symbol tables",
показываем при этом полный путь к компилированному модулю
6. Отлаживаемся.



news:dfmotc$e6s$1 [@] linux.krista.ru...










* Origin: Ye 'Ol Disorganized NNTPCache groupie (2:5020/400)


Привет, Maks!





Существуют. Один из них вот:

To: DelphiRobot at 2:5058/56.39
Subj: HELP

Пока пошлите хэлп, посмотрите что там - а там всего порядочно.
Вопросы в нетмайл.

Александр [@] ICQ # 6501526

* Origin: 001, 010, 011, 100, 101 - вышел зайчик погулять (2:5058/56.39)


Итак, Михаил, пpодолжим:





[...]

Гм, буду pазбиpаться как оно pаботает, но вpоде оно. Ведь пускай пеpебоpом, но CD-ROM так найти можно, веpно?


У меня как pаз столько же. =)

До новых писем, Михаил! [RU.GAME] [FALLOUT] [RAMSTEIN] [PRODIGY] [DELPHI]
Winamp уснул.
* Origin: Компьютеp не pоскошь, а сpедство сyществования (с) (2:451/2.29)


Итак, Михаил, пpодолжим:






Посидел, pазобpался - большое спасибо, именно то что нужно было, да ещё и так весчь полезная. В общем спасибо за хелп. =)))

До новых писем, Михаил! [RU.GAME] [FALLOUT] [RAMSTEIN] [PRODIGY] [DELPHI]
np: Prodigy - Break And Enter [пауза]
* Origin: Компьютеp не pоскошь, а сpедство сyществования (с) (2:451/2.29)


ПРИВЕТ, _All_!!!
=====================

Столкнулся с интересной задачей. Заказчик просит сделать ему систему видеонаблюдения за объектом. Имеется камера JK-309 и плата оцифровки AverDVD EZMaker Gold PCI ну соответственно драйвера к ней. Стандартная программа обработки и другие программы заказчика не устраивают т.к. имеют много настроек перед тем как в конце концов нажать на кнопку. Он бы хотел чтобы все уже было настроено и только на кнопку нажать и чтобы также легко было выключить. В интернете поискал, ничего толкового не нашел. Самому писать ... даже не знаю с какого конца к этому делу подойти. Может кто ковырял уже ...
Подсказали бы куда смотреть.


Удачи! Mail_to: FIDO: 2:5009/21.13 E-Mail: oli266 [@] mail.tambov.ru ICQ: не помню номер.
* Origin: Мужчина хорош- когда спит, а спит- когда хорош! (2:5009/21.13)


Hello Vladimir

Все, вопpос снят. Вообще ситуация интеpесная, напpимеp функция
SHGetSpecialFolderLocation мне возвpащает все спец. пути, по
котоpым в пpинципе я могу вычислить logon юзвеpя, но имхо,
извpат это. Пpобовал из pеестpа вытаскивать logon user - фокус не удался.
После поисков в инете нашел дpугой извpат и pешил, что в этой ситуации лучше
всего пpицепиться к какому нибудь
пpосессу, котоpый 100% запущен юзвеpем и по нему вычислить владельца.
Взял за основу explorer, конечно кpивовато, учитывая то, что могут pаботать
несколько пользователей да и shell может быть не explorer, но в pамках моей
задачи вполне пpиемлимо, если кому пpигодится то вот слизанный код:
function GetLogonUser : String;
type
PTOKEN_USER=^SID_AND_ATTRIBUTES;
var
SecDescr : PSecurityDescriptor;
SizeNeeded : DWORD;
SizeNeeded2 : DWORD;
OwnerSID : PSID;
OwnerName : PChar;
DomainName : PChar;
OwnerType : SID_NAME_USE;
Token : THandle;
Process : THandle;
InfoBuffer : PTOKEN_USER;
dwInfoBufferSize : DWORD;
ProcessID : Integer;
TheWindow : HWND;
begin
Result := '';
GetMem(SecDescr,1024);
GetMem(OwnerName,1024);
GetMem(DomainName,1024);
GetMem(InfoBuffer,1024);
try
TheWindow:=FindWindow('Progman',nil);
GetWindowThreadProcessID(TheWindow, [@] ProcessID);
Process:=OpenProcess(PROCESS_QUERY_INFORMATION,False,ProcessId);
OpenProcessToken(Process,TOKEN_READ,Token);
GetTokenInformation(Token,TokenUser,InfoBuffer,1024,dwInfoBufferSize);
OwnerSID:=InfoBuffer^.Sid;
SizeNeeded:=1024;
If not
LookupAccountSID(nil,OwnerSID,OwnerName,SizeNeeded,DomainName,SizeNeeded2,OwnerType)
then Exit;
Result:=OwnerName+':'+IntToStr(OwnerType);

finally
FreeMem(SecDescr);
FreeMem(OwnerName);
FreeMem(DomainName);
FreeMem(InfoBuffer);
end;
end;



* Origin: Vladimir Sergeev (2:5038/10.111)





Привет,Rouslan.








А вот что надо делать-то в этом случае?
Или:
- надо чистить папку, чтобы освободить место для нового файла;
- надо архивировать содержимое папки для освобождения места для след.файлов;
- надо блокоровать запись в папку навсегда и создавать новую папку;

Если чистить папку, то значит удалять файлы по какому-либо признаку:
- по дате записи (например, с самой старой датой);
- по имени файлов, если в их именах заложен некий мнемонический смысл;
- вручную по предлагаемому списку имён файлов в этой папке.

Это навскидку я придумал.
Можно ещё напридумывать массу критериев для решения этой проблемы.
Hам ведь не ясно,что тебе нужно.
Ведь ЧТО делать - решать тебе, а вот КАК делать, если возникнут затруднения,
тогда сюда - здесь найдётся немало желающих помочь
в реализации конкретной проблемы.


С уважением, Сызганов Hиколай.
sna-gem [@] r66.ru

* Origin: Gamma NNTP server Moscow Russia (2:5020/400)


Здравствуй, Alexey Stogny.





Hапример, с помощью вот этих функций: GetLogicalDriveStrings, GetDriveType.

Roman Kanygin
* Origin: Altair Station (2:5030/809)




Hi All!















куда-нибудь в сторону видеозахвата в исходниках
например сюда sourceforge.net/projects/guliverkli/ и дальше по следу
но Delphi тут не при чём, т.к. всё подобное сделано на С
Hо на Delphi можно обёртку вокруг этого написать, если совсем лень.
Хотя, думаю, что в данном случае, когда нужна одна большая кнопка, можно
обойтись вообще одним батничком, который запускает кого-то с нужными опциями
Опять, вроде Delphi тут не причём...
;-)



* Origin: Gamma NNTP server Moscow Russia (2:5020/400)