diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2012-07-14 12:58:03 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2012-07-14 12:58:03 +0000 |
| commit | 7ff091f56cb965d06780e30fbf7cbaeab5fc0cb8 (patch) | |
| tree | 56e7c7420214f087ac08da3afd1a0d5f5e2f2de0 /src | |
| parent | 7c1b9be0d3462a15c9b37a1388e8d9910a8f6f96 (diff) | |
| download | usdx-7ff091f56cb965d06780e30fbf7cbaeab5fc0cb8.tar.gz usdx-7ff091f56cb965d06780e30fbf7cbaeab5fc0cb8.tar.xz usdx-7ff091f56cb965d06780e30fbf7cbaeab5fc0cb8.zip | |
fix pointer types.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2920 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src')
| -rw-r--r-- | src/lib/ffmpeg/avcodec.pas | 2 | ||||
| -rw-r--r-- | src/media/UVideo.pas | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/lib/ffmpeg/avcodec.pas b/src/lib/ffmpeg/avcodec.pas index 63ffa012..ea6a45dc 100644 --- a/src/lib/ffmpeg/avcodec.pas +++ b/src/lib/ffmpeg/avcodec.pas @@ -3548,7 +3548,7 @@ procedure avpicture_free (picture: PAVPicture); * @param height the height of the image in pixels * @return size of the image data in bytes *) -function avpicture_fill (picture: PAVPicture; ptr: pointer; +function avpicture_fill (picture: PAVPicture; ptr: pcuint8; pix_fmt: TAVPixelFormat; width: cint; height: cint): cint; cdecl; external av__codec; diff --git a/src/media/UVideo.pas b/src/media/UVideo.pas index 47c977bb..096860c0 100644 --- a/src/media/UVideo.pas +++ b/src/media/UVideo.pas @@ -53,6 +53,7 @@ implementation uses SysUtils, Math, + ctypes, SDL, avcodec, avformat, @@ -119,7 +120,7 @@ type fAVFrame: PAVFrame; fAVFrameRGB: PAVFrame; - fFrameBuffer: PByte; //**< stores a FFmpeg video frame + fFrameBuffer: Pcuint8; //**< stores a FFmpeg video frame fFrameTex: GLuint; //**< OpenGL texture for FrameBuffer fFrameTexValid: boolean; //**< if true, fFrameTex contains the current frame fTexWidth, fTexHeight: cardinal; @@ -633,7 +634,7 @@ var errnum: integer; AVPacket: TAVPacket; pts: double; - fileSize: integer; + fileSize: int64; urlError: integer; begin Result := false; |