СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы. 18.02.03 (comp.soft.prog.soobcha) : Рассылка : Subscribe.Ru

СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы. 18.02.03

Статистика

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 6.870 RSS

← Февраль 2003 →
	1	2 02.02.2003 14:25:02 16:47:51
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28

За последние 60 дней ни разу не выходила

Сайт рассылки: http://www.soobcha.org
Открыта: 16-08-2000
Адрес автора: comp.soft.prog.soobcha-owner@subscribe.ru

Автор valt***@s*****.org

6.870 подписчиков
-1 за неделю

← Все выпуски →

← Февраль 2003 →

2 02.02.2003 14:25:02 16:47:51

Информационный Канал Subscribe.Ru

***СООБщество ЧАйников***

Система Эксперт
Найдем ответ СообЧа!

18.02.03

Доброго дня всем нам!

По итогам января вручены денежные премии экспертам, занявшим первые три места в рейтинге системы :
1-е место: 300 руб. - эксперт 2068
2-е место: 200 руб. - эксперт 1372
3-е место: 100 руб. - эксперт 2281

Свежие FAQ на SoobCha.Ru

FAQ от системы Эксперт

BCB

Какая текущая (т.е. последняя) версия C++ Builder?
Delphi
Как эмулировать нажатия клавиш в другой программе?
HTML
Как заблокировать кнопки "Назад" и "Обновить"?
Как поставить это значение ASCII?
Hard
Возмжно ли на чипсете i440BX установить поддержку ATA-66?
Internet
Документация по CINEMA 4D R8?
Руссификатор для Multimedia Builder 4.8.
JavaScript
Можно ли избавиться от рекламы с помощью JavaScript?
PHP
Русский справочник по PHP.
Processor
Как узнать номинальную частоту процессора?
SoundCards
Что такое "Заголовок RIFF"?

Вопросы от системы Эксперт

Тема: C++
Тема: Delphi
Тема: Games
Тема: Hard
Тема: Linux
Тема: Oracle
Тема: Perl
Тема: Prog
Тема: Visual_C++

FAQ от системы Эксперт

Тема: BCB

1. Какая текущая (т.е. последняя) версия C++ Builder?
2. Скоро ли будет следующая или можно смело покупать текущую?
3. В текущая версия поддерживает .NET или это будет только в следующей версии?

Ответ:

Последняя версия BCB - 6.0
Следующая будет через несколько месяцев, но по моему лучше брать 6.0, т.к. в седьмой версии ничего хорошего не ожидается (ты видел как оги над делфями извратились?)
Текущая ыерсия держит .NET - архитектуру

[Наверх]

Тема: Delphi

Как можно строчки из Delphi программы посылать и отображать в Edit компоненте другой программы.

Ответ:

Как эмулировать нажатия клавиш в другой программе:
{*********************BEGIN************************}
Этот модуль является почти полным аналогом мотоду SendKeys из VB.
(Автор: Ken Henderson, email:khen@compuserve.com)

