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

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

Статистика

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

← Апрель 2003 →
	1	2 02.04.2003 09:43:26 14:34:22	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26 26.04.2003 15:04:08 15:35:49	27
28	29	30

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

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

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

6.873 подписчиков
0 за неделю

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

← Апрель 2003 →

2 02.04.2003 09:43:26 14:34:22

26 26.04.2003 15:04:08 15:35:49

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

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

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

18.04.03

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

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

BCB

Как в Buildere 5 работать с ini файлами?
C
Как перевести число в двоичную систему?
DOS
Как найти файл при помощи командной строки?
Как из командной строки запустить ярлык в виндос?
Delphi
Каким образом можно привязать написанное на Delphi приложение к определенному типу файлов?
Как реализовать полный перебор всех вложенных папок в указанной папке?
Как собрать несколько файлов из папки в один файл своего формата?
Как закрыть окно сеанса MS Dos после завершения выполнения процесса?
Internet
Как пользоваться Teleport Pro?
JavaScript
Как с помощью document.write() ввести строку?
Linux
Есть ли на данный момент ПО под Linux которые бы могли сохранять документ в формате, читаемом в программах MS Office?
Pascal
Как можно работать с принтерным портом?
Scan
Как можно оптимизировать отсканированную фотографию?

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

Тема: Clipper
Тема: Delphi
Тема: Games
Тема: Internet
Тема: Linux
Тема: Perl
Тема: Prog
Тема: Scan
Тема: VB

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

Тема: BCB

Подскажите пожадуйста как в Buildere 5 работать с ini файлами. Например у меня имеется доступ к MySQL базе и для каждого юзера есть свои права. Нужно чтобы програма сохраняла настройки пользователя в ini файле.. что бы каждый раз заново не заполнять поля и не выполнять подключение к базе.

Ответ:

Это очень просто, подключаете #include <inifiles.hpp> и пользуетесь методами класса TIniFile.
Например:
TIniFile *pif;
pif = new TIniFile(put+"user.ini");
Top=pif->ReadInteger("SETUP","Top",10);
pif->WriteString("SETUP","Font",SGrid1->Font->Name);
delete pif;
В хелпе все описано элементарно.

[Наверх]

Тема: C

Мне нужно перевести число(типа int) из десятичной системы исчисления в ДВОИЧНУЮ, стандартных функций я не нашел кроме Setbase - которая не переводит в двоичную систему (в этой версии точно не переводит). Подскажите пожалуйста, может быть есть универсальный алгоритм (функция). Я об этом думал и возникает другой вопрос: если число перевести в двоичную систему, то какой тип данных будет относится к двоичному числу (может его записать в строку (массив char)).

Ответ:

int -- это и есть тип данных, в котором хранится целое двоичное число в два байта. То есть 16-и битное число.
Над ним можно делать двоичные операции операции и выводить на экран :

Если же вам всё-таки нужно создать особый тип данных, где можно было бы легко добраться до каждого бита, то можно создать массив и использовать аналогию prinfbin.

[Наверх]

Тема: DOS

Нужно найти файл при помощи командной строки, при этом неизвесно сколько HDD и CDROM, у CDROM могут быть разные буквы(e:;h:;g:), это зависит сколько HDD стоит в системе

Ответ:

DIR filepart /S или ATTRIB filepart /S, где filepart - шаблон файла, с учетом которого проводится поиск.

[Наверх]

Тема: DOS

Как из командной строки запустить ярлык в виндос?

Ответ:

