Новости СЕТИ

К заголовку

Приношу извинения за ОГРОМНОЕ количество опечаток и недоделок , которые попали в прошлый выпуск. В тот день вообще жизнь не удалась ... (Виды сдохли, софт потерял любимый , да еще и с 5-ти утра на ногах был...)

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

• Базы данных и приложения в дельфи 6 , спешите купить
• Delphi 6 : Наиболее полное руководство

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

• Дельфи 6: Учебный курс

Пожалуй лучший учебник по дельфи 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, новая методика диспетчеризации действий...

Разгребаем вашу почту...

К заголовку

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

Пишет : kaly_23@yahoo.com

У меня есть программа перекодировки формата изображений
написанная для режима сеанса MS-DOS. Каким образом
можно вызвать эту программу из своей программы,
передать этой программе соответствующие ключи для выполнения и
удостовериться в ее завершении?

------------------------Ответ
Если отталкиваться от предположения, что твоя программа работает и все ок, то пиши так:
uses shellapi;

WinExec('Your command line goes here',SW_Show); Если факт использования этой прогшраммы надо скрыть пиши SW_hide

Пишет:Dangerouse2000@mail.ru
1. Есть проблема, нужно создать переименовать файл в дату и время.
Допустим есть файл menu.jpg созданный 21.03.01 12:51, мне нужно
перенести этот файл в папку и переименовать 210301_1251.jpg
------------------------------------------------------------------------Ответ

Используй процедуру Rename(var F; Newname: string);
Пример:
uses Dialogs;
var

f : file;
begin
OpenDialog1.Title := 'Choose a file... ';
if OpenDialog1.Execute then
begin
SaveDialog1.Title := 'Rename to...';
if SaveDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName +
' to ' + SaveDialog1.FileName);
Rename(f, SaveDialog1.FileName);
end;
end;

end;
для даты и времени используй две функции, как именно я думаю ты поймешь.
function FileDateToDateTime(FileDate: Integer): TDateTime;
DateToStr(Date: TDateTime): string;

2.Из данных TEdit создать папку с именем.
До пусть есть TEdit в нем значение 350 нужно создать папку с именем
350, при изменение значения TEdit создаются папки с именами этих
значений.
-----------------------------------Ответ
MkDir(Edit1.text), при этом создается поддиректория в каталоге Currentdir c чтобы создать ее там, где надо сделай вызов SetCurrentDir(Newdir:string);

Немного новостей...

К заголовку

Открытый проект GlScene для дельфи обновился, краткий список дополнительных возможностей:
*Векторный расчет столкновений(можно получить информацию о том, по какой траектории столкнулись два объекта и узнать вектора направлений)
*Скелетная анимация: Теперь видны "косточки моделей, а также доступно их перемещение, что весьма перспективно для собственного аниматора моделей
*Процедурная текстура: Огонь, теперь помимо огня из "частиц" доступна плокая 2д текстура с анимацией.
*Спецеффекты: Взрыв модели, у кого есть 3д студио,тот может припоинить такой эффект(моделька разлетается на треугольники)

Компания Borland выпускает C++ Builder6.0 . Если верить сообщениям , то есть поддержка конверсии кода на уровне C++<- Delphi (решена проблемма с Virtual методами), а также в силу появления кросс-платформенных файлов появилась совместимость с Watcom C++, Microsoft Visual C++ и Линукс версиями языка. Сей продут адаптирован под росийский рынок т.к цена Home-edition(без Microsoft SDK help,BD modules,Net modules) будет стоиить порядка 40$...

Последнее время пик для 3д энжайнеров(люди, увлекающиеся изготовлением 3д движков). Появился еще один Open-source проект движка, хотя в весовой категории он на равне с Crystal3D (8 мб дистрибутива), он явно уступает местами Glscene, но не по быстродействию. Вобщем пока я могу сказать точно, что продукт называется O.G.R.E(Obgect Graphic Renderer Engine).

В далекие времена, когда был в моде спектрум-128, существовало такое явление, как демомейкинг, люди пытались вывернуться на изнанку, чтобы показать крутость компа. Сейчас настали суровые времена ускорителей и 3д графики. Я ,честно говоря, что подобное "хобби" уже вымерло, но нет и на PC есть целые группы занимающиеся демомейкигом. При том что более всего меня удивила категория 64k-intro принятая как стандарт. В ней демы указанного размера и не более выкидывают такие кадры что орешь на всю комнату:"Не веееерю!!!!". Кого сей разказ удивил или кто мне не поверил прошу удостовериться

Сети: CGI Счетчик ...

К заголовку

