Zitat:
Wie meinst das?
damit wärst du schon fertig ohne die Pointer Problematik und Arrays als Parameter.
Ich habe kein Problem mit dem Pointern nur mit dem Array.
Delphi-Quellcode:
procedure GetGifFrameDelays(InGifImage: Cardinal; InFrameCount: UINT;
var OutFrameDelay: TOutFrameDelay);
Delphi-Quellcode:
procedure LoadGif;
var
FrameCount: UINT;
FrameDelay: TOutFrameDelay;
begin
FrameCount := 0;
if GetGifFrameCount(gp.GifImage, @GuidFDT, FrameCount) = S_OK then
If (FrameCount - 1) = 0 then
begin
SetLength(FrameDelay, 0);
end else
begin
GetGifFrameDelays(gp.GifImage, FrameCount, FrameDelay);
end;
end;
Jetzt brat mir einer nen Storch warum geht das nicht.
grrrr... LOL
gruss