BorlandTalk.com

Philipp Heckel · Guest

Hi,

ich habe ein Programm, welches eine Animation in einzelnen Bildern aus
einer DLL lädt. Diese Bilder ergeben ein sich drehendes Logo.

-- Code --------- Programm ------

[..]

function Logo_GetFrameJPG(Frame: Integer): TMemoryStream; external
'MP3XL.DLL' name 'Logo_GetFrameJPG';

var Logo_Frame: integer = 0;

[..]

implementation

[..]

procedure TFMain.TLogoTimer(Sender: TObject);
var jpg: TJPEGImage;
mStream: TMemoryStream;
begin
if Logo_Frame = 59 then Logo_Frame := 0;
LSearch.Caption := inttostr(Logo_Frame); // Hier stimmt der Integerwert

try
mStream := TMemoryStream.Create;
mStream := Logo_GetFrameJPG(Integer(Logo_Frame));

jpg := TJPEGImage.Create;
jpg.LoadFromStream(mStream);

Canvas.Draw(10,10,jpg);

mStream.Free;
finally
jpg.Free;
Logo_Frame := Logo_Frame + 1;
end;
end;

-- Code --------- DLL ------

[..]

function Logo_GetFrameJPG(Frame: integer): TMemoryStream; stdcall;

implementation

{$R logo.res}

function Logo_GetFrameJPG(Frame: integer): TMemoryStream; stdcall;
var rStream: TResourceStream;
begin
try
rStream := TResourceStream.Create(HInstance, 'logo' +
inttostr(Frame), RT_RCDATA);

Result := TMemoryStream.Create;
if rStream.Size > 0 then Result.LoadFromStream(rStream);

rStream.Free;
except
Result := nil;
end;
end;

[..]

-------------------------

Beim Ausführen öffnet sich nun der Fehler:
JPEG-Fehler #42

Sicher ist, dass der Integerwert nicht richtig übergeben wird, was man
sieht, wenn man diesen speichert bzw. anzeigen lässt. Er nimmt immer den
Wert 1244704 an ?!

Wo ist da der Wurm drin?

:) Über jede Antwort dankbar.
MfG Philipp Heckel

KLinZ · Guest

Philipp Heckel wrote:

VBDis · Guest

Im Artikel <bsmro4$kjf$02$1 (AT) news (DOT) t-online.com>, Philipp Heckel
<mail (AT) philsworld (DOT) de> schreibt: