avi File Name 을 DB 에 저장하고 DBGrid 에 올라온 자료를 더블클릭시에
현재 선택된 avi File 을 Mediaplayer 를 이용하여 실행하려고 합니다.
디자인시에 각각의 avi file 을 Mediaplayer 의 FileName속성에 연결하여
실행하면 입력된 avi file 에 대해서는 정상적으로 동작이 됩니다.
하지만 다른 file 을 더블클릭을 이용하여 선택하면 동작이 되지 않는 이유를
알고 싶습니다. 꼭 부탁드립니다.
제가 기술한 더블클릭의 Event 내용입니다.
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
Field : TField;
ls_FindValue : string;
ls_FullName : string;
begin
Field := Query1.FieldByName('FileName');
ls_FindValue := Field.AsString;
medplay.FileName := 'c:에버랜드avi' + ls_FindValue+ '.avi';
panel1.Caption := medplay.FileName;
medplay.AutoOpen := TRUE;
end;
그리고 이렇게 해보세요.
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
Field : TField;
ls_FindValue : string;
ls_FullName : string;
begin
Field := Query1.FieldByName('FileName');
ls_FindValue := Field.AsString;
medplay.Close;
medplay.FileName := 'c:에버랜드avi' + ls_FindValue+ '.avi';
panel1.Caption := medplay.FileName;
medplay.Open;
end;
구상도 wrote:
> avi File Name 을 DB 에 저장하고 DBGrid 에 올라온 자료를 더블클릭시에
>
> 현재 선택된 avi File 을 Mediaplayer 를 이용하여 실행하려고 합니다.
>
> 디자인시에 각각의 avi file 을 Mediaplayer 의 FileName속성에 연결하여
>
> 실행하면 입력된 avi file 에 대해서는 정상적으로 동작이 됩니다.
>
> 하지만 다른 file 을 더블클릭을 이용하여 선택하면 동작이 되지 않는 이유를
>
> 알고 싶습니다. 꼭 부탁드립니다.
>
> 제가 기술한 더블클릭의 Event 내용입니다.
>
> procedure TForm1.DBGrid1DblClick(Sender: TObject);
> var
> Field : TField;
> ls_FindValue : string;
> ls_FullName : string;
> begin
> Field := Query1.FieldByName('FileName');
> ls_FindValue := Field.AsString;
>
> medplay.FileName := 'c:에버랜드avi' + ls_FindValue+ '.avi';
> panel1.Caption := medplay.FileName;
> medplay.AutoOpen := TRUE;
> end;
>