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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2002   →
 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
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 01.05.02 09:04

Кое-что из нашей кладовки   |x|
  • TFloatEdit - едит, в который можно ввести только число Vovchik damageinc@sbor.ru   (30.04.02 14:18)
    TFloatEdit - едит, в который можно ввести только число. Поддерживаются целые и плавающие числа.
    »»» Скачать: исходные тексты (5кб)
Лучшее из нашего FAQ   |x|
Как передать UserName и Password в удаленный модуль данных (remote datamodule)?
В Удаленный Модуль Данных бросьте компонент TDatabase, затем добавьте процедуру автоматизации (пункт главного меню Edit | Add To Interface) для Login.
Убедитесь, что свойство HandleShared компонента TDatabase установлено в True.

procedure Login(UserName, Password: WideString);
begin
  { DB = TDatabase }

  { Something unique between clients }
  DB.DatabaseName := UserName + 'DB';  
  DB.Params.Values['USER NAME'] := UserName;
  DB.Params.Values['PASSWORD'] := Password;
  DB.Open;
end;

После того, как Вы создали этот метод автоматизации, Вы можете вызывать его с помощью:

  RemoteServer1.AppServer.Login('USERNAME','PASSWORD');

(Borland FAQ N588, переведен Акжаном Абдулиным)

»»» Прислать свои комментарии

Советы по программированию в Дельфи

3) Шифрование строки методом XOR с результатом, содержащим только печатные символы

procedure EncryptXor(s,pass:string;var s1:string);
var i,j,k:integer;
begin
if (Length(s)=0) or (Length(pass)=0) then exit;
for i:=1 to Length(s) do
 s[i]:=Chr(Ord(s[i]) xor Ord(pass[1+(i mod Length(pass))]));
case Length(s) mod 3 of
 1: s:=s+#255#255;
 2: s:=s+#255;
end;
s1:='';
for i:=1 to Length(s) div 3 do begin
 j:=(ord(s[3*i-2]) and 252) shr 2;
 s1:=s1+chr(j+48);
 j:=(ord(s[3*i-2]) and 3) shl 4;
 k:=(ord(s[3*i-1]) and 240) shr 4;
 s1:=s1+chr((j or k)+48);
 j:=(ord(s[3*i-1]) and 15) shl 2;
 k:=(ord(s[3*i]) and 192) shr 6;
 s1:=s1+chr((j or k)+48);
 k:=(ord(s[3*i]) and 63);
 s1:=s1+chr(k+48);
end;
end;

procedure DecryptXor(s,pass:string;var s1:string);
var i,j,k:integer;
begin
if (Length(s)=0) or (Length(pass)=0) then exit;
s1:='';
for i:=1 to Length(s) div 4 do begin
 k:=(ord(s[4*i-3])-48) shl 2;
 j:=((ord(s[4*i-2])-48) and 48) shr 4;
 s1:=s1+chr(k or j);
 k:=((ord(s[4*i-2])-48) and 15) shl 4;
 j:=((ord(s[4*i-1])-48) and 60) shr 2;
 s1:=s1+chr(k or j);
 k:=((ord(s[4*i-1])-48) and 3) shl 6;
 j:=(ord(s[4*i])-48);
 s1:=s1+chr(k or j);
end;
while s1[Length(s1)]=#255 do delete(s1,Length(s1),1);
for i:=1 to Length(s1) do
 s1[i]:=Chr(Ord(s1[i]) xor Ord(pass[1+(i mod length(pass))]));
end;

Автор: Б. Новгородов (MBo)

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Delphi и Flash. Совмещение несовместимого!
Разве возможно совместить Флэш-ролики и Дельфи-приложения. Раньше я думал что НЕТ. Но теперь я знаю не только, что это возможно, но и знаю как это делается!!! И сейчас я вам расскажу об этом. Во-первых хочется отметить преимущества использования флэш-роликов в ваших программах...
Новинки книжного рынка   |x|
Самоучитель Kylix
Книга посвящена новому продукту фирмы Borland - объектно-ориентированной среде для быстрой разработки приложений под Linux. Рассматривается версия Kylix 1.0 Server Developer.
Приводятся приемы работы с графическими компонентами, принципы создания приложений баз данных и собственных компонентов.
Дается краткое описание языка программирования Object Pascal. Последняя часть книги посвящена проблеме создания межплатформенных приложений, которые работают как в среде Linux, так и в Windows.
Изложение сопровождается многочисленными примерами и фрагментами кода.Для программистов
Автор: Понамарев В.
Другие сайты о DELPHI   |x|
DeCompiler's Programs
Несколько программ домашнего производства =).
» Оценка сайта: 2
Опрос населения :)
Стоит ли сделать англоязычную версию этого сайта?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
матричный принтер стрекочет
пронзительно и отчаянно
он обречен

Афоризмы
Как правило, самым невежественным оказывается тот, кто считает, что знает все....

Фраза дня
Позвольте Вас, мадам, немного пингануть...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Лонг Бич (США) официальным постановлением признано, что "гаражи строятся для автомобилей".
В Англии до сих пор есть закон, который запрещает владеть телевизором всем, кто не имеет особой лицензии.

И на закуску коротенький анекдот
- Дорогая! - заявляет один программист своей жене. - За все, что ты для меня сделела, я решил увековечить твое имя! Я присвоил твое имя только что созданному мной вирусу.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=78634

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное