/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 754
от 19.03.2007, 02:35

Вопрос № 78.063

Здраствуйте ув. експерты ! Мне нужно зделать примерно так : В программу например должно подгружатся что то типа длл что ли после этого в меню делжен добавтится пункт который бы запускал эту дллку ! что б пункт оставался после закрытия программы ! Посоветуйте как это зделать ! Или дайте какиенибудь ссылки ! Спасибо заранее !

Отправлен: 13.03.2007, 08:52 Вопрос задал: VaNuk (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: monah Здравствуйте, VaNuk! Все формируется как Plugin. В самой DLL создаете функцию с заранее известной структурой. В нее передаете адрес некой процедуры в основной программе. В дальнейшем из DLL вызываете эту процедуру с параметрами 'Заголовок':PChar; и указатель на обработчик onClick а в процедуре добавляете в меню пункт с переданным заголовком и связывете событие onClick с обработчиком. --------- festina lente

Ответ отправил: monah (статус: Студент) Ответ отправлен: 14.03.2007, 06:56

Вопрос № 78.093

Как создать игру на базе Delphi, дайте практические советы?

Отправлен: 13.03.2007, 12:33 Вопрос задал: Иркабаев Вадим (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: AlexanderR Здравствуйте, Иркабаев Вадим! Все современные игры используют 3d графикy. Основными интерфейсами для создания 3d являются OpenGL и DirectX. Наиболее перспективным является использование DirectX, т.к. этот программный пакет постоянно обнавляется и поддерживается производителями видеокарт. Для Delphi существует набор компонентов для работы с DirectX. Называется DelphiX. Думаю начать свое изучение вы можете, например отсюда: http://www.gamedev.ru/users/hex/articles/DelphiX --------- Если ты хочешь понять я тебе помогу, но я не буду выполнять за тебя твою работу.

Ответ отправил: AlexanderR (статус: 2-ой класс) Ответ отправлен: 13.03.2007, 14:24 Оценка за ответ: 4

Отвечает: Zolton007 Здравствуйте, Иркабаев Вадим! Вы бы написали какую игру =) если кресики-нолики.... то тут надо тока ознакомиться с TStringGrid и логикой. Если ты хочешь сделать движок для 3-D графики, то надо читать книжки по OpenGL, DirectX и т.п. или можно еще скачать готовый движок, написанный на делфе и править и дополнять код. --------- Если твоя программа выполняет мистические действия, - значит ты сделал что-то невероятно тупое!

Ответ отправил: Zolton007 (статус: 6-ой класс) Ответ отправлен: 13.03.2007, 20:14 Оценка за ответ: 3

Вопрос № 78.115

Здрасте! Как в Делфи с панели задач убрать вкладку программы? то есть чтобы программу можно было закрыть только с помощью диспетчера задач (готивимся к 1 апреля! хотим сотрудников разыграть)

Отправлен: 13.03.2007, 14:38 Вопрос задал: Shtuchka007 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik Здравствуйте, Shtuchka007! Убрать заголовок с панели задач достаточно применить функцию ShowWindow();, с параметром SW_HIDE, если необходимо вернуть его к "жизни" то просто параметр заменяем на SW_SHOWNORMAL. Но для этого также необходимо знать хендл окна, которое мы прячем, его можно узнать с помощью FindWindow(), единственное что нужно правильно указать так это заголовок окна приложения. В приложении смотрите код, который скрывает программу, так же ещ добавил и возможность блокировки кнопки "крестик", по нажатию на которую происходит закрытие приложения. (заголовок приложения вводим в Edit1) Good Luck!!! Приложение: procedure TForm1.Button2Click(Sender: TObject); var h:HWND; begin h:=FindWindow(nil,PChar(Edit1.Text)); //ищем хендл жертвы Windows.EnableMenuItem(GetSystemMenu(h, False),SC_CLOSE, MF_DISABLED or MF_GRAYED);//блокируем кнопку "закрыть" ShowWindow(h,SW_HIDE); //скрываем приложение.. ;) end; --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 13.03.2007, 15:47

Вопрос № 78.134

Здрасвуйте уважаемые эксперты. Подскажите формат данных процедуры DeviceIoControl

Отправлен: 13.03.2007, 17:11 Вопрос задал: Писарев, Павел, Юрьевич (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gh0stik Здравствуйте, Писарев, Павел, Юрьевич! DeviceIoControl PROTO hDevice:DWORD, dwIoControlCode:DWORD, lpInBuffer:DWORD, nInBufferSize:DWORD, lpOutBuffer:DWORD, nOutBufferSize:DWORD, lpBytesReturned:DWORD, lpOverlapped:DWORD где: hDevice - хэндл VxD полученный от функции CreateFile. dwIoControlCode - задает операцию, которую должен выполнить VxD. Вы должны сначала получить список возможных кодов операций, которые может выполнять VxD. lpInBuffer - адрес буфера, содержащего данные, необходимые VxD при выполнении операции, указанной в dwIoControl. Если операция не требует данных это значение должно быть NULL. nInBufferSize - размер в байтах буфера lpInBuffer. lpOutBuffer - адрес буфера, в который VxD будет помещать выходные данные. Если операция не требует выходных данных это значение должно быть NULL. nOutBufferSize - размер в байтах буфера lpOutBuffer. lpBytesReturned - адрес двойного слова, которое содержит размер данных, помещенных в lpOutBuffer. lpOverlapped - адрес структуры OVERLAPPED, если Вы хотите использовать асинхронные операции. Если Вы хотите подождать, пока операция не завершится, поместите сюда NULL. http://content.mail.ru/ Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 13.03.2007, 23:48

Вопрос № 78.135

Доброе время суток эксперты. Помогите мне, уж не знаю что делать. Исходник ниже. Картинка http://slil.ru/24072711 около 50 килобайт. Мне нужно двигать эту картинку по экрану но чтобы предыдущаю копия затиралась. У меня что-то не получается. И не предлагайте исп. TImage, нужно Canvas. И вот ещё вопрос. Когда сетка нарисовалась двигаеш окно за границу экрана и обратно и весь рисунок нарисованный канвой стирается. Как от этого избавиться. Спасибо. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) Button1: TButton; StatusBar1: TStatusBar; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; // Форма; Bitmap, Back: TBitmap; // Объекты типа TBitmap; BufRect, BackRect: TRect; // Объекты типа TRect; pic_wid, pic_hei: integer ; // ширина и высота картинки; x0,y0: integer; // координаты появления сетки; var_x, var_y:integer; // вспомогательные переменные; dx,dy: integer; // ширина и высота клеток; count_x, count_y: integer; // количество линий i,a,b: integer; // счётчик; ran_x, ran_y: integer; // случайные координаты; ran_direction: integer; // случайное направление; abs_x, abs_y: integer; // абсолютные координаты; pred_abs_x, pred_abs_y: integer; //; steps: integer; // количество шагов implementation {$R *.dfm} procedure Sdvig(Canvas:TCanvas); begin // Сначала востанавливаем фон а потом рисуем в новом месте картинку, // т.к. в противном случае фон перекроет часть картинки //* Где то здесь собака зарыта BufRect:=Bounds(abs_x-19,abs_y-19,pic_wid,pic_hei); // источник BackRect:=Bounds(0,0,pic_wid,pic_hei); // умещаем в такой буфр размера картинку Back.Canvas.CopyRect(BackRect,Canvas,BufRect); Canvas.Draw(abs_x-19,abs_y-19,Back); // востанавливаем фон //* Canvas.Draw(abs_x-19,abs_y-19,Bitmap); //рисуем на новом месте // Это точно 100% end; procedure TForm1.Button1Click(Sender: TObject); begin Refresh; // Очвежили форму; Randomize; // Инициализировали генератор случайных чисел; x0:=20; // начало сетки (подобрано) завсит от картинки y0:=20; // начало сетки (подобрано) зависит от картинки dx:=30; dy:=30; count_x:=10; count_y:=10; var_y:=y0; var_x:=x0; ran_x:=random(count_x+1); ran_y:=random(count_y+1); for i:=0 to count_y do // begin Canvas.MoveTo(var_x,var_y); Canvas.LineTo(count_x*dx+var_x,var_y); inc(var_y,dy); end; var_x:=x0; var_y:=y0; for i:=0 to count_x do begin Canvas.MoveTo(var_x,var_y); Canvas.LineTo(var_x,count_y*dy+var_y+1); inc(var_x,dx); end; abs_x:=x0+ran_x*dx; abs_y:=y0+ran_y*dy; Canvas.Ellipse(abs_x-5,abs_y-5,abs_x+6,abs_y+6); Canvas.Pixels[abs_x, abs_y]:=clRed; Bitmap:=TBitmap.Create; Back:=TBitmap.Create; Bitmap.LoadFromFile('c:p1.bmp'); Bitmap.Transparent:=True; Bitmap.TransparentColor:=Bitmap.Canvas.Pixels[0,0]; pic_wid:=Bitmap.Width; pic_hei:=Bitmap.Height; Back.Width:=pic_wid; // необязатеьно Back.Height:=pic_hei; // необязательно pred_abs_x:=abs_x; pred_abs_y:=abs_y; steps:=10; for i:=1 to 4 do begin ran_direction:=random(1); case ran_direction of 0: begin abs_x:=abs_x-dx-dx; Sdvig(Canvas); // pred_abs_x:=abs_x; //??????????????????????????? end; 1: begin // abs_x:=abs_x+dx; // Sdvig(Canvas); end; 2: begin // abs_y:=abs_y-dy; // Sdvig(Canvas); end; 3: begin // abs_y:=abs_y+dy; // Sdvig(Canvas); end; end; for a:=1 to 10000 do for b:=1 to 1000 do end; end; end.

Отправлен: 13.03.2007, 17:17 Вопрос задал: Александр Михайлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Маренич Владимир Здравствуйте, Александр Михайлович! Нельзя где попало рисовать на канве... В Винде существует специальный механизм для рисования. И надо его придерживаться. Borland в Delphi для формы (TForm) специально предназначил событие для дополнительного рисования на канве. Он вызывается тогда, когда этого требует Виндовс (соотв. событие). Можно "попросить" Винду перерисовать окошко с помощью метода Invalidate. Можно также отработать соответствующие сообщения для прорисовки (метод Update). А можно и то и другое в одном флаконе (метод Refresh). См. приложение. Может Вам это поможет. Удачи. Приложение: unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm5 = class(TForm) Button1: TButton; procedure FormPaint(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private Image: TGraphic; ImagePos: TPoint; public { Public declarations } end; var Form5: TForm5; implementation {$R *.dfm} procedure TForm5.FormPaint(Sender: TObject); begin Canvas.Draw(ImagePos.X, ImagePos.Y, Image); end; procedure TForm5.Button1Click(Sender: TObject); var x: integer; begin x:=0; while x<ClientWidth-Image.Width do begin ImagePos.X:=x; inc(x, 2); Refresh; Sleep(20); end; while x>=0 do begin ImagePos.X:=x; dec(x, 2); Sleep(5); Refresh; end; end; procedure TForm5.FormCreate(Sender: TObject); begin Image:=TBitmap.Create; Image.LoadFromFile('d:p1.bmp'); ImagePos.Y:=50; end; procedure TForm5.FormDestroy(Sender: TObject); begin Image.Free; end; end.

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 13.03.2007, 21:03

Вопрос № 78.154

Здравствуйте Уважаемые Эксперты! Подскажите пожайлуста, нужно сделать на Delphi будильник. СОбственно инетерсует сама работа с временем, как его отслеживать, проверять наступил ли заданный час. Может кто может помочь ссылкой на материал в интеренете, или ещё чем. P.S.И тут деньги ввели, кошмар...Уже вопрос бесплатно не задать...

Отправлен: 13.03.2007, 20:24 Вопрос задал: Ustas (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Ustas! Ложите на форму объект TTimer с вкладки Sustem. Ставите ему Interval:=750. На свойство OnTimer пишете процедуру: if TimeToStr(now)='19:42:45' then showmessage('ВРЕМЯ ВСТАВАТЬ'); Вот и вся идея... Удачи! --------- Ждешь квалифицированного ответа? Задай правильно вопрос!

Ответ отправил: Устинов Сергей Евгеньевич (статус: Практикант) Ответ отправлен: 13.03.2007, 20:37 Оценка за ответ: 5 Комментарий оценки: Благодарю.Кратко.Вежливо.И содержательно.

Отвечает: monah Здравствуйте, Ustas! Для работы с временем есть следующие функции: Time:TDateTime; - возвращает текущее время. Date:TDateTime; - возвращает текущую датту. DecodeDate(Date:TDateTime; var Yar, Month, Day:Word); Разбирает значени даттыж DayOfWeek(Date:TDateTime):integer; - возвращает номер дня недели (Воскресенье -1) DecodeTime(Time:TDateTime; var Hour, Min, Sec,MSec:Word); Разбирает значение времени EncodeDate(Yar, Month, Day:Word):TDateTime; EncodeTime(Hour, Min, Sec,MSec:Word):TDateTime; Добавлю, что тип TDateTime эквивалентен типу Real Следовательно прибавив к значению 1 мы получим следующую датту. --------- festina lente

Ответ отправил: monah (статус: Студент) Ответ отправлен: 14.03.2007, 06:26 Оценка за ответ: 5 Комментарий оценки: Отлично, Благодарю, это пригодиться безусловно.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.46 от 18.03.2007