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

Hello everybody.

D6, WXP.

Хотел сделать subj, написал пару строк, но при попытке подключиться
к драйверу в указанном меcте приложение виснет намертво, помогает только
перезагрузка.

capGetDriverDescription(0, [@] Name[0],255, [@] Ver[0],255);

// драйвер есть, какой-то 'Windows Capture WDM driver'

Win:=capCreateCaptureWindow(
WindowName,
WS_CHILD or WS_CLIPSIBLINGS or WS_VISIBLE,
100,200,320,240,
Form1.Handle,
0);

// окно создается


Showmessage('Hе могу подсоединиться к драйверу')

может у кого есть готовый пример? Буду благодарен.


Ura

* Origin: It`s a good ? (2:451/16.66)


Здравствуй, All!

Подскажите, кто-нибудь, функцию или пpоцедуpу по пеpегону из десятиpичной в сабж систему счисления.

До скорого. Pavel

* Origin: Воронеж, Чернозёмье, Россия (2:5025/38.54)








inttohex

* Origin: MTU-Intel ISP (2:5020/400)


Привет Pavel!






Вот ... Из паскалевской проги выдрал ( давно это было :) ... )

function IntToHex(val: longint): string;
{ преобразование десятичное в 16-ричное для вывода адреса }
const HexChars: array[0..15] of char='0123456789ABCDEF';
var res: string;
i: integer;
begin
res:='';

res:=HexChars[val and $F]+res;
val:=val shr 4;
end;
IntToHex:='$'+res;
end;



Удачи, Andrey.

* Origin: SINVO Host | admin#cz.org.ua | ICQ 423642 | (2:464/601.1)




Hello Pavel Katelin, you wrote:




IntToHex()

--
Всего хорошего, Слава.
deadbeef.narod.ru









Hello, Pavel Katelin!
You wrote to All on Fri, 23 Sep 2005 18:52:00 +0400:





IntToHex(StrToInt(S), N)

--
С уважением,
Анатолий Подгорецкий

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






сообщил/сообщила в новостях следующее:
news:1127348230 [@] p5.f66.n5054.z2.ftn...





Если знаешь путь к нему - то, скажем, вот так:

R = TRegistry.Create;
if R.OpenKey ('Software\Alexey\My Cool Program\Logon', False) then...

Если путь не знаешь - придется именно искать. Hапример рекурсивно, как файл
ищут на диске - от корневого HKEY и до самых последних веточек. Очень не
советую делать никаких автоматизированных правок реестра на основе этого
подхода - инфа часто дублируется, а с реестром лучше не шутить.



GetKeyList, GetValueList. Читай хелп по TRegistry.

--
SY, Vladimir V. Polyakov


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


Пpивет, Pavel!

Когда-то давным давно, а именно 23 Сен 2005 18:52, пpолетало письмо от Pavel
Katelin к All.




Вот чисто мат. пyть пеpевода:

function Int2Hex(a:integer):string;
const
Syms:string='0123456789ABCDEF';
var
i,m:integer;
s1,s2:string;
begin
m:=a;
s1:='';
s2:='';

s1:=s1+syms[m mod 16+1];
m:=m div 16;
end;
s2[0]:=chr(length(s1));
for i:=1 to length(s1) do
s2[length(s1)+1-i]:=s1[i];
Int2Hex:=s2;
end;

С Бестовыми Rегаpдзами, Alexei Ignatov.
* Origin: Hе плюй в колодец - вылетит не поймаешь! (2:5034/13.30)


Hi, Alexei!

25 сентября 2005 12:34 Alexei Ignatov (2:5034/13.30) писал(а) к Pavel Katelin
про Re: шестнадцатиpичная:


























Можно проще.

var bc,b : byte;

for bc:=0 to 3 do
begin
b:=Byte(Pointer(Cardinal( [@] a)+bc)^);
Result:=Syms[((b shr 4) and $0F)+1]+Syms[(b and $0F)+1]+Result;
end;

Gennadiy
* Origin: WatchCat (1:135/3)





Добрый вечер!
Подскажите пожалуйста!
Как отправлять/получать почту из Delphi? В хелпе почитал - не нашел :(

Заранее благодарен!




* Origin: SBOR node, Sosnovy Bor, Russia (2:5020/400)