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

←   Сентябрь 2003   →
1	2	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
29	30

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

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

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

• Выпуски
• Статистика

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

RusFAQ.ru: Программирование на Delphi

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

---

---

RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 222
от 28.09.2003, 12:20

Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва

О рассылке: Задано вопросов: 973 Отправлено ответов: 1862 Активность: 191.3 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

Marouder Статус: Профессиональный Общий рейтинг: 122.03 URL: Первый Хабаровский Форум Телефон: (4212) 21-93-65 [Подробней >>]	sir henry Статус: Доверительный Общий рейтинг: 152.27 [Подробней >>]	Cybernetic Creature Статус: Профессиональный Общий рейтинг: 124.04 URL: COOL [Подробней >>]
Артём Шегеда Статус: Профессиональный Общий рейтинг: 116.82 URL: Пристанище неодинокого программиста [Подробней >>]	THE_PRO Статус: Доверительный Общий рейтинг: 137.5 [Подробней >>]	CJ Статус: Начальный Общий рейтинг: 124.32 [Подробней >>]
Bob Johnson Статус: Профессиональный Общий рейтинг: 151.72 URL: Программирование [Подробней >>]	_vt Статус: Профессиональный Общий рейтинг: 122.51 [Подробней >>]	Дима Мусиенко Статус: Опытный Общий рейтинг: 108.33 [Подробней >>]
ART_43 Статус: Опытный Общий рейтинг: 122.18 URL: ART_43 Home Site [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 957. Здравствуйте, уважаемые эксперты! Подскажите пожалуйста, где у меня может быть ошибка. Я использую с... (ответов: 1)
Вопрос № 958. Как из DLL-ки показывать немодальную форму. Библиотека написана под готовое приложение и в ней не пр... (ответов: 2)
Вопрос № 959. Привет всем трудящимся Экспертам! Немного вопросов набралось: Delphi: 1) Есть у меня, наприме... (ответов: 3)
Вопрос № 960. Хеллоу КОЛЛЕГИ (Уж больно нравится это слово) Есть проблема: Дан битмап файл, (огромный около 2,5х1,... (ответов: 2)
Вопрос № 961. Как мне различить графическая или текстовая инфор. в БО! В чем мне открыть гр.информ.? ... (ответов: 1)
Вопрос № 962. Здравствуйте ув. Эксперты! Как проиграть аудио файл без компонента MediaPlayer. НАпример на OnButton... (ответов: 4)
Вопрос № 963. Привет эксперты. Пытаюсь работать с Dll-динамически. var h:^cardinal; hn:=Загружаю h:=GetProcAddress... (ответов: 5)
Вопрос № 965. Уважаемые знающие люди, помогите со следующим вопросом: Как можно узнать об изменениях на диске - со... (ответов: 2)

---

Вопросов: 8, ответов: 20

---

Вопрос № 957

Здравствуйте, уважаемые эксперты!
Подскажите пожалуйста, где у меня может быть ошибка.
Я использую следующую функцию для архивации каждого файла, обрабатываемого программой
void __fastcall Arh(String File)
{
Memo1->Lines->Clear();
Memo1->Lines->Add("@arj m " + FileName(ExtractFileName(File)) + " " + ExtractFileName(File) + " -y -hf2");
Memo1->Lines->Add("@del runn.bat");
Memo1->Lines->Add("@exit");
Memo1->Lines->SaveToFile("runn.bat");
if(WinExec("runn.bat /wait",0) > 31);
MAttach = FileListBox1->Directory + "\" + FileName(ExtractFileName(MAttach)) + ".arj";
}
Используемая при этом функция FileName
AnsiString FileName(AnsiString File)
{
AnsiString Name = ChangeFileExt(ExtractFileName(File), "");
return Name;
}
Но при использовании этой функции архивируются не все файлы, а только некоторые, и то, через раз.
Как можно улучшить работу этой функции (Arh)?


Приложение:
C++Builder

---

Вопрос отправлен: 23.09.2003, 15:32
Отправитель: Alexandr
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Marouder

Приветствую Вас, Alexandr!
Какой-то ужасный код.
1) Зачем батник создавать, если можно сразу из WinExec вызвать Arj?
2) Что это за ужасный способ создания текстового файла через TMemo? Нельзя разве fstream использовать или API?
3) Ключ m - это архивирование файлов с удалением исходных файлов. Может, у них атрибут ReadOnly и из-за этого они не удаляются?

---

Ответ отправлен: 25.09.2003, 07:24
Отправитель: Marouder

---

Вопрос № 958

Как из DLL-ки показывать немодальную форму. Библиотека написана под готовое приложение и в ней не предусмотрена передача Application.Handle. Нужно чтобы форма работала параллельно Dll-ке, что-то показывала и реагировала на кнопки. Пробовал создать форму через
Form:=TForm1.Create(nil);
Form.Show;
Форма создаеться :), но ни на что не реагирует :(. Как должны обрабатываться сообщения для формы? Или без Applicatin это не получится?

---

Вопрос отправлен: 23.09.2003, 18:07
Отправитель: Sucker
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Здравствуйте, Sucker!
А почему она должна на что-то реагировать? Ты же не написал ни одного обработчика событий :).
Сделай вот что:
1. Создаешь форму как обычно.
2. Кидаешь на нее кнопки, едиты и все что тебе нужно.
3. В событиях (типа Button1.OnClick) описывешь все, что тебе нужно сделать с компонентом.
4. Сохраняешь с каким-нибудь именем, например MyForm.pas.
5. Делаешь DLL'ку (см. приложение).
6. Должно работать ;).

Приложение:
library FormDLL; uses SysUtils, Classes, Forms, DllFormUnit in 'MyForm.pas' {DllForm}; function ShowForm : Integer; stdcall; var Form : TDLLForm; {Этот тип в MyForm.pas} begin Form := TDLLForm.Create(Application); Result := Form.ShowModal; Form.Free; end; begin end.

---

Ответ отправлен: 24.09.2003, 05:14
Отправитель: sir henry

---

Отвечает Marouder

Добрый день, Sucker!
Я уже не помню точно. Давно как-то занимался этим вопросом. Но без Application, наверное, не получится.

---

Ответ отправлен: 25.09.2003, 07:24
Отправитель: Marouder

---

Вопрос № 959

Привет всем трудящимся Экспертам!
Немного вопросов набралось:
Delphi:
1) Есть у меня, например, элемент TImage на форме, размером 400x300.
Как мне БЫСТРО записать все точки RGB этой картинки в массив array[1..400,1..300] of TColor?
2) Как мне затем БЫСТРО записать этот массив обратно?
3) Какой есть бесплатный компонент для создания региональных окон?
4) Какой есть бесплатный компонент для создания региональных кнопок с событиями смены изображения при MouseMove и MouseDown?
5) Как средствами Delphi я могу получить список всех файлов, их точное местоположение и размер с определённого сайта?
6) Как мне установить указатель (Pointer) на определённую область памяти, если я знаю её адрес?
Подписчикам:
7) Есть такая книга М.Краснова "OpenGL. Графика в проектах Delphi."+FD. Может кто поможет достать примеры с дискеты, прилагающейся к этой великолепной книге?
8) В каком интернет-магазине лучше всего покупать книги наложенным платежом? Интересуют только проверенные вами сервера.
P.S.: Слушайте, а зачем нужны всякие алгоритмы поиска пути, когда Волновой - самый быстрый и надёжный? Только для теории?

---

Вопрос отправлен: 23.09.2003, 19:04
Отправитель: URiS (urisff@inbox.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Cybernetic Creature

Приветствую Вас, URiS!
1)
var a:array[0..399,0..299] of TColor;
var i,j:integer;
.............
for i:=0 to Image1.Picture.Width-1 do
for j:=0 to Image1.Picture.Height-1 do
a[i,j]:=GetPixel(Image1.Canvas.Handle,i,j)
2)
.........................
for i:=0 to 399 do
for j:=0 to 299 do
pixels[i,j]:=a[i,j];
3),4)
What's it: REGIONALNIE KNOPKI (OKNA)

---

Ответ отправлен: 23.09.2003, 21:11
Отправитель: Cybernetic Creature

---

Отвечает Артём Шегеда

Добрый день, URiS!

1, 2. Очень настоятельно советую прочитать Win32 API, раздел "Storing an Image". В этом разделе дан пример (правда, на Си) сохранения изображения в файл. Перед тем, как будет что-то записано, очевидно, это что-то нужно получить. Вот в этом примере и получают массив битов изображения (как правило, 24 бита/точку - но нужно предусматривать всё). Ещё одно замечание: в результирующий буфер заносятся строки целиком (нет возможности указать начальный и конечный пиксел строки)
3. Не послать просто не могу:
http://www.torry.net/nonrect.htm
4. Аналогично п.3:
http://www.torry.net/anibuttons.htm
5. Хм... всех файлов с сайта... Если идёт речь про ftp - то нужно писать ftp-клиент, если речь про http, nj нужно писать парсер HTML-кода и выуживать все гиперссылки, а для относительных путей - восстанавливать полные пути. Это непростая задача даже для опытных. Само получение какого-либо ресурса - уже проблема, а парсить...
6. Преобразование pointer/integer - допустимо. Также допустимо преобразование <указатель на тип>/pointer. В результате получаем:

var
  p : PChar;
  Address : integer;
begin
  ReadLn(Address);
  p := PChar(pointer(Address));
  WriteLn(p);
end;

---

Ответ отправлен: 24.09.2003, 12:38
Отправитель: Артём Шегеда

---

Отвечает Marouder

Здравствуйте, URiS!
5)
Используй Функции из WinInet. На rusfaq.ru лежит дока.
Здесь долговато объяснять.
6)
Очень просто. Pointer - это, по сути, почти то же самое, что и Cardinal. Оба - 32 битные беззнаковые целые. В памяти они выглядят абсолютно одинаково. Только тип надо привести.
Вот пример.
Установить указатель по адресу 401000h:
var p:pointer;
begin
p:=Pointer($401000);
end.

---

Ответ отправлен: 25.09.2003, 07:24
Отправитель: Marouder

---

Вопрос № 960

Хеллоу КОЛЛЕГИ (Уж больно нравится это слово)
Есть проблема:
Дан битмап файл, (огромный около 2,5х1,5 кв. метров, но проверку лучше проводит на маленких файлах где то 200х100 пиксель)
Черно белый.
А там график (кривая). нужно найти координаты (в пикселях) все минимумы и максимумы (локальные). Глобальные я нашел.
для тех кто не понял глобальные и локальные обясняю(Глобальный минимум или максимум это самая нижняя или верхняя точка графика а локальные минимумы или максимумы это все вершинные точки графика)
тот код который я написал высылаю.см приложние
плиз доделайте если сможете
очень нужно до четверга
не надо ссылки типа Делфиворлд.народ.ру
или что то подобное
Извините за мой акцент я воопше то не местный.


Приложение:
unit myUnit; interface uses Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, XPMan, ExtDlgs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenPictureDialog1: TOpenPictureDialog; Button2: TButton; Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; Button3: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); (*Открыть битмап*) begin if not OpenPictureDialog1.Execute then exit; Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; procedure TForm1.Button2Click(Sender: TObject); var i,j:integer;Min,Max:String;Indxi,Indxj,Indni,Indnj:Integer; (*Процедура находящая глобальный макс и мин*) begin Min:=IntToSTr(Image1.Picture.Height);Max:='0'; for i:=0 to Image1.Picture.Width-1 do for j:=0 to Image1.Picture.Height-1 do (*Если цвет черный значит точка графика*) if GetPixel(Image1.Canvas.Handle,i,j)=0 then begin if j<StrToInt(Min) then begin Min:=IntToStr(j);Indni:=i;Indnj:=j end; if j>StrToInt(Max) then begin Max:=IntToStr(J);Indxi:=i;Indxj:=j end; Memo1.Lines.Add(IntToStr(i)+','+IntToStr(j)) (*Добавляю все точки графика может пригодятся*) end; Max:=FormatFloat('0.00',StrToInt(Max)*100/Image1.Picture.Height)+'%'; Min:=FormatFloat('0.00',StrToInt(Min)*100/Image1.Picture.Height)+'%'; edit1.Text:='('+IntToStr(Indxi)+','+IntToStr(Indxj)+')'+' max='+(Max); edit2.Text:='('+IntToStr(Indni)+','+IntToStr(Indnj)+')'+' min='+(Min); with Canvas do begin Pixels[indni,indnj]:=clred; pixels[indxi,indxj]:=clred; Pen.Color:=clRed; (*Так как рисунок черно белый я вынужден пользоватся канвой формы для рисования красным цветом*) MoveTo(image1.left+indni,image1.top+indnj); lineto(image1.left,image1.top+indnj); Moveto(image1.left+indxi,image1.top+indxj); lineto(image1.left,image1.top+indxj) end; end; procedure TForm1.Button3Click(Sender: TObject); (*С помошю этого кода я пытался найти лок минимумы*) (*Вот эта часть и мне нужна*) (*Но она неправильно работает*) (*Я сам не разобралься. ПОМОГИТЕЕ*) var i:integer;S1:String; begin S1:=Memo1.Lines[0];i:=1; repeat if StrToInt(Memo1.Lines[i])>StrToInt(S1) then begin Label1.Caption:=Label1.Caption+IntToStr(i)+','+S1+#13; repeat s1:=Memo1.Lines[i]; inc(i); until StrToInt(Memo1.Lines[i])<=StrToInt(S1); end; S1:=Memo1.Lines[i]; inc(i); until i=Memo1.LineS.count; label1.AutoSize:=true; end; end.

