Creați avi din secvența jpeg (bmp) ca

Creați AVI din secvența jpeg (bmp) cum?

Este necesar să creați AVI din secvența jpeg (bmp), utilizând unul dintre codec-urile instalate în sistem. În multe programe acest lucru este pus în aplicare, evident un standard un fel de oportunitate - o fereastră apare pentru selectarea codec-ului.






Cine știe să implementeze?

> Cine știe să implementeze?
Ei bine, știu ... deci ce? întrebarea ar trebui să fie pusă mai precis :)

dacă este simplu - căutați o componentă avi_writer, dacă este dificilă - citiți video_for_windows în msdn sau citiți despre directshow


> zinetz_victor # xA0; (13.02.06 11:17) [1]


> dacă este simplu - căutați o componentă avi_writer, dacă este dificilă

Componenta este foarte simplă și scrie fără compresie, în măsura în care am înțeles din sursa ei.

> Întrebarea ar trebui să fie pusă mai precis :)

mult mai precis, codec pentru a clarifica. )

Componenta este foarte simplă și scrie fără compresie, în măsura în care am înțeles din sursa ei.


# xA0; # xA0; # xA0; Dacă începe competarea fCompression cu MyAVIcompressOptions
# xA0; # xA0; # xA0; fccType: = StreamTypeVideo; # xA0; # xA0; # xA0; # xA0; # xA0; // # xA0; DWORD






# xA0; # xA0; # xA0; fccHandler: = MyFOURCC ("M", "S", "V", "C"); # xA0; # xA0; // # xA0; DWORD

Adăugați la utilizări aviWriter_2,
aw: tAviWriter_2;
crea
aw: = tAviWriter_2.create (form1);
aw.PixelFormat: = pf24bit;

Declarați și creați b: tBitmap; b: = graphics.tBitmap.create; b.pixelformat: = pf24bit;
completați-l cu b.loadFromFile ("image.bmp");
Adăugați cadre într-o buclă
aw.AddFrame (b);

terminați
# xA0; aw.FinalizeVideo;
# xA0; aw.WriteAvi;

Mai multe detalii sunt atașate 2 exemple Demo

Nu cred că are nevoie de el.
Cel mai probabil, trebuie doar să instalați componenta:
Rularea AviPack.dpk.
Apăsați "compilați", "instalați", componenta apare în fila "personalizată".

Mulțumesc, programarea. Totul funcționează.

Dar eu vorbesc despre Dmitry Belkevich pe care încercam să o fac. Așa că am avut următoarele probleme:

La compilare, se emite eroare la:
-> înlocuiți ->

Dar aici este mai dificil, pentru că nici unul # xA0; rtl.dcu. nici vcl.dcu eu într-un dosar cu Delphi nu a găsit. Poate că fac ceva greșit?

Toți cu o vacanță! Cu bărbatul. Da, moderatorii forumului foarte respectat nu vor lua în considerare datele de felicitări ale inundațiilor.

Cazul, desigur, maestru, dar pentru viitor vă recomand să vedeți dacă sunt scrise căile spre dosarul delphi6 / lib.
Scrieți în opțiunile de mediu - bibliotecă - calea bibliotecii:

La mine este înregistrată:

Și ce pentru $ (DELPHI) \ R ave5 \ Lib?

Și totul va funcționa. Vor apărea toate DCU-urile.

Memorie: 0,75 MB
Durată: 0.061 sec







Articole similare

Trimiteți-le prietenilor: