Flash и Delphi

[Donor]

Подскажите, пожалуйста! Как значение какой-то переменной (число) передать в Delphi. Пробую через fscommand, а передается не однозначное число, а многозначное и вообще непонятно откуда взятое. Может кто-нибудь, что-нибудь посоветует? За ранее благодарю.

[etc]

А что за переменную ты передаешь? И как оно выглядит?

[Donor]

Вообщем, у меня тест с оценкой. Эта оценка (2-5) присваивается той переменной. Так как я проигрываю Flash-ролик в Delphi, Delphi является непосредственной средой разработки. Мне необходимо передать значение переменой, т.е. результат тестирования, в дельфу, что бы во-первых подсчитать общее кол-во баллов, а во-вторых контролировать и естественно сохранять в базе. Все это легко сделать в Delphi и сложнее во Flash, поэтому мне проще работать с переменной уже в Delphi. Это судь задания, проблема в другом. Fscommand конечно хорошая команда, что касается каких-либо конкретных действий (развернуть, свернуть и т.д.), даже просто какой-либо Click переданный в дельфу, там уже можно написать любое действие, к примеру

procedure TMain.ShockwaveFlash1FSCommand(ASender: TObject; const command,
  args: WideString);
begin
if command  =  'Click' then
      begin
      Main.Hide;
     Vvod.Show ;
     end
end;

Соответственно во Флеш кнопка:

on (release) {
	fscommand("Click");
}

А вот переменная…, она постоянно меняется…, что с ней делать не знаю. Я думаю и очень надеюсь, что я Вас правильно поняла и Вы меня тоже.

[etc]

Я Delphi не знаю, вообще говоря, но вторым параметром в fscommand идут аргументы к функции, которые можно получить в обработчике, в данном случае в args, как я понял.
И не увидел я тут никакой передачи переменной.

[Donor]

А здесь и нет никакой передачи. Я и спрашиваю о чем, как это сделать. Т.е. мне нужно добавить эту переменную

on (release) {
fscommand("Click", <переменная>);
}

Я правильно поняла? Ну вообщем надо попробовать… В любом случае огромное спасибо.

[miramax]

Посмотри в доке ExternalInterface, с дельфи не работал, точно не знаю как там реализовать.

[etc]

Сообщение от Donor

Я правильно поняла?

Да. А ещё, действительно, почитай про ExternalInterface.

[techno]

Этот ваш код работает? можно же передать соманду типа

on (release) {
fscommand("Click?"+param);
}

А потом обработать в делфи:

procedure TMain.ShockwaveFlash1FSCommand(ASender: TObject; const command,
  args: WideString);
begin
if (pos(command, 'Click?')=1) then
      begin
       peremennaya:=copy (command,7,10000);
      Main.Hide;
     Vvod.Show ;
     end
end;

[etc]

techno, за такие советы руки отрывать нужно.
В fscommand можно передавать аргументы.

[techno]

не надо мне руки отрывать, а то аватар сгрызу
А какая разница? флешу и делфи все равно, а так может еще и работать будет.