Как получить JPEG из одного кадра flash ролика

[henza]

Есть ли какой либо Сom объект с помощью которого можно получить JPEG файл из одного кадра flash ролика.

[leybniz]

Зачем тут COM это же элементарно:
кидаеш на форму Flash ActiveX, под именем Panel
грузиш в него ролик, далее делаеш Panel.GotoFrame(1);
далее соскребаеш с экрана BMP и кладеш в JPG.

Uses Jpeg;

Var bmp : TBitmap;
    jpg : TJpegImage;
    dc : HDC;
begin
     bmp := TBitmap.Create;
     bmp.Width:=Panel.Width;
     bmp.Height:=Panel.Height;
     dc:=GetDC(Panel.Handle);
     bitblt(bmp.Canvas.Handle, 0, 0, Panel.Width, Panel.Height,
      DC, 0, 0, SRCCOPY);
    
     // JPEG
        Begin
          jpg := TJpegImage.Create;
          jpg.Assign(bmp);
          jpg.SaveToFile(changefileext(SPD.FileName,'.jpg'));
          jpg.Free
        end;
    // BMP
       bmp.SaveToFile(changefileext(SPD.FileName,'.bmp'));
      bmp.Free;
end;

[henza]

К сожалению в моем случае вариант грабить с экрана не годится

[pogga]

а как насчет импорта во флеш, а потом экспорта жпегом.

ЗЫ: "защита от импорта" ведь тоже не броня