Не бейте меня по голове за этот код, т.к я не имею возможности его проверить(Perl отсутствует, да и Apache мне не найти откомпилированный)

unit CounterUnit;

interface

uses
Windows, Messages, SysUtils, Classes, HTTPApp;

type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
WebModule1: TWebModule1;

implementation

{$R *.DFM}

uses
ExtCtrls, StdCtrls, Controls, Forms, Graphics, JPEG;

procedure GetPaths(Request: TWebRequest; var ScriptPath, LocalPath : String);
var
ScriptFileName : String;
begin
ScriptPath := Request.ScriptName;
ScriptFileName := ExtractFileName(ParamStr(0));
// Chop off the EXE/DLL name so that we get the path
Delete(ScriptPath,Pos(ScriptFileName,ScriptPath)-1,Length(ScriptFileName)+1);
// Chop off leading '/'
Delete(ScriptPath,1,1);

LocalPath := ExtractFilePath(ParamStr(0));
// Chopping off the ScriptPath gives us the root path
Delete(LocalPath,Pos(ScriptPath,LocalPath)-1,Length(ScriptPath)+1);
end;

procedure SetVariable(var S : String; const Value, Default : String);
begin
S := Value;
if S = '' then
S := Default;
end;

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
ScriptPath,
LocalPath,
FileName,
Txt, FontColor,
BackgroundColor,
FontName,
FontSize : String;
Today, LastEver,
Ever, LastToday : Integer;
LastDate : TDate;
MS : TMemoryStream;
Panel : TPanel;
Memo : TMemo;
Bitmap : TBitmap;
Form : TForm;
fp : TextFile;
begin
GetPaths(Request,ScriptPath,LocalPath);
LocalPath := LocalPath+'counters\';

with Request.QueryFields do begin
FileName := LocalPath+Values['FileName']+'.txt';
SetVariable(Txt,Values['Txt'],'You are visitor %d today, and %d ever.');
SetVariable(FontName,Values['FontName'],'Arial');
SetVariable(FontSize,Values['FontSize'],'10');
SetVariable(FontColor,Values['FontColor'],'clWhite');
SetVariable(BackgroundColor,Values['BackgroundColor'],'clBlack');
end;
try
// Write a new empty counter file if it doesn't exist
if not FileExists(FileName) then begin
AssignFile(fp,FileName);
Rewrite(fp);
WriteLn(fp,0);
WriteLn(fp,Date);
WriteLn(fp,0);
CloseFile(fp);
end;

// Read the old counter values
AssignFile(fp,FileName);
Reset(fp);
ReadLn(fp,LastEver);
Ever := LastEver+1;
ReadLn(fp,LastDate);
ReadLn(fp,LastToday);
if Date = LastDate then
Today := LastToday+1
else
Today := 1;
CloseFile(fp);

// Write the new counter values
AssignFile(fp,FileName);
Rewrite(fp);
WriteLn(fp,Ever);
WriteLn(fp,Date);
WriteLn(fp,Today);
CloseFile(fp);

Form := TForm.Create(nil);
with Form.Font do begin
Name := FontName;
Size := StrToInt(FontSize);
end;
Txt := Format(Txt,[Today,Ever]);
Panel := TPanel.Create(nil);
with Panel do begin
BevelInner := bvRaised;
BevelOuter := bvLowered;
Parent := Form;
Width := Form.Canvas.TextWidth(Txt)+9;
Height := Form.Canvas.TextHeight(Txt)+9;
end;
Memo := TMemo.Create(nil);
with Memo do begin
Top := 2;
Left := 2;
Width := Panel.Width-5;
Height := Panel.Height-5;
Alignment := taCenter;
Color := StringToColor(BackgroundColor);
BorderStyle := bsNone;
Parent := Panel;
end;
Bitmap := TBitmap.Create;
with Bitmap do begin
Width := Panel.Width-1;
Height := Panel.Height-1;
Canvas.Lock;
Panel.PaintTo(Canvas.Handle,0,0);
Canvas.Unlock;
Canvas.Brush.Style := bsClear;
with Canvas.Font do begin
Name := FontName;
Size := StrToInt(FontSize);
Color := StringToColor(FontColor);
end;
Canvas.TextOut(4,3,Txt);
end;
with Response do begin
MS := TMemoryStream.Create;
with TJPEGImage.Create do begin
CompressionQuality := 75;
Assign(Bitmap);
SaveToStream(MS);
Free;
end;
ContentType := 'image/jpeg';
MS.Position := 0;
SendResponse;
SendStream(MS);
end;
Panel.Free;
Bitmap.Free;
Form.Free;
except
on E: Exception do
Response.Content := E.Message;
end;
Handled := True;
end;

end.