Resource file / TAnimate problem

[KempCGDR]

Hi, I have a problem where a TAnimate component refuses to open an AVI from a .dll file I compiled.

My resource file is written as:

100 AVI "[Flename]"

It compiles correctly (or I'm guessing it does as the filesize is correct).

Then I use Delphi to compile it into a .dll with the following:

Library s1;

{$R *.RES}
{$R season1.res}

Begin
End.

The result of this also has the correct file size.

The TAnimate has the following code to load this:

   ExePath := ExtractFilePath(Application.ExeName);
   Temp := PChar(ExePath+'s1.dll');
   LibraryID := LoadLibrary(Temp);
   If LibraryID > 0 then
   begin
      video.Visible := True;
      video.ResHandle := LibraryID;
      video.ResID := 100;
   end;

ExePath is a string, Temp is a PChar and LibraryID is a THandle.

As far as I can tell from my debugging attempts, it fails on the line that sets ResHandle. I've checked and the filename is correct. LibraryID is a number around 15728640 (that was what it was when I checked just now).

The error message it gives me is simply "Cannot open AVI" with no extra help.

Any ideas?

 

[whosrdaddy]

ok this is really stupid,

after spending some time comctrls unit I saw this :

procedure TAnimate.SetResHandle(Value: THandle);
begin
if FResHandle <> Value then
begin
FResHandle := Value;
FRecreateNeeded := GetComCtlVersion < ComCtlVersionIE4;
FCommonAVI := aviNone;
FFileName := '';
if FResHandle = 0 then SetOpen(False) else Reset;
end;
end;

procedure TAnimate.SetResId(Value: Integer);
begin
if FResId <> Value then
begin
FResId := Value;
FRecreateNeeded := ((FCommonAVI <> aviNone) or (FFileName <> '')) and
(GetComCtlVersion < ComCtlVersionIE4);
FCommonAVI := aviNone;
FFileName := '';
FResName := '';
if Value = 0 then SetOpen(False) else Reset;
end;
end;

I made the call to reset in bold because this function will be called after setting property resid or reshandle. Now here's the stupid part : calling reset will result into a OPEN attempt of the avi/resource. so after the line video.ResHandle := LibraryID; the component will try to load an AVI with resID 0!!! so simply changing your code to this will get things working :


ExePath := ExtractFilePath(Application.ExeName);
Temp := PChar(ExePath+'s1.dll');
LibraryID := LoadLibrary(Temp);
If LibraryID > 0 then
begin
video.Visible := True;
try
//catch raised exception here due to ResID = 0
video.ResHandle := LibraryID;
except
end;
video.ResID := 100;
// avi will be loaded!!!
end;


I tested this myself and it works like a charm.

greetings,

http://www.damovo.com

 

[KempCGDR]

Now that's just really... there aren't words for it are there?

This means that the example code on the Borland site (which is what I based this on) won't work!

 

[KempCGDR]

Still won't work, same error message. What the hell is going on here? I'm baout ready to give up with this thing.

 

[KempCGDR]

The line still fails and I think ResHandle doesn't get set right, it gives me the error twice, presumably the second being the ResID line because it can't find the library.

 

[whosrdaddy]

does your delphi debugger stops on exceptions??

check tools menu - debugger options - language exceptions tab. uncheck &quot;stop on delphi exceptions&quot;

http://www.damovo.com

 

[whosrdaddy]

I rechecked my code, it should work this way, which delphi version do you have?

http://www.damovo.com

 

[KempCGDR]

D7

Unchecked Delphi exceptions, which stops the first error message. The second one is still displayed, so the ResID line is obviously failing as well because the ResHandle line dies in whichever it prefers this week.

 

[whosrdaddy]

almost stupid question : did you try load this file into the animate component (by setting it's filename property) and did it load without error??

http://www.damovo.com

 

[KempCGDR]

Ok, just trying to open the original file, the error message still pops up, but no exceptions occur. Also, I just noticed in the help in the filename property that the sound is ignored when the file is opened. In this case is there a component that will play the video with sound (or that can play it at all)?

 

[whosrdaddy]

you'll have to google a bit. I found this :

http://www.delphicity.com/amovie/index.htm.

It's not a free component but it's a start. You said you also get the error when setting the filename property, if your avi is compressed the component will not recognize this format...

http://www.damovo.com

 

[KempCGDR]

Yeah, this is comes of using a component that someone suggested without first checking it was what you needed.

Oh well, I learned some things about some things, so I guess that's what counts in the end.