start [путь к ярлыку]\[имя ярлыка].lnk
Например :
start c:\windows\desktop\program.lnk
Если у вас имя созданного ярлыка содержит префикс типа "shortcut to" - его (префикс) тоже надо писать, т.к. он - часть имени ярлыка.
Например :
start "c:\windows\desktop\shortcut to program.lnk"
Правда под ДОС длинные имена файлов надо обрезать, так что получится что-то вроде:
start "c:\windows\desktop\shortc~1.lnk"
(f если ярлыков в этом месте много - придется узнать какой номер n (.....~n) приклеит ему ДОС.

[Наверх]

Тема: Delphi

Каким образом можно привязать написанное на Delphi приложение к определенному типу файлов (к примеру, чтобы при двойном клике на текстовый файл он открывался не в Блокноте, а в моей программе)?

Ответ:

Вот статейка на эту тему!!!
Ассоциации файлов
В основном вам необходимо добавить два ключа в улей регистра HKEY_CLASSES_ROOT. Зарегистрируете в корне ваше расширение типа ".ext" (создаете ключ с именем расширения): HKEY_CLASSES_ROOT\.ext\
и запишите в строке "default" созданного ключа "внутреннее имя" вашего типа файлов - например, MyApp.Document:
HKEY_CLASSES_ROOT\.ext\Default = "MyApp.Document"
Затем создайте другой ключ с этим именем:
HKEY_CLASSES_ROOT\MyApp.Document\
Создайте подключ с именем "shell", в нем другой подключ с именем "open" и в "open", в свою очередь, еще один подключ с именем "command". Значение по умолчанию (default) - путь и имя вашего приложению с ключом "%1", представляющим параметр "имя файла", позволяя системе подставлять подставлять вызванный файл:
HKEY_CLASSES_ROOT\MyApp.Document\shell\open\command\Default = "C:\myapp\myapp.exe %1"
Все манипуляции в коде производятся с помощью объекта TRegistry или при использовании InstallShield, который сделает это за вас автоматически. Я должен посоветовать вам использовать оба пути, поскольку пользователь может внести в регистры всякий мусор.
Вот еще один совет:
Самый простой путь достижения цели - модифицировать секцию Extensions в win.ini-файле, расположенном с директории Windows. Это также работает под Win 95, автоматически обновляя регистры при перезапуске системы. Взгляните на секцию Extensions win.ini-файл
а для определения формата записи. Поместите IniFiles в секцию используемых модулей и создайте код подобно этому:
var INIFile: TIniFile;
begin
try
INIFile := TInifile.Create('WIN.INI');
INIFile.WriteString('Extensions','txt','c:\windows\notepad.exe ^.txt');
finally
INIFile.Free;
end;
end;
Это ассоциирует файлы с расширением *.txt с Записной Книжкой (Notepad) Windows. Например, для ассоциации вашего приложения MyApp с каталогом расположения c:\MyApps с файлами, имеющими расширение *.MAP, необходимо выполнить следующее:
var INIFile: TIniFile;
begin
try
INIFile := TInifile.Create('WIN.INI');
INIFile.WriteString('Extensions','map','c:\myapps\myapp.exe ^.map');
finally
INIFile.Free;
end;
end;
Это будет работать как в Win 3.11, так и в Win 95 и избавит вас от работы с регистрами в Win 95. Не уверен насчет Win NT (или Win98), поскольку у меня нет возможности протестировать это дома. Имейте в виду, что все вышеописанное - только часть проблемы,
т.к. приложение после всех вышеуказанных манипуляций еще должно этот файл открыть. Для этого вы должны прочесть ParamStr(1), содержащий полный путь к файлу, выбранному пользователем, и должным образом загрузить его в свое приложение.
Дополнение
Михаил Шпанер продолжает эту тему:
Чтобы описание типа файлов появилось в списке "Типы файлов" Windows 98, укажите в параметре "default" ключа 'HKEY_CLASSES_ROOT\MyApp.Document\' краткое описание типа файлов (файл My App).
Чтобы ассоциированные файлы имели соответствующую приложению иконку, нужно в параметре "default" ключа 'HKEY_CLASSES_ROOT\ MyApp.Document\DefaultIcon\' указать путь к иконке. Иконки соответствующих файлов обновятся после перезагрузки Windows. Windows 98
делает это без перезагрузки системы, но как это сделать я не знаю, может быть кто-то подскажет.
Пример кода (проверено в Delphi5, Windows98):
Добавьте 'Registry' в строку Uses.
Объявите переменную 'RegFile':
var RegFile : TRegIniFile;
begin
RegFile:=TRegIniFile.Create;
RegFile.RootKey:=HKEY_CLASSES_ROOT; //устанвливаем текущий ключ
RegFile.WriteString('.ext','','MyApp.Document'); // определяем расширение
RegFile.WriteString('MyApp.Document','','Описание файлов');//Описание ассоциированных файлов (для списка "Типы файлов" Windows 98).
RegFile.WriteString('MyApp.Document \DefaultIcon','','Путь к иконе для файлов'); //устанавливаем икону для ассоциированных файлов
//Исполняемый файл (полный путь)
RegFile.WriteString(' MyApp.Document \Shell\Open\Command','','исполняемый файл "%1" ');
RegFile.CloseKey;
RegFile.Free;
End;

[Наверх]

Тема: Delphi

Необходимо реализовать полный перебор всех вложенных папок в указанной папке (т.е. все вложенные папки должны быть представлены в виде дерева, к примеру). Как это можно сделать?

Ответ:

Простейший сканнер
Вот пример, который ищет мп3 файлы на жестком диске...

[Наверх]

Тема: Delphi

Как на паскале/дельфи собрать несколько файлов из папки в один файл моего формата, формат такой:
type
TDataFile = packed record
DirID: string[3];
DirName: string[12];
FileID : string[4];
FileName: string[12];
FileContent: ????; // предпологаемое содержимое файла, незнаю какой тип использовать
end;
И как потом сделать чтение, показ например битмапа который допустим в середине этого файла, как это делается в Quake 1,2,3 и Half-Life - *.

Ответ:

Что же... Вопрос неплохой, но наверное четкого ответа на него написать не получится, но напишу как это пришлось реализовывать мне.
Требуется: Записать в один файл несколько других из папки.
1) Использовать ZIP :). Понимаю что примитивно, но в некоторых случаях очень действенно. А самое удобное в данном вариатне, что все это очень просто реализуется.
2) Использовать потоки. То есть несколько файлов последовательно пишутся в один поток. А потом дописывается заголовок.

