VPF::Создание делфи приложений - Форум программистов

Turgenev

Дата 26.11.2012, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 26.11.2012

Репутация: нет
Всего: нет

подскажите, а можно ли созданную прогу закинуть на сайт и чтобы когда переходишь по адресу сайта сразу запускалась эта программа в окне браузера? Что то типа браузерных игр, только эта прога написана на делфи.
И подскажите можно ли при создании анимации с помощью Bitmap и одного объекта image на форме сделать так, чтобы был фон и была картинка, которая будет убегать от курсора

Данкинг

Дата 26.11.2012, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Turgenev @ 26.11.2012, 22:48

)

и чтобы когда переходишь по адресу сайта сразу запускалась эта программа в окне браузера?

Наверное, можно при открытии странички .html запускать прогу на страничке, только при чём здесь раздел по Дельфи?

Цитата(Turgenev @ 26.11.2012, 22:48

)

И подскажите можно ли при создании анимации с помощью Bitmap и одного объекта image на форме сделать так, чтобы был фон и была картинка, которая будет убегать от курсора

Image1MouseMove ?

--------------------

There's nothing left but silent epitaphs.

northener

Дата 27.11.2012, 01:00 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Turgenev @ 26.11.2012, 21:48

)

подскажите, а можно ли созданную прогу закинуть на сайт и чтобы когда переходишь по адресу сайта сразу запускалась эта программа в окне браузера?

Дельфи-приложения не заточены на исполнение "в окне браузера". Для создания "браузерных игр" есть гораздо более подходящие языки программирования и средства разработки.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Poseidon

Дата 27.11.2012, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(Turgenev @ 26.11.2012, 21:48

)

можно ли созданную прогу закинуть на сайт и чтобы когда переходишь по адресу сайта сразу запускалась эта программа в окне браузера?

Подобное действие не даст выполнить не один браузер. Это как бы противоречит безопасности. Откуда браузер знает что это твоя хорошая программа, а не вирус?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Turgenev

Дата 27.11.2012, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 26.11.2012

Репутация: нет
Всего: нет

Цитата

При том, что прога будет написана на Делфи и вряд ли можно просто закинуть прогу на сервер и она будет работать, да? Я думаю надо все же что-нибудь в коде сделать... Я вообще представления не имею к сожалению, поэтому и обратился к людям знания имеющие.

Цитата

Image1MouseMove ?

Привожу код проги, которую описывал в первом сообщении и вопрос: как применить для второй картинки (korb) Image1MouseMove или подскажите как по-другому сделать чтобы картинка(korb) убегала от курсора но плавно, а не рывками? Просто прибавлять к координатам картинки числа не подойдет.

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   fon:tbitmap;
  KORB:TBITMAP;
  x:integer;
  shx:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
shx:=6;

fon:=tbitmap.Create;
korb:=tbitmap.Create;

fon.LoadFromFile('fon.bmp');
korb.LoadFromFile('korb.bmp');

korb.transparent:=true;

image1.Canvas.Draw(0,0,fon);
image1.Canvas.Draw(x,60,korb);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+shx;
if x>500 then shx:=shx*-1;
if x<0 then shx:=shx*-1;
image1.Canvas.Draw(0,0,fon);
image1.Canvas.Draw(x,60,korb);
end;


end.

Цитата

Poseidon, я вот не пойму... разъясни как так ни один браузер. Неужели нельзя пользователю добавить прогу в исключения, в доверительную зону и прочее и подобное, если заранее точно известно что прога без вирусов? Тем более ведь в принципе то проги запускаются через браузер, а моя сразу возможно вирус.
И подскажите хотя бы где прочитать про организацию взаимодействия программы с нэтом? Например имеем 2 проги на разных компьютерах и с помощью них возможно было переписываться между этими компьютерами

Это сообщение отредактировал(а) Turgenev - 27.11.2012, 20:18

bems

Дата 28.11.2012, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

M
bems

Один топик — один вопрос!

Пожалуйста, ознакомьтесь с правилами форума.

Тема закрыта. Создайте по одной теме для каждого интересующего вас вопроса.

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »