Picproje Elektronik Sitesi

SERBEST BÖLGE => Programlama ve Algoritma => Konuyu başlatan: z - 08 Ekim 2015, 00:02:36

Başlık: Bmp dosyalardan awi dosyası üretmek
Gönderen: z - 08 Ekim 2015, 00:02:36
Hazır program vardır da bu işi biz kendimiz yapmak istersek nasıl yaparız?

Başlık: Ynt: Bmp dosyalardan awi dosyası üretmek
Gönderen: engerex - 08 Ekim 2015, 09:12:52
GIF animasyon yap, herkes izlesin.
Başlık: Ynt: Bmp dosyalardan awi dosyası üretmek
Gönderen: boreas - 08 Ekim 2015, 10:45:51
http://francois-piette.blogspot.com.tr/2013/07/creating-avi-file-from-bitmaps-using.html (http://francois-piette.blogspot.com.tr/2013/07/creating-avi-file-from-bitmaps-using.html) gibi bir örnek buldum.
Başlık: Ynt: Bmp dosyalardan awi dosyası üretmek
Gönderen: muhittin_kaplan - 08 Ekim 2015, 11:21:11
Bmp piksellerindeki degeri ses olarak versek.
Başlık: Ynt: Bmp dosyalardan awi dosyası üretmek
Gönderen: z - 08 Ekim 2015, 15:28:14
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;
Başlık: Ynt: Bmp dosyalardan awi dosyası üretmek
Gönderen: boreas - 08 Ekim 2015, 17:08:32
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 :)