opciones para grabar un video

[jfgonzalez]

Hola

Resulta que desarrollo una aplicacion que me permita grabar videos de extension .avi, pero lo que me no me cuadra son unas opciones que he visto en otros aplicativos... son las de comprimir el archivo con los codecs que incluye el windows.....
como el el "Intel r" algo codecs de ese tipo

Si me refiero a grabar el avi con otros codecs

Gracias Cadetill

estoy usando el savedialog que viene nativo en Delphi 5

¿Còmo hago para incluir esas opciones en el momento de grabar el archivo?

Muchisimas gracias por su positiva atencion

:confused:

[__cadetill]

si te refieres a como hcer para mostrar en un TSaveDialog varias opciones para grabar, usa la propiedad Filter.

Si te refieres a como grabar un avi con un codec determinado... ni idea

[delphi.com.ar]

Aquí tienes un ejemplo de como "modificar" el TOpenDialog que he bajado ya hace un tiempo de Internet, el tema es que no recuerdo de dónde, por eso te paso el código:

unit TestDialog;

interface

uses Windows, Messages, SysUtils, CommDlg, Classes, Graphics, Controls,
Forms, StdCtrls, Dialogs, ComCtrls, ExtCtrls, Dlgs, CommCtrl;

type
TTestDialog = class(TOpenDialog)
private
FPanel: TPanel;
FStatus: TStatusBar;
protected
procedure DoShow; override;
procedure WndProc(var Message: TMessage); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;

implementation

constructor TTestDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Template := 'YOURDLGTEMPLATE';
Options := [ofHideReadOnly,ofFileMustExist];
FPanel := TPanel.Create( Self );
FStatus := TStatusBar.Create( Self );
end;

destructor TTestDialog.Destroy;
begin
FPanel.Free;
FStatus.Free;
inherited Destroy;
end;

procedure TTestDialog.DoShow;
var
rc: TRect;

begin
GetClientRect(Handle, Rc);

FPanel.BoundsRect := Rc;
FPanel.Left := 424;
FPanel.BevelOuter := bvNone;
FPanel.Width := (Rc.Right - Rc.Left) - FPanel.Left;
FPanel.Caption := 'Hello !';
FPanel.ParentWindow := Handle;

FStatus.Align := alNone;
FStatus.BoundsRect := Rc;
FStatus.Top := FStatus.Top + FStatus.Height - 30;
FStatus.Height := 30;
FStatus.Width := FStatus.Width - FPanel.Width - 2;
FStatus.SimplePanel := True;
FStatus.ParentWindow := Handle;
end;

procedure TTestDialog.WndProc(var Message: TMessage);

function ExtractFileNameOnly( s: String ): String;
var tmp: String;
begin
Result := ExtractFilename( s );
tmp := ExtractFileExt( Result );
if tmp <> '' then
Result := Copy( Result, 1, Length( Result ) - length( tmp ) );
end;

const
AddSize = 150;
cNum = 7;
Control: Array [0..cNum-1] of integer =
( stc3, stc2, //The two label ctrls
edt1, cmb1, //Edit and combo ctrls
IDOK, IDCANCEL, //The dialog buttons
lst1 ); //The Explorer window

var
pLV,LV: HWND;
Style: Longint;
I,pos: integer;
buf: array[0..254] of char;
S: String;
wndDlg,wndCtrl: HWND;
Rc,cRc: TRect;

begin
Message.Result := 0;
case Message.Msg of
WM_INITDIALOG:
begin
wndDlg := GetParent(Handle); // Get a pointer to the parent window.
GetWindowRect(wndDlg,Rc); //Get rect of parent window
// Change the size of parent window according to
SetWindowPos( wndDlg, HWND(NiL), 0, 0,
Rc.right - Rc.left,
Rc.bottom - Rc.top + AddSize,
SWP_NOMOVE );
//Move all controls to a compensate for the new parent size
for i:=0 to cNum-1 do
begin
wndCtrl := GetDlgItem(wndDlg,Control[i]); //Fetch control
GetWindowRect(wndCtrl, cRc); //Get control's rect
MapWindowPoints( 0, wndDlg, cRc, 2 );
if (Control[i] <> lst1) then //For any control except the lst1
//move the control appropriately
SetWindowPos( wndCtrl, HWND(NiL),
cRc.left, cRc.top + AddSize,
0, 0, SWP_NOSIZE )
else //size the folder view control appropriately
SetWindowPos( wndCtrl, HWND(NiL), 0, 0,
cRc.right - cRc.left,
cRc.bottom - cRc.top + AddSize,
SWP_NOMOVE );
end;
end;
WM_NOTIFY:
begin
case POFNotify(Message.LParam)^.hdr.code of
// Can also trap:
// CDN_FILEOK, CDN_FOLDERCHANGE, CDN_HELP, CDN_INITDONE, CDN_SELCHANGE,
// CDN_SHAREVIOLATION, CDN_TYPECHANGE.
CDN_SELCHANGE:
begin
// get the ACTUAL ListView handle (not lst1)
pLV := GetDlgItem( GetParent(Handle), lst2 );
LV := GetDlgItem( pLV, 1 );
Style := GetWindowLong(LV, GWL_STYLE);
Style := Style and (not LVS_TYPEMASK);
Style := Style or LVS_ICON;
SetWindowLong(LV, GWL_STYLE, Style);
// currently selected item
pos := ListView_GetNextItem ( LV, -1, LVNI_ALL or LVNI_SELECTED );
if ( pos <> -1 ) then
begin
ListView_GetItemText( LV, pos, 0, buf, 255 );
S := ExtractFilePath( Filename ) + ExtractFileNameOnly(buf) ;
if FileExists(S + ExtractFileExt( Filename )) then
FStatus.SimpleText := 'File: ' + s + ExtractFileExt( Filename )
else
FStatus.SimpleText := 'Folder: '+s;
end;
end;
end;
end;
end;
inherited WndProc(Message);
end;

end.

Saludos!