type TRecInfo = record
  sID: String[8];
  sName: String[255];
  iStart, iSize: Cardinal;
end;
const
  UC_FILEHEADER = 'FILEVER 1.0';
{Число -> Строка}
function Number2String(Number: Extended; iLength: integer = 0; FillChar: Char = ' '): string;
var
  i: integer;
  Temp: String;
begin
  Result := '';
  Temp := FloatToStr(Number);;
  i := Pos(',', Temp);
  if i > 0 then Temp[i] := '.';
  Result := Temp;
  if iLength > 0 then
  for i := Length(Temp) to iLength do
    Result := Result + FillChar;
end;
function DoSaveFile(FileName: String): Boolean;
var
  uRecord: TRecInfo;
  TempStr: String[64];
  Header, Data, Temp: TMemoryStream;
begin
  Result := False;
  {Создаем потоки}
  Data := TMemoryStream.Create;
  Temp := TMemoryStream.Create;
  Header := TMemoryStream.Create;
  try
    // SKIPPED //
    {Организовать цикл по требуемым на запись файлами}
    Temp.LoadFromFile({FILE_2_SAVE});
    {Сохраняем текущую позицию}
    uRecord.iStart   := Data.Position;
    {Записываем тип и имя объекта}
    uRecord.sID      := {OBJECT_TYPE};   // Укажи тип файла (например по расширению)
    uRecord.sName    := {FILE_2_SAVE};   // Например имя файла
    {Пишем данные и определяем длину}
    Temp.SaveToStream(Data);
    uRecord.iSize    := Data.Size - uRecord.iStart;
    Header.Write(uRecord, SizeOf(uRecord));
    // SKIPPED //
    {Формирование блоков данных завершено - объединяем в один файл}
    {Записываем начало и длину}
    Header.Write(uRecord, SizeOf(uRecord));
    {Пишем файловый заголовок!}
    TempStr    :=  UC_FILEHEADER  +   Number2String(Header.Size,  64 - (SizeOf(UC_FILEHEADER)+1), ' ');
    {Очистка}
    Temp.Clear;
    Temp.Position := 0;
    Temp.Write(TempStr, 64);
    {пишем заголовок данных, потом данные}
    Header.SaveToStream(Temp);
    Data.SaveToStream(Temp);
    {Записываем файл}
    Temp.SaveToFile(FileName);
    Result := True;
  finally
    {закрываем потоки}
    Temp.Free();
    Data.Free();
    Header.Free();
  end;
end;

Но как показывает практика данные надо еще и как-то читать. Немного печально, но необходимо. Поэтому пишем нечто похожее на это

Вот примерно такие пироги с котятами. Конечно где-то возможны ошибки, поскольку часть кода просто выкинута, но в общих чертах должно работать.

[Наверх]

Тема: Delphi

Как закрыть окно сеанса MS Dos после завершения выполнения процесса (createprocess)

Ответ:

Чтобы выяснить, работает ли еще программа, используйте GetProcessTimes, параметр lpExitTime.
Для принудительного завершения процесса -- TerminateProcess.

[Наверх]

Тема: Internet

Как пользоваться Teleport Pro?

Ответ:

