Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 386
  • Last Modified:

LOAD AVI FROM DLL IN TANIMATION


I use this code to load avi from dll in Tanimation (A1)
but I recieve error 'can not open avi'.

//*********************************
DLLHANDLE := LoadLibrary('resdll.dll');

  with A1 do
  try
     try
        ResHandle := DLLHANDLE;
     finally

        ResName := 'myavi';
     end;
  finally
  StartFrame := 25;
  StopFrame :=61;

  end;
//****************************
0
sal1150
Asked:
sal1150
  • 3
  • 2
1 Solution
 
DragonSlayerCommented:
TAnimate can only open uncompressed AVI and/or those compressed using RLE. If your AVI in the DLL is compressed using some other codec, TAnimate won't work
0
 
sal1150Author Commented:
my AVI in the DLL is not compressed
0
 
DragonSlayerCommented:
erm... make sure the spelling is correct? It is case-sensitive.
0
Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

 
simonetCommented:


I have written an example on how to do it:

http://www.bhnet.com.br/~simonet/howtoprojs.htm
(check the sample app "How to create and use resource-only DLLs". the techniques described are exactly what you want).

Yours,

Alex
0
 
sal1150Author Commented:
hi simonet
I test ur example but u do not solve the problem which happen when u tray to play avi.
this is ur mark and the code:-

  // Always check if the module is loaded before
  // Trying to access it.
  if ResDLLMod=0 then exit;
  // Ok, the routine below looks like a real mess.
  // The problem is that this TAnimate component is anything but a
  // friendly guy.
  // There are ways to improve the routine below, but I just don't have
  // the patience right now.
  try
  with Animate1 do
  try
     try
        ResHandle := ResDLLMod;
     finally
        ResName := 'BORLANDCOOL';
     end;
  finally
     Play(1, FrameCount, 0);
  end;
  except
//
  end;
end;

0
 
sal1150Author Commented:
spelling is correct.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now