(*
SendKeys routine for 32-bit Delphi.
Written by Ken Henderson
Copyright (c) 1995 Ken Henderson email:khen@compuserve.com
This unit includes two routines that simulate popular Visual Basic
routines: Sendkeys and AppActivate. SendKeys takes a PChar
as its first parameter and a boolean as its second, like so:
SendKeys('KeyString', Wait);
where KeyString is a string of key names and modifiers that you want
to send to the current input focus and Wait is a boolean variable or
value
that indicates whether SendKeys should wait for each key message to be
processed before proceeding. See the table below for more information.
AppActivate also takes a PChar as its only parameter, like so:
AppActivate('WindowName');
where WindowName is the name of the window that you want to make the
current input focus.
SendKeys supports the Visual Basic SendKeys syntax, as documented below.
Supported modifiers:
+ = Shift
^ = Control
% = Alt
Surround sequences of characters or key names with parentheses in order
to
modify them as a group. For example, '+abc' shifts only 'a', while
'+(abc)' shifts
all three characters.
Supported special characters
~ = Enter
( = Begin modifier group (see above)
) = End modifier group (see above)
{ = Begin key name text (see below)
} = End key name text (see below)
Supported characters:
Any character that can be typed is supported. Surround the modifier keys
listed above with braces in order to send as normal text.
Supported key names (surround these with braces):
BKSP, BS, BACKSPACE
BREAK
CAPSLOCK
CLEAR
DEL
DELETE
DOWN
END
ENTER
ESC
ESCAPE
F1
F2
F3
F4
F5
F6
F7
F8
F9
F10
F11
F12
F13
F14
F15
F16
HELP
HOME
INS
LEFT
NUMLOCK
PGDN
PGUP
PRTSC
RIGHT
SCROLLLOCK
TAB
UP
Follow the keyname with a space and a number to send the specified key a
given number of times (e.g., {left 6}).
*)
unit sndkey32;
interface
Uses SysUtils, Windows, Messages;
function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;
function AppActivate(WindowName : PChar) : boolean;
{Buffer for working with PChar's}
const
  WorkBufLen = 40;
var
  WorkBuf : array[0..WorkBufLen] of Char;
implementation
type
  THKeys = array[0..pred(MaxLongInt)] of byte;
var
  AllocationSize : integer;
(*
Converts a string of characters and key names to keyboard events and
passes them to Windows.
Example syntax:
SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789',
True);
*)
function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;
type
  WBytes = array[0..pred(SizeOf(Word))] of Byte;
  TSendKey = record
    Name : ShortString;
    VKey : Byte;
  end;
