아래 소스참조해 주세요..

음 ActiveX Form을 가지고 있는데요.. 제가 만든건 기본폼은 웹에 붙어 있고 링크되어 있는거를 클릭하면 새로운 창이 떠서 ActiveForm에 있는 WindowMedia가 플레이가 됩니다. 그런데 중요한건 이 창을 닫을 때 IE를 리로딩해야 되는데.. 어떻게 해야되나요..

음.. 참고사이트는 http://www.dreamok.net입니다. 현재 강좌는 무료입니다. 함 보시고 가르쳐 주세요.. 그리고 또하나 ActiveMovie에서 시작시점과 끝나는 시점을 알고 싶습니다. 그래야 강의 들은 시간을 알 수가 있겠죠..







unit MediaMain;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, OleCtrls, MediaPlayer_TLB, ExtCtrls, urlmon;



type

TMF = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

CloseButton: TImage;

PlayButton: TButton;

MediaBack: TPanel;

AM: TActiveMovie;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure CloseButtonClick(Sender: TObject);

procedure PlayButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

MF: TMF;

Vod_name,epit_name,unit_name,Sam_Vod,url,MainUrl : string;

playstate : boolean;



implementation



uses MainForm, DataModule;



{$R *.dfm}



procedure TMF.FormCreate(Sender: TObject);

begin

PlayButtonClick(Sender);

end;



procedure TMF.FormClose(Sender: TObject; var Action: TCloseAction);

begin

AM.Stop;

end;



procedure TMF.CloseButtonClick(Sender: TObject);

begin

HlinkNavigateString(parent,'http://www.dreamok.net'); <-여기와 아래 주석처리하다가 못했음...

{*

MainUrl := 'http://www.dreamok.net/sukang/sukang_main.asp?epit_num=' + sEpit_num +

'&offer_epit_num=' + sOffer_Epit_num;

HlinkSimpleNavigateToString(MainUrl,nil,'_parent',nil,nil,nil,0,0);

*}

Close;

end;



procedure TMF.PlayButtonClick(Sender: TObject);

begin

DM := TDM.Create(nil);

if sMode = 'sukang' then

begin

url := 'mms://vod.dreamschool.co.kr/ItDreamok/VOD/';

DM.ITClientSet.Close;

DM.ITClientSet.CommandText := 'select * from vi_teach_data where offer_unit_num='

+ sOfferUnit;

DM.ITClientSet.Open;

Vod_Name := DM.ITClientSet.FieldByName('VOD_Name').Value;

if Vod_Name <> '' then

begin

AM.FileName := Url + Vod_name;

AM.AutoStart := True;

end

else showMessage('준비된 강좌가 없습니다.');

end; //수강생 VOD 보기



if sMode = 'histroy' then

begin

url := 'mms://vod.dreamschool.co.kr/ItDreamok/VOD/';

DM.ITClientSet.Close;

DM.ITClientSet.CommandText := 'select * from vi_teach_data where offer_unit_num='

+ sOfferUnit;

DM.ITClientSet.Open;

Vod_Name := DM.ITClientSet.FieldByName('VOD_Name').Value;

if Vod_Name <> '' then

begin

AM.FileName := Url + Vod_name;

AM.AutoStart := True;

end

else showMessage('준비된 강좌가 없습니다.');

end; //수강생 VOD 보기



if sMode = 'kangsa' then

begin

url := 'mms://vod.dreamschool.co.kr/ItDreamok/VOD/';

DM.ITClientSet.Close;

DM.ITClientSet.CommandText := 'select * from vi_unit_list where epit_num=' +

sEpit + ' and ' + 'unit_num=' + sOfferUnit;

DM.ITClientSet.Open;

Vod_Name := DM.ITClientSet.FieldByName('VOD_Name').Value;

if Vod_Name <> '' then

begin

AM.FileName := Url + Vod_name;

AM.AutoStart := True;

end

else showMessage('준비된 강좌가 없습니다.');

end; // 강사 VOD 보기



if sMode = 'sample' then

begin

url := 'mms://vod.dreamschool.co.kr/ItDreamok/smavod/';

DM.ITClientSet.Close;

DM.ITClientSet.CommandText := 'select * from vi_sam_data where epit_num=' + sEpit;

DM.ITClientSet.Open;

Sam_Vod := DM.ITClientSet.FieldByName('sam_vod_name').Value;

if Sam_Vod <> '' then

begin

AM.FileName := Url + Sam_Vod;

AM.AutoStart := True;

end

else ShowMessage('준비된 샘플 강좌가 업습니다.');

end;

DM.Free;



end;



end.