---

Вопрос отправлен: 23.09.2003, 21:12
Отправитель: Cybernetic Creature
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Добрый день, Cybernetic Creature!
Точно так-же просканируй поколоночно или построчно весь рисунок :).

---

Ответ отправлен: 24.09.2003, 06:07
Отправитель: sir henry

---

Отвечает THE_PRO

Доброе время суток, Cybernetic Creature!
poskolku ne pomestilos suda...
bratan ya uje poslal otvet tebe na email ot ocp@mail.az

---

Ответ отправлен: 25.09.2003, 10:01
Отправитель: THE_PRO

---

Вопрос № 961

Как мне различить графическая или текстовая инфор. в БО!
В чем мне открыть гр.информ.?

---

Вопрос отправлен: 24.09.2003, 21:08
Отправитель: Кирилл
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Артём Шегеда

Доброе время суток, Кирилл!

В документации на Win32 API есть пример программы. Поищи раздел "Example of a Clipboard Viewer". Это полностью работающий код - только на Си.

---

Ответ отправлен: 25.09.2003, 12:31
Отправитель: Артём Шегеда

---

Вопрос № 962

Здравствуйте ув. Эксперты!
Как проиграть аудио файл без компонента MediaPlayer.
НАпример на OnButtonCLic начал проигрыватся файл fail.wav(mp3)
Заранее спасибо!

Приложение:
Delphi6

---

Вопрос отправлен: 25.09.2003, 00:13
Отправитель: elvis
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Cybernetic Creature

Здравствуйте, elvis!
Procedure PlaySound

---

Ответ отправлен: 25.09.2003, 21:24
Отправитель: Cybernetic Creature

---

Отвечает sir henry

Добрый день, elvis!
С помощью функции PlaySound(). Если есть декодер мр3, то мр3 тоже будет проигрываться. Если декодера нет, то можно запустить с помощью:
ShellExecute(хэндл_окна, 'open',имя_файла,nil,nil,sw_show)
тогда, на какую программу у тебя зарегистрированы мр3, та и запуститься.

---

Ответ отправлен: 25.09.2003, 08:55
Отправитель: sir henry

---

Отвечает CJ

Доброе время суток, elvis!
Ну правильно!
Надо обязательно этот комнонент!
Ну или ты ас, то пиши свой модуль!

---

Ответ отправлен: 25.09.2003, 14:49
Отправитель: CJ

---

Отвечает Bob Johnson

Доброе время суток, elvis!
Есть функция PlaySound. wav файл она сыграть сможет (причем как с диска, так и из ресурсов приложения).

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 26.09.2003, 00:40
Отправитель: Bob Johnson

---

Вопрос № 963

Привет эксперты.
Пытаюсь работать с Dll-динамически.
var
h:^cardinal;
hn:=Загружаю
h:=GetProcAddress(hn,'RunTest');
asm
jmp h // выполняю процедуру
end;
а вот как функции выполнить с получением
результата(cardinal/byte/string) незнаю.Спасибо

---

Вопрос отправлен: 25.09.2003, 01:06
Отправитель: AllDer
[Следующий вопрос >>] [Список вопросов]

---

Отвечает _vt

Добрый день, AllDer!
А зачем ты так выполняешь функцию??

var code:cardinal;
code := h;<---выполняется h и результат в code


*** E-Man 1.5 (edition 04) - life is just a game...if you a student:) ***

---

Ответ отправлен: 25.09.2003, 03:10
Отправитель: _vt

---

Отвечает Дима Мусиенко

Добрый день, AllDer!
jmp - это инструкция безусловного перехода. И то она прыгает только, по-моему, в пределах 64Kb. Вместо неё надо использовать call. Рекомендую почитать соответствующую литературу. А возвращаемое значение возвращается в регистре eax, причем в нем может возвратиться и значение и адрес, если это массив или иной тип данных, например класс.
Но в данном случае луше не прибегать к ассемблеру а поступить как ответили другие эксперты.

---

Ответ отправлен: 25.09.2003, 19:46
Отправитель: Дима Мусиенко

---

Отвечает sir henry

Здравствуйте, AllDer!
Твоя функция в DLL'ке должна возвращать результат. И еще добавляй к ней (на всякий случай :) stdcall.

---

Ответ отправлен: 25.09.2003, 09:02
Отправитель: sir henry

---

Отвечает ART_43

Добрый день, AllDer!
h:=GetProcAddress(hn,'RunTest');
var1:=h(var2);

---

Ответ отправлен: 25.09.2003, 10:00
Отправитель: ART_43

---

Отвечает Marouder

Здравствуйте, AllDer!
1. Результат в регистре eax.
Вот пример. Допустим, резултат нужно записать в FuncResult (любого типа):
asm
call h // выполняю процедуру
mov funcresult,eax //записываем результат в FuncResult.
end;
Обрати внимание, что не "jmp h", а "call h". А вообще-то правильнее: "call dword ptr [h]".
2. Я все никак понять не могу, почему ты используешь указатель на Cardinal? В твоем случае можно просто использовать нетипизированный указатель.
var
h:Pointer;
Разницы в результате нет, но по правилам хорошего тона, надо делать именно так.
3. Тип String в DLL тоже использовать не надо. Во избежание глюков. Надо PCHAR использовать.
4. Не обязательно asm использовать. Можно просто:
var
h:function:cardinal;
hh:THandle;
FuncResult:Cardinal;
begin
hn:=Загружаю
h:=GetProcAddress(hn,'RunTest');
if (@h<>nil) then FuncResult:=h; //если адрес получен нормально, вызываем функцию h, результат отправляем в FuncResult.
end;

---

Ответ отправлен: 26.09.2003, 08:22
Отправитель: Marouder

---

Вопрос № 965

Уважаемые знающие люди, помогите со следующим вопросом:
Как можно узнать об изменениях на диске - создание/удаление/переименование/перемещение файла/файлов/папки/папок, и как получить сведения о создании/удалении/переименовании/перемещении файла/файлов/папки/папок - имя и путь, дата изменения/создания, старый и новый путь (если перемещали), когда удалили и прочее?
А также об открытии, сохранении файла?

---

Вопрос отправлен: 25.09.2003, 08:05
Отправитель: FreeElectron (umnik@mail.kz)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает THE_PRO

Приветствую Вас, FreeElectron!
Yesli ti xochesh viet vse "processes" kotoriye proisxoyat vo vremya raboti tvoyey progi, toqda ti mojesh ispolzovat WM_"..." (Windows Messages).
Yesli eto ne tot otvet kotoriy tebe nujen, toqda utochni vopros!

---

Ответ отправлен: 25.09.2003, 10:17
Отправитель: THE_PRO

---

Отвечает Marouder

Здравствуйте, FreeElectron!
Можно перехватить функции CreateFile, DeleteFile, CreateFolder, DeleteFolder и т.п. Про перехват писалось в книге Рихтера "Windows для профессионалов", на Wasm.ru и ,кажется, на rsdn.ru (но на rsdn.ru - отстойная статья, чайник какой-то писал, лучше всего у Рихтера).

---

Ответ отправлен: 26.09.2003, 08:22
Отправитель: Marouder

---

---

Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (32) C / C++ (31) Perl (8) Builder / Delphi (25) Pascal (25) Basic / VBA (11) Java / JavaScript (14) PHP (15) Криптография (11) WinAPI (15)

Пользователю Windows 95/98/Me (53) Windows NT/2000/XP (62) "Железо" (44) Поиск информации (27)

Администратору Windows NT/2000/XP (33) Linux / Unix (17)

Юристу Гражданское право (12) Семейное право (10) Трудовое право (10) КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-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="Войти"> <!--</a>--> <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 class="gray_bg register_shadow"></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}