воспроизведение видео из exe

[bemm]

Добрые люди, кто-нибудь знает как воспроизвести видео, "запиханного" с помощь ресурса в exe файл?

[Человек_Борща]

Извлекать видео из ресурса и воспроизводить его.

[bemm]

а нельзя поподробней, если не сложно? :-)

[Человек_Борща]

var
  ResHandle: THandle;
  MemHandle: THandle;
  MemStream: TMemoryStream;
  ResPtr: PByte;
  ResSize: Longint;
begin
  ResHandle := FindResource(hInstance, PChar('Название'), 'Тип данных');
  MemHandle := LoadResource(hInstance, ResHandle);
  ResPtr := LockResource(MemHandle);
  MemStream := TMemoryStream.Create;
  ResSize := SizeOfResource(hInstance, ResHandle);
  MemStream.SetSize(ResSize);
  MemStream.Write(ResPtr^, ResSize);
  FreeResource(MemHandle);
  MemStream.Seek(0, 0);
  {Тут загружаем файл из потока MemStream}
  MemStream.Free;

[bemm]

не матерись сильно)))
{Тут загружаем файл из потока MemStream} это что? и как там че заргужать?

[Человек_Борща]

Ну, это воспроизведение видео из потока(из памяти), т.к. файл не сохранён.

Вот извлечение в папку назначения, написал спец. для твоего случая:

Procedure SaveResToFile(ResName,ResDataType,SaveDestination:string);
var
  ResHandle: THandle;
  MemHandle: THandle;
  MemStream: TMemoryStream;
  ResPtr: PByte;
  ResSize: Longint;
begin
MemStream := TMemoryStream.Create;
try
  ResHandle := FindResource(hInstance, PChar(ResName), PChar(ResDataType));
  MemHandle := LoadResource(hInstance, ResHandle);
  ResPtr := LockResource(MemHandle);
  ResSize := SizeOfResource(hInstance, ResHandle);
  MemStream.SetSize(ResSize);
  MemStream.Write(ResPtr^, ResSize);
  FreeResource(MemHandle);
  MemStream.Seek(0, 0);
  MemStream.SaveToFile(SaveDestination);
finally
  MemStream.Free;
  end;
end;

Допустим:
myJPEG.rc:

SMI JPEG "SDT.jpg"

Собираем ресурс(там картинка).

Далее юзаем процедуру:

//Извлекаем картинку из ресурсов , в папку e:\Video\
SaveResToFile('SMI','JPEG','E:\Video\');

[MalishOK]

для тех, кому еще позже понадобится. Проблема решена данным способом:
1) Через блокнот создается файл определения ресурса (Resource Definition) (текстовый) с именем, скажем, myavi.rc (с обязательным расширением RC).
2) Затем он компиируется через brcc32
3) Осталось подключить его:

uses ...,ShellAPI;

implementation

{$R *.DFM}
{$R C:\MyAVI.res}

procedure TForm1.FormCreate(Sender: TObject);
var
  sei: TShellExecuteInfo;
  ResStr: TResourceStream;
begin
  ResStr:= TResourceStream.Create(HInstance, 
                            'AVI_1', PChar('AVIVIDEO'));
  try
    ResStr.SaveToFile('Temp.avi');
    ZeroMemory(@sei, SizeOf(sei));
    with sei do
    begin
      cbSize := SizeOf(sei);
      fMask  := SEE_MASK_NOCLOSEPROCESS or 
                SEE_MASK_INVOKEIDLIST
      Wnd   := Form1.Handle;
      lpVerb := 'open';
      lpFile := PChar('Temp.avi');
      nShow := SW_SHOWNORMAL;
    end;
    ShellExecuteEX(@sei);  
  finally
    ResStr.Free;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if FileExists('Temp.avi') then 
    DeleteFile('Temp.avi');
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.