Телепорт (как, впрочем и другие качалки) скачивает всё, на что есть ссылка на данной странице (а потом данной становится скачанная страница и т.д.)
Первый адрес:
http://host.zone/phorum/index.html (например) и на этой странице есть ссылка на страницу
http://host.zone/phorum/test.html - она тоже будет скачана.
Если там (на test.html) есть ссылка на файл http://host.zone/phorum/image.gif, то и он будет скачан (если в настройках скачивания поставили скачивать графику).
А если учесть, что на странице ОГРОМНОЕ МНОЖЕСТВО ссылок различных, то не удивительно, что список файлов разрастается до огромных размеров. НО это не сильно страшно, ввиду того, что в большинстве своём это файлы маленькие (и вообще говоря, если бы Вы открывали все эти страницы поочереди, то все эти файлы Вам бы загрузились).
Ну да ладно. Существует ограничение на глубину скачивания:
http://host.zone/phorum/index.html первый уровень в нашем примере
http://host.zone/phorum/second/index.html второй уровень в нашем примере
http://host.zone/phorum/second/third/index.html третий уровень в нашем примере
Таким образом, если все страницы располагаются на одном уровне и различаются только именами файлов, то можно ставить один уровень (или ноль, точно не могу сказать откуда идёт нумерация).
Ещё можно ограничивать скачивание:
только этот сервер
только адреса, начинающиеся с http://host.zone/phorum/
а также можно отключить закачку картинок (в форуме они не главное)

[Наверх]

Тема: JavaScript