const
{Array of keys that SendKeys recognizes.
  if you add to this list, you must be sure to keep it sorted
alphabetically
  by Name because a binary search routine is used to scan it.}
  MaxSendKeyRecs = 41;
  SendKeyRecs : array[1..MaxSendKeyRecs] of TSendKey =
  (
   (Name:'BKSP'; VKey:VK_BACK),
   (Name:'BS'; VKey:VK_BACK),
   (Name:'BACKSPACE'; VKey:VK_BACK),
   (Name:'BREAK'; VKey:VK_CANCEL),
   (Name:'CAPSLOCK'; VKey:VK_CAPITAL),
   (Name:'CLEAR'; VKey:VK_CLEAR),
   (Name:'DEL'; VKey:VK_DELETE),
   (Name:'DELETE'; VKey:VK_DELETE),
   (Name:'DOWN'; VKey:VK_DOWN),
   (Name:'END'; VKey:VK_END),
   (Name:'ENTER'; VKey:VK_RETURN),
   (Name:'ESC'; VKey:VK_ESCAPE),
   (Name:'ESCAPE'; VKey:VK_ESCAPE),
   (Name:'F1'; VKey:VK_F1),
   (Name:'F10'; VKey:VK_F10),
   (Name:'F11'; VKey:VK_F11),
   (Name:'F12'; VKey:VK_F12),
   (Name:'F13'; VKey:VK_F13),
   (Name:'F14'; VKey:VK_F14),
   (Name:'F15'; VKey:VK_F15),
   (Name:'F16'; VKey:VK_F16),
   (Name:'F2'; VKey:VK_F2),
   (Name:'F3'; VKey:VK_F3),
   (Name:'F4'; VKey:VK_F4),
   (Name:'F5'; VKey:VK_F5),
   (Name:'F6'; VKey:VK_F6),
   (Name:'F7'; VKey:VK_F7),
   (Name:'F8'; VKey:VK_F8),
   (Name:'F9'; VKey:VK_F9),
   (Name:'HELP'; VKey:VK_HELP),
   (Name:'HOME'; VKey:VK_HOME),
   (Name:'INS'; VKey:VK_INSERT),
   (Name:'LEFT'; VKey:VK_LEFT),
   (Name:'NUMLOCK'; VKey:VK_NUMLOCK),
   (Name:'PGDN'; VKey:VK_NEXT),
   (Name:'PGUP'; VKey:VK_PRIOR),
   (Name:'PRTSC'; VKey:VK_PRINT),
   (Name:'RIGHT'; VKey:VK_RIGHT),
   (Name:'SCROLLLOCK'; VKey:VK_SCROLL),
   (Name:'TAB'; VKey:VK_TAB),
   (Name:'UP'; VKey:VK_UP)
  );
{Extra VK constants missing from Delphi's Windows API interface}
  VK_NULL=0;
  VK_SemiColon=186;
  VK_Equal=187;
  VK_Comma=188;
  VK_Minus=189;
  VK_Period=190;
  VK_Slash=191;
  VK_BackQuote=192;
  VK_LeftBracket=219;
  VK_BackSlash=220;
  VK_RightBracket=221;
  VK_Quote=222;
  VK_Last=VK_Quote;
  ExtendedVKeys : set of byte =
  [VK_Up,
   VK_Down,
   VK_Left,
   VK_Right,
   VK_Home,
   VK_End,
   VK_Prior, {PgUp}
   VK_Next, {PgDn}
   VK_Insert,
   VK_Delete];
const
  INVALIDKEY = $FFFF;
  VKKEYSCANSHIFTON = $01;
  VKKEYSCANCTRLON = $02;
  VKKEYSCANALTON = $04;
  UNITNAME = 'SendKeys';
var
  UsingParens, ShiftDown, ControlDown, AltDown, FoundClose : Boolean;
  PosSpace : Byte;
  I, L : Integer;
  NumTimes, MKey : Word;
  KeyString : String[20];
procedure DisplayMessage(Message : PChar);
begin
  MessageBox(0,Message,UNITNAME,0);
end;
function BitSet(BitTable, BitMask : Byte) : Boolean;
begin
  Result:=ByteBool(BitTable and BitMask);
end;
procedure SetBit(var BitTable : Byte; BitMask : Byte);
begin
  BitTable:=BitTable or Bitmask;
end;
procedure KeyboardEvent(VKey, ScanCode : Byte; Flags : Longint);
var
  KeyboardMsg : TMsg;
begin
  keybd_event(VKey, ScanCode, Flags,0);
  if (Wait) then While (PeekMessage(KeyboardMsg,0,WM_KEYFIRST,
WM_KEYLAST, PM_REMOVE)) do begin
    TranslateMessage(KeyboardMsg);
    DispatchMessage(KeyboardMsg);
  end;
end;
procedure SendKeyDown(VKey: Byte; NumTimes : Word; GenUpMsg : Boolean);
var
  Cnt : Word;
  ScanCode : Byte;
  NumState : Boolean;
  KeyBoardState : TKeyboardState;
begin
  if (VKey=VK_NUMLOCK) then begin
    NumState:=ByteBool(GetKeyState(VK_NUMLOCK) and 1);
    GetKeyBoardState(KeyBoardState);
    if NumState then
KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] and not 1)
    else KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] or 1);
    SetKeyBoardState(KeyBoardState);
    exit;
  end;
  ScanCode:=Lo(MapVirtualKey(VKey,0));
  For Cnt:=1 to NumTimes do
    if (VKey in ExtendedVKeys)then begin
      KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY);
      if (GenUpMsg) then
        KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY or
KEYEVENTF_KEYUP)
    end else begin
      KeyboardEvent(VKey, ScanCode, 0);
      if (GenUpMsg) then KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP);
    end;
end;
procedure SendKeyUp(VKey: Byte);
var
  ScanCode : Byte;
begin
  ScanCode:=Lo(MapVirtualKey(VKey,0));
  if (VKey in ExtendedVKeys)then
    KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY and
KEYEVENTF_KEYUP)
  else KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP);
