VPF::swf и delphi? - Форум программистов

namra

Дата 13.1.2009, 03:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Вывожу swf через ShockwaveFlash1 в делфи. Проблема в том, что если swf размер 800х600, то появляются скроллы, как сделать чтобы swf растягивался только по всему ShockwaveFlash1 с моими заданными размерами на форме и еще одна проблема при разворачивании окна, ShockwaveFlash1 не изменяет свои размеры. Подскажите что делать или через какой-то другой компонент можно?
Нужно позарес совет, срочно нужно сделать обучающее видео в делфи и чтобы много не весило (с avi проблем нет для вывода . но получаются объемные ролики, а вот с swf в делфи не работал)
smile

Это сообщение отредактировал(а) namra - 13.1.2009, 03:39

Romikgy

Дата 13.1.2009, 10:36 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Цитата(namra @ 13.1.2009, 02:38

)

через ShockwaveFlash1 в делфи

это кто ? чет у мя и дельфи 7 и 2009 и не там не там такого нет ....

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 13.1.2009, 12:40 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Romikgy, это вроде ActiveX от Adobe

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

namra

Дата 14.1.2009, 02:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Ну подскажите кто-нибудь smile

Romikgy

Дата 14.1.2009, 10:17 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

код покажи

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rrader

Дата 14.1.2009, 16:55 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Код


unit Unit1;

interface

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

type
  TShockwaveFlash = class(ShockwaveFlashObjects_TLB.TShockwaveFlash)
  protected
    procedure Resize; override;
  end;

  TForm1 = class(TForm)
    { Align - alClient }
    ShockwaveFlash1: TShockwaveFlash;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure OnWMEraseBkgnd(var Msg: TWMEraseBkgnd);
      message WM_ERASEBKGND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TShockwaveFlash }

procedure TShockwaveFlash.Resize;
var
  SavedParent: TWinControl;
begin
  SavedParent := Parent;
  try
    Parent := nil;
    inherited;
  finally
    Parent := SavedParent;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ShockwaveFlash1.Movie := '<MoviePath>';
  ShockwaveFlash1.Play;
end;

procedure TForm1.OnWMEraseBkgnd(var Msg: TWMEraseBkgnd);
begin
  { Чтобы не мерцало }
  Msg.Result := 0;
end;

end.

Это сообщение отредактировал(а) Rrader - 14.1.2009, 16:59

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

Let's do this quickly!
Rest in peace, Vit!

Romikgy

Дата 14.1.2009, 17:01 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Цитата(Rrader @ 14.1.2009, 15:55

)

ShockwaveFlashObjects_TLB

и кто это?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rrader

Дата 14.1.2009, 17:11 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Import ActiveX - ShockWave Flash 1.0

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

Let's do this quickly!
Rest in peace, Vit!

hunterman

Дата 14.1.2009, 17:46 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

если мне не изменяет память есть модифицированный этот компонент, который не так глючит. а размеры надо руками проставлять при ресайзе.

namra

Дата 16.1.2009, 18:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Rrader Спасибо твой код помог, но возник еще вопрос когда просматриваю ролик там всякие полоски появляются, хотя если открывать не через делфи, то качество отличное.

Это сообщение отредактировал(а) namra - 16.1.2009, 18:09

namra

Дата 22.1.2009, 01:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Все тема закрыта, спасибо всем за ответы.

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