Подскажите как мне с помощью document.write() ввести строку
onmouseover='dropit(event,(nn6)?'dropmenuAll':dropmenuAll,'document.dropmenuAll',445)';
Я пробовал так:
document.write("onmouseover='dropit(event,(nn6)?'dropmenuAll':dropmenuAll,'document.dropmenuAll',445)';");
но ничего не получается :(

Ответ:

И ничего не должно получаться, попробуйте строку разбить на части, т.е:
document.write("string 1" + "string 2" + "stri" + "ng 3")
или же тоже по кусочкам присвоить переменные, а потом вывести переменные:
var x="string 1"
var x2="string 2"
var x3="stri"
var x4="ng 3"
document.write(x + x2 + x3 + x4)

[Наверх]

Тема: Linux

Есть ли на данный момент ПО под Linux (Текстовые редакторы, электронные таблицы ) которые бы могли сохранять документ в формате, читаемом в программах MS Office (желательно с сохранением форматирования).

Ответ:

http://openoffice.org - классный офисный пакет. Переведён на русский компанией ALT Linux. Есть версии для Linux и Windiws.
StarOffice - офисный пакет Sun, прородитель OpenOffice. Начиная с версии 6.0 платен (но мы то в России). Есть офицальная Sun'овская руссификация.
Gnumeric - gtk основанный редактор таблиц. Полностью совместим с EXSEL XP. Есть небольшие заморочки с написанием (с исполнением чётко) макросов.
ABI WORD - Что-то среднее между word и wordpad. Основан на gtk. С rtf работает отлично, с doc отлично до версии Word97. В word 2000 есть некоторые функции, не поддерживаемые abiword'ом.
Два последних входят в пакет Gnome Office.
Koffice - начиная с версии 1.2.1 заслуживает внимаия. Входит в состав KDE, основан на Qt. Многое не поддерживает, но простенькие таблицы и форматированные тексты открыть в состоянии. Не в состоянии обработать закладки или оглавление сгенерированное в MS WORD.
Korel Office - есть и под windows и под linux. Помоему его разработка остановлена, но он вполне неплохо (если доставить побольше кирилических шрифтов) работает и с таблицами и с текстами и с векторной графикой.

[Наверх]

Тема: Pascal

Кто нибудь занимался сопряжением компа с самодельными устройствами? Интересует работа с принтерным портом,программинг на турбо паскале желательно с ассемблерными вставками.

Ответ:

Вопрос емкий, и всю теорию в письме не выложишь, но примерчиком помочь можно.
Непонятно только. Зачем тебе ассемблерные вставки, если все можно сделать на языке высокого уровня...
Вот несколько процедур из реально работающей программы

[Наверх]

Тема: Scan

При сканировании фотографий файлы jpg получаются размером около 600 Кб. А в Сети файлы гораздо лучшего качества имеют размер менее 100 Кб. Как можно уменьшить размер файла?

Ответ:

Для оптимизации фотографий используется обработка в программах. Просто при получении изображения туда записывается много всякой служебной информации, и ее можно вырезать.
Например, в IRFANVIEW есть опция ОПТИМИЗИРОВАТЬ, да и во многих других программах тоже. По-моему, в Фотошопе, начиная с 5.0, есть функция ОПТИМИЗИРОВАТЬ для WEB. Пробуйте, и должно получиться.

[Наверх]

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

Тема: Clipper

Подскажите ,пожалуйста, откуда можно скачать мат.обеспечение для программирования на Clippere под Windows, а также сообщения об ошибках на русском языке, и документацию - на русском.
Ответить: mailto:expert@soobcha.ru?subject=Rass_URP599H02M
[Наверх]

Тема: Delphi

Есть новый компонент типа Edit, в него заносится текст с базы по какому то полю. Как получить список полей выбрав одно из них в редакторе свойств. По примеру FieldName список в dbEdit. Или хотябы намек как это сделать.
Ответить: mailto:expert@soobcha.ru?subject=Rass_URN39CE3X
[Наверх]

Тема: Games

Подскажите как пройти Меч и Магию 9(эпизод где ты после смерти, при поиске умерших войнов, попадаешь в место где нужно при помощи нажатия на статуетки поднимать мосты?)
Ответить: mailto:expert@soobcha.ru?subject=Rass_URO27ONR1N

В NFS HP 2 очень неудобно управлять с клавиатуры, поскольку машина реагирует заторможенно при любом разрешении. В NFS HP была настройка чувствительности, здесь же я ее не нашел. Что-нибудь можно сделать, кроме покупки руля?
Видеокарта - GeForce2 MX400
Ответить: mailto:expert@soobcha.ru?subject=Rass_URN39CLA3D

Имеется Need For Speed 6. Хочется вытащить музыку. С помощью GAP не получается. Как вытащить?
Ответить: mailto:expert@soobcha.ru?subject=Rass_URQ3PXVK1C
[Наверх]

Тема: Internet

Нужна ссылка на популярный англоязычный сайт, позволяющий бесплатно разместить объявление.
Ответить: mailto:expert@soobcha.ru?subject=Rass_URP2KPRJ17
[Наверх]

Тема: Linux

Попал ко мне диск с ави-шкой с титрами и перемоткой по клипам и с несколькими вариантами саундтрека..., как бы всё это дело к mplayer прикрутить..., и чтоб перемотка в mplayer работала с этим файлом.., xine не предлагать.., ну если уж совсем никак, то как в xine сделать?
Ответить: mailto:expert@soobcha.ru?subject=Rass_URP599J83P
[Наверх]

Тема: Perl

Я тут скачал скрипт который вроде написан на Perl.Так вот он представляет из себя бота который входит в ИРК канал. И я хотел бы узнать как его запустить?
Можно ли это сделать просто с помощью какого либо бесплатного хостинга? Я думаю что запускают его в основном с помощью Shall`а ...на его у меня нет... Я ещё хотел бы запустить брут-форс... Так как мне можно запустить этот скрипт?
Ответить: mailto:expert@soobcha.ru?subject=Rass_URP2KPPYF
[Наверх]

Тема: Prog

Чем можно редактировать 32-битные библиотеки Microsoft?
Например, чтобы можно было добавить в ресурсы картинку и показатель ее в каком-нибудь диалоге. Т.е. обычные редакторы ресурсов этого не умеют... Например, хочу в диалог "Завершение работы Windows" справа повесить 2 картинки. Знаю, что такое возможно, знакомый делал. Вопрос - как?
Ответить: mailto:expert@soobcha.ru?subject=Rass_URF2VCAR1T

Подкажите с чего начать изучение и программирование для Pocket PC.
Ответить: mailto:expert@soobcha.ru?subject=Rass_URN39D248N
[Наверх]

Тема: Scan

Марка сканера: Mustek Paragon 600 CD II и FilmScan 250
Интерфейс: интерфейсная плата Adaptec15xx и 8-и битная SCSII
Операционная система: Windows XP Pro Rus
Т.к. интерфейсные карты старые (ISA, не РнР), то соответсвенно WinXP их не видит: Paragon, имеет скази разъем и теоретически может работать со скази картой (в принципе Адаптек это скази карта, но чтобы работал сканер нужно установить перемычку в положение : э.э. интерфейсной карты (сори за тавтологию) сканера и подключать другим кабелем ): драйверов на них под XP в и-нете не нашел. Возможно ли заставить сканеры работать: например поставить полноценную SCSII карту (какую I,II, Wide,UltraWide?: %) и повесить на нее два сканера сразу? или иным другим способом: кроме обратной установки Win9x:. %)
Ответить: mailto:expert@soobcha.ru?subject=Rass_URP599G628
[Наверх]

Тема: VB

Не могли бы Вы дать разъяснение по следующим вопросам:
1. В каких случаях лучше использовать удаленную автоматизацию, а в каких DCOM?
2. Какое связывание (раннее или позднее) лучше использовать при ссылке на удаленный сервер ActiveX.EXE?
3. Как ПРАВИЛЬНО выполнить регистрацию клиентской и серверной части?
4. Дайте пожалуйста подробное описание настроек DCOM (с помощью dcomcnfg.exe)
5. Каие причины выдачи клиентом ошибки 70 (Permission denied) и 429 (ActiveX component can't create object)?
Ответить: mailto:expert@soobcha.ru?subject=Rass_URP599RA7O
[Наверх]

Поиск по Базе знаний :
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}