Цитата(Артемий @ 6.07.2006 17:48)
Куда его вставлять? В TListView?
Ну, зачем же в TListView? Совсем не обязательно. Ты хочешь получить какую-то информацию о файле? Можешь отобразить ее в ShowMessage. Брось на форму TMediaPlayer + TButton + TOpenDialog и используй код вот так:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer; type TForm1 = class(TForm) MediaPlayer1: TMediaPlayer; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure GetProperties(FileName: String; var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GetProperties(FileName: String; var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer); begin MediaPlayer1.FileName := FileName; MediaPlayer1.Wait := False; MediaPlayer1.Open; MediaPlayer1.TimeFormat := tfFrames; MediaFrames := MediaPlayer1.Length; MediaPlayer1.TimeFormat := tfMilliseconds; MediaLength := MediaPlayer1.Length; MediaPlayer1.DisplayRect := Rect(1, 1, 0, 0); MediaWidth := MediaPlayer1.DisplayRect.Right; MediaHeight := MediaPlayer1.DisplayRect.Bottom; if (MediaWidth <= 0) or (MediaHeight <= 0) then begin MediaWidth := 0; MediaHeight := 0; end; MediaPlayer1.Close; end; procedure TForm1.Button1Click(Sender: TObject); var mmFrames, mmLength, mmWidth, mmHeight: integer; begin If opendialog1.Execute then begin GetProperties(opendialog1.FileName, mmFrames, mmLength, mmWidth, mmHeight); showmessage(opendialog1.FileName + ' ->' + ' frames: ' + inttostr(mmFrames) + ' length: ' + inttostr(mmLength) + ' width: ' + inttostr(mmWidth) + ' height: ' + inttostr(mmHeight)); end; end; end.
Можно и в Memo весь вывод направить, если хочешь сохранить информацию (MessageBox же удалится...)