Bmp dosyalardan awi dosyası üretmek

Başlatan z, 08 Ekim 2015, 00:02:36

z

Hazır program vardır da bu işi biz kendimiz yapmak istersek nasıl yaparız?

Bana e^st de diyebilirsiniz.   www.cncdesigner.com

engerex



muhittin_kaplan

Bmp piksellerindeki degeri ses olarak versek.

z

Sağolun.

Bu kadar basitmiymiş.

procedure TCAviFileForm.GenerateAvi
var
    I          : Integer;
    Y          : Integer;
    H          : Integer;
    BackBitmap : Graphics.TBitMap;
    Avi        : TAviFromBitmaps;
begin
    BackBitmap             := Graphics.TBitMap.Create;
    BackBitmap.Width       := 320;
    BackBitmap.Height      := 240;
    BackBitmap.PixelFormat := TPixelFormat.pf32bit;
 
    Avi := TAviFromBitmaps.CreateAviFile(
                nil, 'output.avi',
                //MKFOURCC('x', 'v', 'i', 'd'),// XVID (MPEG-4) compression
                MKFOURCC('D', 'I', 'B', ' '),  // No compression
                2, 1);                         // 2 frames per second
    // First, add a blank frame
    Avi.AppendNewFrame(BackBitmap.Handle);
    // Then add frames with text
    BackBitmap.Canvas.Font.Size := 20;
    H := (BackBitmap.Canvas.TextHeight('I') * 15) div 10;
    Y := (BackBitmap.Height div 2) - H;
    BackBitmap.Canvas.TextOut(10, Y, 'Delphi rocks!');
    Y := (BackBitmap.Height div 2);
    for I := 1 to 25 do begin
        BackBitmap.Canvas.TextOut(10, Y, IntToStr(I));
        Avi.AppendNewFrame(BackBitmap.Handle);
    end;
    // Finally, add two blank frame
    // (MediaPlayer doesn't show the last two frames)
    BackBitmap.Canvas.FillRect(Rect(0, 0,
                                     BackBitmap.Width, BackBitmap.Height));
    Avi.AppendNewFrame(BackBitmap.Handle);
    Avi.AppendNewFrame(BackBitmap.Handle);
 
    FreeAndNil(Avi);
    FreeAndNil(BackBitmap);
end;
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

boreas

Eskiden daha çokdu böyle örnekler :) Avi, Wave dosya örnekleri geziniyordu ortada. Delphi'nin popülerliği gidince biraz zar zor bulunuyor.  Bildiğim kadarıylada sıralı bmp formatına ses ekleniyor diye hatırlıyorum :)