end;
procedure SendKey(MKey: Word; NumTimes : Word; GenDownMsg : Boolean);
begin
  if (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then
SendKeyDown(VK_SHIFT,1,False);
  if (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then
SendKeyDown(VK_CONTROL,1,False);
  if (BitSet(Hi(MKey),VKKEYSCANALTON)) then
SendKeyDown(VK_MENU,1,False);
  SendKeyDown(Lo(MKey), NumTimes, GenDownMsg);
  if (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyUp(VK_SHIFT);
  if (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyUp(VK_CONTROL);
  if (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyUp(VK_MENU);
end;
{Implements a simple binary search to locate special key name strings}
function StringToVKey(KeyString : ShortString) : Word;
var
  Found, Collided : Boolean;
  Bottom, Top, Middle : Byte;
begin
  Result:=INVALIDKEY;
  Bottom:=1;
  Top:=MaxSendKeyRecs;
  Found:=false;
  Middle:=(Bottom+Top) div 2;
  Repeat
    Collided:=((Bottom=Middle) or (Top=Middle));
    if (KeyString=SendKeyRecs[Middle].Name) then begin
       Found:=true;
       Result:=SendKeyRecs[Middle].VKey;
    end else begin
       if (KeyString>SendKeyRecs[Middle].Name) then Bottom:=Middle
       else Top:=Middle;
       Middle:=(Succ(Bottom+Top)) div 2;
    end;
  Until (Found or Collided);
  if (Result=INVALIDKEY) then DisplayMessage('Invalid Key Name');
end;
procedure PopUpShiftKeys;
begin
  if (not UsingParens) then begin
    if ShiftDown then SendKeyUp(VK_SHIFT);
    if ControlDown then SendKeyUp(VK_CONTROL);
    if AltDown then SendKeyUp(VK_MENU);
    ShiftDown:=false;
    ControlDown:=false;
    AltDown:=false;
  end;
end;
begin
  AllocationSize:=MaxInt;
  Result:=false;
  UsingParens:=false;
  ShiftDown:=false;
  ControlDown:=false;
  AltDown:=false;
  I:=0;
  L:=StrLen(SendKeysString);
  if (L>AllocationSize) then L:=AllocationSize;
  if (L=0) then Exit;
  While (I
    case SendKeysString[I] of
    '(' : begin
            UsingParens:=true;
            Inc(I);
          end;
    ')' : begin
            UsingParens:=false;
            PopUpShiftKeys;
            Inc(I);
          end;
    '%' : begin
             AltDown:=true;
             SendKeyDown(VK_MENU,1,False);
             Inc(I);
          end;
    '+' : begin
             ShiftDown:=true;
             SendKeyDown(VK_SHIFT,1,False);
             Inc(I);
           end;
    '^' : begin
             ControlDown:=true;
             SendKeyDown(VK_CONTROL,1,False);
             Inc(I);
           end;
    '{' : begin
            NumTimes:=1;
            if (SendKeysString[Succ(I)]='{') then begin
              MKey:=VK_LEFTBRACKET;
              SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);
              SendKey(MKey,1,True);
              PopUpShiftKeys;
              Inc(I,3);
              Continue;
            end;
            KeyString:='';
            FoundClose:=false;
            While (I<=L) do begin
              Inc(I);
              if (SendKeysString[I]='}') then begin
                FoundClose:=true;
                Inc(I);
                Break;
              end;
              KeyString:=KeyString+Upcase(SendKeysString[I]);
            end;
            if (Not FoundClose) then begin
               DisplayMessage('No Close');
               Exit;
            end;
            if (SendKeysString[I]='}') then begin
              MKey:=VK_RIGHTBRACKET;
              SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);
              SendKey(MKey,1,True);
              PopUpShiftKeys;
              Inc(I);
              Continue;
            end;
            PosSpace:=Pos(' ',KeyString);
            if (PosSpace<>0) then begin
NumTimes:=StrToInt(Copy(KeyString,Succ(PosSpace),Length(KeyString)-PosSp
ace));
               KeyString:=Copy(KeyString,1,Pred(PosSpace));
            end;
            if (Length(KeyString)=1) then MKey:=vkKeyScan(KeyString[1])
            else MKey:=StringToVKey(KeyString);
            if (MKey<>INVALIDKEY) then begin
              SendKey(MKey,NumTimes,True);
              PopUpShiftKeys;
              Continue;
            end;
          end;
    '~' : begin
            SendKeyDown(VK_RETURN,1,True);
            PopUpShiftKeys;
            Inc(I);
          end;
    else begin
             MKey:=vkKeyScan(SendKeysString[I]);
             if (MKey<>INVALIDKEY) then begin
               SendKey(MKey,1,True);
               PopUpShiftKeys;
             end else DisplayMessage('Invalid KeyName');
             Inc(I);
          end;
    end;
  end;
  Result:=true;
  PopUpShiftKeys;
end;
{AppActivate
This is used to set the current input focus to a given window using its
name. This is especially useful for ensuring a window is active before
sending it input messages using the SendKeys function. You can specify
a window's name in its entirety, or only portion of it, beginning from
the left.
}
var
  WindowHandle : HWND;
function EnumWindowsProc(WHandle: HWND; lParam: LPARAM): BOOL; export;
stdcall;
const
  MAX_WINDOW_NAME_LEN = 80;
var
  WindowName : array[0..MAX_WINDOW_NAME_LEN] of char;
begin
  {Can't test GetWindowText's return value since some windows don't have
a title}
  GetWindowText(WHandle,WindowName,MAX_WINDOW_NAME_LEN);
  Result := (StrLIComp(WindowName,PChar(lParam), StrLen(PChar(lParam)))
<> 0);
  if (not Result) then WindowHandle:=WHandle;
end;
function AppActivate(WindowName : PChar) : boolean;
begin
  try
    Result:=true;
    WindowHandle:=FindWindow(nil,WindowName);
    if (WindowHandle=0) then EnumWindows(@EnumWindowsProc,Intege
(PChar(WindowName)));
    if (WindowHandle<>0) then begin
      SendMessage(WindowHandle, WM_SYSCOMMAND, SC_HOTKEY, WindowHandle);
      SendMessage(WindowHandle, WM_SYSCOMMAND, SC_RESTORE,
WindowHandle);
    end else Result:=false;
  except
    on Exception do Result:=false;
  end;
end;
end.

{****************END****************}

[Наверх]

Тема: HTML

Подскажите пожалуйста, как заблокировать кнопки "Назад" и "Обновить" или, по крайней мере, сделать так, чтобы при их нажатии ничего не происходило.

Ответ:

Никак, можно только не отображать панель с кнопками. Но это не спасёт от соответствующих комбинаций клавиш (F5, Alt+Left).

[Наверх]

Тема: HTML

Я слышал что все файлы которые закачиваются на сайт в cgi-bin должны быть с пометкой ASCII .
Вопросы:
1)как поставить это значение?
2)нужно ли отмечать другие файлы которые я закачиваю на сайт (ну там index.html , about.php ...)???

Ответ:

1. Все скрипты должны закачиваться на сервер в тестовом формате ASCII. Эта функция активизируется обычно при копировании файлов. К примеру в FAR'е,кактолько нажмете F5 (при работе с FTP) увидите соответствующую пометку. Почему это так важно - для компилятора, который не разбирается в кодировках KOI-8и др.
2. Ваши файлы могут быть именно в таких кодировках, т.к. обрабатываются браузером, который обычно сам определяет кодировку. И веб-серверы по-моему тоже разбираются в кодировке, только не уверен что это входит в их функции...

[Наверх]

Тема: Hard

Возмжно ли на мойе маме Acorp 6BX86, чипсет i440BX установить поддержку ATA-66. После перепрошивки Award BIOS v4.51PG на новую версию 2D от 11/10/2000 появилась поддержка ATA-33, но хочется большего! :-)

Ответ:

Нельзя. i440BX поддерживает только ATA-33. Но надо помнить, что числа 33, 66, 100 определяют лишь скорость обмена с буфером жесткого диска. А все остальное зависит от жесткого диска. Т.е. большого прироста не происходит, т.к. буфер (память) работает и так достаточно быстро.

[Наверх]

Тема: Internet

У кого нибудь есть документация по CINEMA 4D R8
P.S.: желательно на русском, заранее спасибо.

Ответ:

Попробуй поискать что-нибудь здесь:
http://dlight.ru/catalogue/catinter.php

[Наверх]

Тема: Internet

Есть ли Help на русском языке для Multimedia Builder 4.8

Ответ:

Нашел только руссификатор
http://www.msilab.rudata.ru/page/html/your_m.html

[Наверх]

Тема: JavaScript

У меня на странице, при её загрузке вылетает куча рекламы. Можно ли от неё избавиться с помощью JavaScript?

Ответ:

Скорее всего нет, если только не вписан какой-нибудь скрипт по открыванию рекламы, и то, если вы его удалите, то в большинстве случаев, хост опять его туда впишет!

[Наверх]

Тема: PHP

Помогите найти русский справочник по PHP!

Ответ:

Подпишись на расссылку:
http://win.subscribe.ru/catalog/comp.soft.prog.phpnewbie
там скоро будет.

[Наверх]

Тема: Processor

Я купил компьютер с определенной конфигурацией (не суть важна какая вся она (конфигурация)).
Процессор Celeron 1700GHz. Его температура 48градусов (по данным BIOS). При игре в какую-нибудь игрушку (Need For Speed) она поднимается аж до 56градусов.
У моего знакомого с анологичным процессором 27 и 42 соответственно. (правда куллер другой (частоты вращения одинаковы))
У меня есть предположение, что в фирме его разогнали.
Вопрос:
1. Как узнать номинальную частоту процессора.
2. Какая температура для процессора(не разогнаного и разогнаного) нормальна.

Ответ:

У процессора Celeron Коэффициент умножения зашит в кристалл. То есть его не разгонишь при всём желании, только вместе с системной шиной материнки (тогда бы частота была нестандартной, например 1751), а это было бы слишком заметно. Так что на фирме тебе его не разгоняли.
Кулер играет очень важную роль. Надо было и себе хороший ставить - тогда мог бы свой разогнать. Хотя ты и сейчас можешь. 48 градусов- очень низкая температура. Если твоя материнка позволяет, подними частоту шины. Можно доводить до 80 градусов и выше. Так что пока зима - можешь разогнать. Вот когда летом будет жарко, разгон придётся ослабить (или апгрейдить кулер).

[Наверх]

Тема: SoundCards

Что такое "Заголовок RIFF"?

Ответ:

Кратко - в файл дописывается этот самый заголовок, который позволяет программам не поддерживайщим МП3 использовать для их обработки кодек, установленный в Виндовс (обычно это Фраунгоферовский кодек, но обрезанный, только для декодирования, хотя в инете можно найти и крякнутый). Расширение файла меняется на WAV.
Я извлек с аудио-диска (с помощью CDEx 1.40) небольшой трек в 3х разных форматах:
WAV - 24MB (WAV файл)
MP3 (LAME,32kbps)- 555KB (МП3 файл)
RIFF-WAV (LAME, 32kbps) - 555KB (WAV файл)
Затем открыл (попытался) мп3 в виндовом sound recorder`e - само собой он не открылся - формат не поддерживается. А вот RIFF-WAV и открылся, и воспроизвелся.

[Наверх]

Вопросы от системы Эксперт

Тема: C++

Я тут начал штудировать OpenGL (Только вот на днях), поэтому пордон за глупый вопрос. Немогли бы вы прислать пример (только функцию отображения сцены, без инициализации и т.д.) реализующий сглаживание пересекающихся многоугольников (особенно сглаживающий их стык).
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ31VX87E
[Наверх]

Тема: Delphi

При нажатии BorderIcons и закрыти и сворачивания на ActionMainMenuBar срабатывает событие OnClose для MDI окна.
procedure TChildForm.FormClose(Sender: TObject; var
Action: TCloseAction);
begin
Action := caFree; //и как результат при сворачивании окна оно
//закрывается!!!!
end;
В обоих случаях на входе Action=caMinimize
Если же нажать BorderIcons Restore на ActionMainMenuBar, а затем
1. BorderIcons закрытия уже на самой форме MDI окна, то срабатывает то же событие OnClose:
с Action=caMinimize
2. BorderIcons сворачивания - событие OnClose не срабатывает!!!!
Сам вопрос: Как корректно закрывать и сворачивать MDI окна, используя ActionMainMenuBar?
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ32V3O813

Как на Delphi при объекте Rich Text Edit напечатать документ?
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ51VCBF3R
[Наверх]

Тема: Games

Хочется поставить коды в игре Гарри Потер, но я не знаю как.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ44QEGC21
[Наверх]

Тема: Hard

Тема Panasonic KX-TD1232.
Имеется несколько входящих линий. Паралельно с одной из них включен обычный телефон.
Можно ли сделать так:
1. По этой линии должны быть возможен исходящий звонок. (это есть)
2. При входящем звонке должен звонить паралельный телефон, а не АТС т.е. можно ли запретить на АТС входящие звонки по этой линии)
3. Запрещено звонить через 8-ку с паралельного тлф, но можно с АТС.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ35CY822
[Наверх]

Тема: Linux

Очень долго жил и работал под IceWM+mc и впринцепе был доволен, но прочитав "таблицу аналогов", скачал с xpde.com их оконный менеджер.., вернее.., точно не знаю как это назвать, вобщем, их продукт, он вроде даже поставился...в убогом readme удалось найти упоминание о каком-то файловом менеджере, в ярлыках тоже был пустой ярлык.., теперь вопрос: есть ли под xpde оконный менеджер, если да, то интегрирован ли он или его надо откуда-то качать, и если качать, то откуда? (прямую ссылку если можно). Версия xpde 0.1.1 иксы 4.2-4alt (alt linux master 2).
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ54CMLNL
[Наверх]

Тема: Oracle

Установил Oracle 8.1.5. Потом установил Oracle Designer 2000. При попытке подключиться из дизайнера вылетает ошибка ora-03121 (не подключен драйвер интерфейса). Как подключить этот драйвер ? win2000.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ73F4RLH
[Наверх]

Тема: Perl

Подскажите пожалуйста модуль для перла, что бы конвертировал базу из excel в sql(Mysql или др.). Дело в том что имеется большой прайс в excel и его нужно перевести в sql, что бы с ним можно было проще работать. Схема excel -> csv -> perlscript -> ... работает не слишком надежно т.к прайс большой и в нем уйма таких символов как "перевод аретки"(enter), табуляция и ;(разделитель).
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ53DIVQ11

Тема: Prog

Как узнать температуру процессора програмно(желательно на Си). Материнка поддердживает и SiSoftSandra показывает температуру тоже.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UQ5520E4J
[Наверх]

Тема: Visual_C++

Поиск по Базе знаний :
http://www.soobcha.ru/search/

Автоответчики.
Информация о системе Эксперт СообЧа (пустое сообщение):
mailto:reply.infoexpert@soobcha.ru

Информация о порядке регистрации в качестве эксперта (пустое сообщение):
mailto:reply.regexpert@soobcha.ru

Список тем для задания вопросов (пустое сообщение):
mailto:reply.subjexpert@soobcha.ru

Список всех автоответчиков СообЧа (пустое сообщение):
mailto:help@soobcha.org

Информация и заказ диска СообЧа:
http://soobcha.ru/cd/ или:
Для России: mailto:disk@soobcha.org?subject=page
Для Украины: mailto:disk_ua@soobcha.org?subject=page

Администратор системы:
mailto:expert_adm@soobcha.org
Копирование материалов рассылки допускается только по согласованию с администратором системы.
Рассылка создана программой Expert Page Generator.
(С) 2000-2003 СообЧа!

http://subscribe.ru/
E-mail: ask@subscribe.ru

Отписаться
Убрать рекламу

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}