Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2005-08-16

Re[2]: Это Интересно.

Здравствуйте, Шистеров.

Вы писали 16 августа 2005 г., 14:12:01:

> Здравствуйте, -=BETA,

> Tuesday, August 16, 2005, 4:20:56 PM, вы писали:

BT>> Как сделать procedure Test(AFile: TMyRec; Str1: string);

BT>> Чтобы когда её вызываешь необязательно было заполнять все её параметры
BT>> (AFile, Str1) так как это сделано в процедуре Reset(...); - она имеет
BT>> два параметра но можно заполнить только первый.

BT>> Как сделать такое же?

> Описать 2 процедуры, одну с одним параметром, другую с 2-мя.

Или можно по другому.
Например, надо сделать не обязательным параметр Str1: string.
Тогда в его объявлении необходимо присвоит значение по умолчанию:
procedure Test(AFile: TMyRec; Str1: string = '');
В этом случае, при вызове процедуры или функции Test этот параметр
можно не указывать, он будет брать значение указанное по умолчанию.

   2005-08-16 19:56:07 (#418748)

Библиотека не дает программе зактываться

Здравствуйте, Все.

Если в приложении библиотека не запускается с помощью LoadLibrary,
то приложение
нормально закрывается. Но стоит ее разок загрузить, как уже приложение
по нажатию на
закрывание главного окна не закрывается (после FreeLibrary). Как от этого м.
избавиться,
если библиотека делалась с помощью MFC AppWizard(dll), также в приложении
запускается в
немодальном режиме еще одно окно.

HINSTANCE hMyDll=NULL;
static HHOOK hhkKbdHook = NULL;
hMyDll = ::LoadLibrary(path+"mfc_dll_wiz.dll");
hhkKbdHook = SetWindowsHookEx(WH_GETMESSAGE,(HOOKPROC)
GetProcAddress(hMyDll,"GetMsgProc"),hMyDll,0);

//..... мои действия

BOOL boo1=UnhookWindowsHookEx(hhkKbdHook);
hhkKbdHook = NULL;
BOOL boo2=FreeLibrary(hMyDll);

boo2 boo1 равны правде.

   2005-08-16 19:15:39 (#418721)

Re: delta-offset

> Не могу понять до конца, как получать дельта смещение.
> Вот есть след строки:
> [1234:0200h] call Get_IP
> [1234:0203h] Get_IP:
> [1234:0203h] pop ax
> [1234:0204h] sub ax,offset Get_IP
> Компилятор при ассемблировании вместо Get_IP поставит ее адрес -
> получится:
> [1234:0200h] call 0203h
> [1234:0203h] pop ax
> [1234:0204h] sub ax,0203h
> Т.е. 203 это типа константы. Дальше заражаем файл размером 1000h,
> получаем:
> [1234:1200h] call Get_IP
> [1234:1203h] Get_IP:
> [1234:1203h] pop ax
> [1234:1204h] sub ax,offset Get_IP
> Но ведь Get_IP= 203h, тогда call Get_IP должен перенести нас не по адресу
> 1203h,а
> по адресу 203h,а почему-то так не получается.
> Я понимаю, что call кладет в стек адрес следующей за ним инструкции и ах
> затем
> будет = 1203h, но почему Get_IP поменялся с 203h на 1203h не понятно, это
> же
> константа????

Все дело в том, что в команде call указывается относительный адрес той
команды, на которую происходит переход. Относительно адреса команды, которая

непосредственно следует за командой call. Поэтому куда бы в файле мы не
записали приведенный код, call всегда будет вызывать просто следующую за ней

команду :-)

Да, Get_IP - константа :-) Но ассемблер при создании объектного модуля
вычисляет смещение до нее относительно следующей команды, и в качестве
операнда команды call сует это смещение.

А процессор при выполнении команды call не делает IP := смещение, а делает
IP := IP + смещение.

Номер выпуска : 4841
Возраст листа : 695 (дней)
Количество подписчиков : 527
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/418684
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2005-08-16 18:45:15 (#418684)

Re: Это Интересно.

Здравствуйте, -=BETA,

Tuesday, August 16, 2005, 4:20:56 PM, вы писали:

BT> Как сделать procedure Test(AFile: TMyRec; Str1: string);

BT> Чтобы когда её вызываешь необязательно было заполнять все её параметры
BT> (AFile, Str1) так как это сделано в процедуре Reset(...); - она имеет
BT> два параметра но можно заполнить только первый.

BT> Как сделать такое же?

Описать 2 процедуры, одну с одним параметром, другую с 2-мя.

   2005-08-16 15:17:10 (#418570)

Это Интересно.

Как сделать procedure Test(AFile: TMyRec; Str1: string);

Чтобы когда её вызываешь необязательно было заполнять все её параметры
(AFile, Str1) так как это сделано в процедуре Reset(...); - она имеет
два параметра но можно заполнить только первый.

Как сделать такое же?

P.S. Если вы меня не совсем поняли то в Delphi напишите Reset( и
посмотрите что покажет подсказка.

Номер выпуска : 4839
Возраст листа : 695 (дней)
Количество подписчиков : 527
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/418539
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2005-08-16 14:21:28 (#418539)

Re[3]: Сканер ШК

Здравствуйте, Eugene.

Вы писали 16 августа 2005 г., 6:35:13:

EtM> А быстрый поиск номенклатуры по ШК или быстрый подбор в накладной.
EtM> Есть такая компания Атол (www.atol.ru) так ихний драйвер сканера ШК
EtM> поддерживает ШК в разрыв клавиатуры.

Драйвера Атол не для 1С платные ...

   Антон Горячун 2005-08-16 10:17:59 (#418405)

Re[2]: Сканер ШК

Привет Юрий Истомин,

Вы мне письмо написали 11 августа 2005 г. (четверг), а я Вам отвечу вот что:

ЮИ> А собсно, зачем отличать ввод с ридера? Чаще всего ридер используется для
ввода
ЮИ> серийных номеров, а бывают ситуации, когда штрихкод запорот и надо его вводить
ЮИ> руками. Так что достаточно делать автофокус в поле для
ЮИ> сериала, и пусть или штрихкодером
ЮИ> кликают, или руками вводят, все равно.

А быстрый поиск номенклатуры по ШК или быстрый подбор в накладной.
Есть такая компания Атол (www.atol.ru) так ихний драйвер сканера ШК
поддерживает ШК в разрыв клавиатуры.

Афоризм напоследок: Если ты думаешь, что справедливость победила, попробуй убедить
в этом побежденных.
Winamp глаголит: Enya - Only Time
16 августа 2005 г. 7:32:44

Просто студент
Eugene mailto:rav***@o*****.ru

Номер выпуска : 4837
Возраст листа : 695 (дней)
Количество подписчиков : 527
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/418345
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2005-08-16 08:03:19 (#418345)