Вопрос № 103264: Здравствуйте, уважаемые эксперты!!!! Мне необходимо в Delphi вставить ролики, созданные в Macromedia Flash, можно ли их добавить в swf формате и как? Если же это игрушка флэшевская? Спасибо......Вопрос № 103371: Уважаемые эксперты,
Возник вопрос с казалось бы безобидным компонентом
SaveDialog
пока сижу разбираюсь, но может кто подскажет быстрее.
у меня SaveDialog и в Фильтре несколько расширений как мне после нажатия на к...
Вопрос № 103.264
Здравствуйте, уважаемые эксперты!!!! Мне необходимо в Delphi вставить ролики, созданные в Macromedia Flash, можно ли их добавить в swf формате и как? Если же это игрушка флэшевская? Спасибо...
Отправлен: 24.09.2007, 20:27
Вопрос задала: Darling (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: PGM
Здравствуйте, Darling!
Все просто: делаете в Дельфи - Import ActiveX. Выбираете ShockwaveFlash (что 1.0 совершенно неважно, реально будет использоваться та версия, что установлена). Получаете на странице ActiveX нужный компонент - его и используете (ему как раз только SWF и подходят, игрушки проходят как и любые другие - проверено).
P.S. Если надо, чтобы файл SWF был не отдельным, то тогда используете помещение его в ресурсы - как это делать уже не раз спрашивалось и отвечалось где-то здесь.
Ответ отправил: PGM (статус: 10-ый класс)
Ответ отправлен: 24.09.2007, 22:30
Ответ отправил: Louken (статус: Студент)
Ответ отправлен: 25.09.2007, 00:34
Вопрос № 103.371
Уважаемые эксперты,
Возник вопрос с казалось бы безобидным компонентом
SaveDialog
пока сижу разбираюсь, но может кто подскажет быстрее.
у меня SaveDialog и в Фильтре несколько расширений как мне после нажатия на кнопку сохранить узнать какое расширение выбрал пользователь.
Отправлен: 25.09.2007, 18:45
Вопрос задал: Кэр Лаэда (статус: Практикант)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 21)
Отвечает: Виктор Пырлик
Здравствуйте, Кэр Лаэда!
Вот, пользователь сохраняет что-то, и я вижу какой фильтр он выбрал...А уж по индексу не сложно и расширение определить.
procedure TForm1.Button1Click(Sender: TObject);
var s:String;
begin
if SaveDialog1.Execute then
begin
s := 'Выбран:'+ IntToStr(SaveDialog1.FilterIndex)
MessageBox(Handle,PChar(s),'fff',MB_OK);
end;
end;
--------- Если ничего не помогло - надо читать инструкцию
Ответ отправил: Виктор Пырлик (статус: Студент)
Ответ отправлен: 25.09.2007, 19:04 Оценка за ответ: 4 Комментарий оценки: Если честно.. то для меня оказалось сложно, если бы Filter это был какой то набор данных, то можно было определить но filter это строка , нет можно конечно написать парсер но я думаю должен быть другой метод