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

СообЧА. Программирование на Delphi

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

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

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

←   Март 2002   →
 1
 2
 3
 4
 5
05.03.2002
10:42:40
10:52:58
 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
Автор
Сергей

Статистика

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

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru
Subscribe.Ru :СообЧа программирование на дельфи !
™—Сообча : программирование на дельфи —

Некому оформить сайт ?
Нужен красивый баннер ?
Нет времени на обновление сайта?

Качественное оформление, работа с самыми современными средствами, FLASH,CGI,JAVA
Тогда вам сюда !!!!
За 50$-100$ мы поможем

----- (перед просмотром рассылку лучше сохранить)

 

 В этом выпуске:


Розыск:
VCL для работы с БД вез наличия БД драйверов и.т.п

Фонд поддержки наших проектов и рассылки:
Получатель: ИНН 7707083893 Новгородское ОСБ № 8629
Счет получателя: 47422810343029900030
Банк получателя :Новгородское ОСБ № 8629 г.Великий Новгород 30101810100000000698 Бик 044959698
!

Рассылки Subscribe.Ru это стильно удобно, и информативно!
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.


подпишись и подпиши друга!!!!

 Contact (Связь с Нами):

Pixel@novgorod.net + Subject: (см ниже)

 

Vcl Haunting

"Золотой Чайник"

Вопрос по дельфи N (N номер версии)

Help!

Реклама

Полезный линк

 

Наш сайт : pixelsoft.narod.ru

Новости СЕТИ

К заголовку

Кстати, узнал подробности про конструктор 3Д игр(КУПИЛ!!!),в сетке эта вещ называется 3D gamemaker и является производной от некогда популярного, языка-движка DarkBasic. Как написано на самом сайте , диск базируется для "Very Beginners of gamemaking" и создать свою игру вы можете с помощю Step-by-Step Wizarda.

Краткие характеристики этого движка/программы:

-----Вырезка с оффициального сайта
*Instant and amazing results in seconds.
*Random Game Option - let your computer create a
*uniquely playable game for you with just one click
of the mouse.
*Create a variety of exciting game scenarios with over
*360 pre-made scenes.
*Over 500 3D objects.
*Over 320 Sounds.
*Add personalised sound effects to games.
*Entirely customisable - utilise or scan in your
own images.
*Import your own 3D models.
*Download FREE objects from the
official website.
*Save games as exe files to share
with your friends.
*Swap games via disk or via the net with
other users.
*Place enemies, objects and items where you
want to with the Placement Editor.
----
Если вы хотите узнать больше, и увидеть скриншоты, вот оффициальный сайт
Если полученная вами информация достаточна, то вы можете купить этот диск(144 руб без учета доставки)
P.s У буржуев этот диск по 20 зеленых стоит :)...

 

Книги по Дельфи которые ВЫ ОБЯЗАНЫ ПРОЧИТАТЬ...

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

Пожалуй лучший учебник по дельфи 6 на сегодняшний день, вам даже не надо знать дельфи, чтобы начать ...

  • Дельфи 5: Руководство разработчика БД

    •  

    DirectX. Графика в проектах Delphi (+CD - ROM)
    Лучшее пособие для тех кто решил связаться с DirectX, по слухам на CD помимо примеров есть DirectxSDK7.0 от Microsoft...

    Среда программирования Delphi 5-6. Справочное пособие
    Книга полностью описывает среду программирования Delphi, которая включает в себя полный набор визуальных инструментов для быстрой и профессиональной разработки приложений для различных операционных систем, кроме того рассмотрены проблемы перехода между этими версиями дельфи.

    Программирование в Delphi 6 (+ floppy дискета ) Чайникам рекомендуется!!!

    Книга содержит методические и справочные материалы по новой версии системы визуального объектно-ориентированного программирования Delphi 6 и предшествующим версиям Delphi 5 и 4. Рассмотрены такие новые возможности Delphi, как кросс-платформенные приложения, технологии доступа к данным ADO, InterBase Express, dbExpress, компоненты — серверы СОМ, технологии распределенных приложений СОМ, CORBA, MIDAS, новая методика диспетчеризации действий...

 

Кодируем файл-2...

К заголовку

После публикации первого кода, сразу посыпалась критика. Признаю,тот код не фонтан как написан(после праздника писали в троем, далее без комментариев), в принципе его смысл был показать взаимодействие на уровне Дельфи<->ASM и как это можно применить. Для тех, же кому нужен реально хороший алгоритм кодирования с быстрой обработкой потоков, вот код, которым поделился один из читателей:

