Помогите, пожалуйста!

[rfgecnf]

Всем привет! Я тут новенкий!  подскажите, пожалуйста как перевести этот код из С++ Builder  в Delphi

Код:

if (OpenDialog1->Execute())
}
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}

Я программист начинающий и лет ме всего 13, но я надеюсь что стану хорошим программистом, жду ответа)

[x77]

1. в С++ название метода (свойства) отделяется от названия класса (объекта) символами "->", а в Dephi - ".".
2. Операторные скобки "{..}" в сях соответствуют "begin..end" в дельфи.
3. Оператор присваивания "=" в сях в дельфи выглядит, как ":=".

Код:

if OpenDialog1.Execute then begin
  MediaPlayer1.FileName := OpenDialog1.FileName;
  MediaPlayer1.Open;
end;

[rfgecnf]

спасибо, а как сделать чтобы он проигрывал больше форматов? и ещё я сделал кнопочку "открыть", но не знаю как сделать чтобы она работала

[x77]

кол-во форматов зависит не от него, а от кол-ва кодеков, установленных в системе. стандартный дельфийский плеер использует функции MCI, т.е. всё, что умеет проигрывать виндовый плеер - умеет и он.

а про кнопочку - я не понял, если честно

[rfgecnf]

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

[x77]

код в студию!

[rfgecnf]

честно) незнаю)) я просто щяс держу в руках журнал "Игромания" так создание медиа плеера в С++!! а у меня дилфи! вот и путаюсь(
а вот этот код

Код:

micSendString("Set cdaudio door open wait", NULL, 0, NULL);

должен открывать CD-Rom а этот:

Код:

micSendString("Set cdauido door closed wait",NULL,0,NULL);

а этот соответственно закрыть, но он неработает! наверно для С++ а как для делфи будет, никто незнает?

[x77]

Код:

unit ...

uses
  ..., MMSystem

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  mciSendString ('Set cdaudio door open wait', nil, 0, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  mciSendString ('Set cdaudio door closed wait', nil, 0, 0);
end;

[x77]

ещё советую глянуть тут:

http://www.iatp.md/virtualka/tema5.html   - стандартный медиплеер дельфей
http://www.itword.net/modules/myarticles/article.php?storyid=43   - импортирование стандартного плеера винды

[rfgecnf]

мм, спасибо, а может ктонить дать сайтик где можно найти какие нить исходные коды? хотелось бы поэкспеременитровать, что нибуть сделать, если ктонить омжет мне помочь в разработки моей игры(текстовой, маленькой) например как эта:http://gamedeveloper.narod.ru/ то помогите, учением ,а)

[rfgecnf]

и как аватару поставить?)

[x77]

rfgecnf, заведи отдельную тему, типа "как написать на дельфи простую игру", и будем писать.

аватара ставится в профиле.

[x77]

кстати, я бы не советовал начинать освоение программирования с написания подобного тому, что делает уважаемый автор gamedeveloper'а.

[rfgecnf]

хорошо!, спасибо!