unit UCrypt;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
OD: TOpenDialog;
Label3: TLabel;
eKey: TEdit;
btnAsm: TButton;
btnPas: TButton;
TimeAsm: TLabel;
TimePas: TLabel;
procedure btnAsmClick(Sender: TObject);
procedure btnPasClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAsmClick(Sender: TObject);
var
f:TMemoryStream;
i:Integer;
l:Byte;
s,k:PChar;
t:TTime;
begin
l:=Length(eKey.Text);
if l=0 then exit;
GetMem(k,l+1);
StrPCopy(k,eKey.Text);
OD.InitialDir:=ExtractFilePath(Application.ExeName);
if OD.Execute then
begin
f:=TMemoryStream.Create;
try
f.LoadFromFile(OD.FileName);
i:=f.Size;
GetMem(s,i+1);
f.Position:=0;
f.ReadBuffer(s^,i);
t:=Time;
//----------------------------------------------------
asm
PUSH EDI
PUSH EDX
PUSH EBX
PUSH CX
MOV EDI,&s
MOV EDX,&i
@L1: MOV EBX,&k
MOV CL,&l
@L2: MOV AL,[EBX]
XOR AL,[EDI]
XOR AL,$55
MOV [EDI],AL
INC EBX
INC EDI
DEC EDX
JZ @L3
DEC CL
JNZ @L2
JMP @L1
@L3: POP CX
POP EBX
POP EDX
POP EDI
end;
//----------------------------------------------------
t:=Time-t;
TimeAsm.Caption:=FormatDateTime('hh:nn:ss:zzz',t);
f.Position:=0;
f.WriteBuffer(s^,i);
f.SaveToFile(OD.FileName+'.crypt');
finally
f.Free;
FreeMem(k);
FreeMem(s);
end;
end;
end;

procedure TForm1.btnPasClick(Sender: TObject);
var
f:TMemoryStream;
m,j,i:Integer;
l:Byte;
s,k:PChar;
t:TTime;
begin
l:=Length(eKey.Text);
if l=0 then exit;
GetMem(k,l+1);
StrPCopy(k,eKey.Text);
OD.InitialDir:=ExtractFilePath(Application.ExeName);
if OD.Execute then
begin
f:=TMemoryStream.Create;
try
f.LoadFromFile(OD.FileName);
i:=f.Size;
GetMem(s,i+1);
f.Position:=0;
f.ReadBuffer(s^,i);
m:=0;
t:=Time;
//----------------------------------------------------
for j:=0 to i-1 do
begin
s[j]:=Char(Byte(s[j])xor Byte(k[m])xor $55);
Inc(m);
if m=l then m:=0;
end;
//----------------------------------------------------
t:=Time-t;
TimePas.Caption:=FormatDateTime('hh:nn:ss:zzz',t);
f.Position:=0;
f.WriteBuffer(s^,i);
f.SaveToFile(OD.FileName+'.crypt');
finally
f.Free;
FreeMem(k);
FreeMem(s);
end;
end;
end;

end.

Скажу сразу, тут упор делался не на кодирование, а на подсчет времени ,затраченного на этот труд... Однако этот код раз в 10 -15 быстрее моего. Расскажу, что тут происходит:

Программа берет один и тот же файл и кодирует его одним и тем же алгоритмом , но на разных языках (Delphi & ASM). Потом считается время. Кому интересно, полная рабочая версия(с формой и dpr файлом) будет лежать на сайте рассылки

 

 

Одна копия программы

К заголовку

Самый неоднозначный момент - потребность в запуске лишь одной копии программы. Интересно, что большинство алгоритмов платформенно привязанные (либо NT либо 9X/ME), на днях проверял все, которые знаю и вычислил один простой, но довольно неплохой метод , который работает в обоих типах ОС от microsoft.

program SelfCheck;

uses

Windows,
Forms,messages,
Unit1 in 'Unit1.pas' {Form1};

const

AtStr='MyProgram';

function CheckThis : boolean;
var

Atom: THandle;
begin

Atom:= GlobalFindAtom(AtStr);
Result:= Atom <> 0;
if not result
then GlobalAddAtom(AtStr);
end;

begin

if not CheckThis
then begin // Запуск программмы
Application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
GlobalDeleteAtom(GlobalFindAtom(AtStr)); // !!!
end
else begin
MessageBox(0,'Нельзя запустить две копии','СообЧА предупреждает',+MB_OK);
end;
end.

Zaluskiy Anton(COOLer)  и Khrapunov Kirill(Pixel)  - ведущие проекта    "Мир Delphi" (C) Pixelsoftware(Pixel)& Delphi 2000-2002(COOLer)


Озон! TopList SpyLOG RLE Banner Network
http://subscribe.ru/
E-mail: ask@subscribe.ru		 Отписаться
Убрать рекламу		 Рейтингуется SpyLog

Another Banner Network

Another Banner Network

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