Nach dem Aufruf
Delphi-Quellcode:
if GetPropertyItem(InGifImage, PropertyTagFrameDelay, PropSize, PropItem) = S_OK then
begin
Delphi-Quellcode:
function GetPropertyItem(InGifImage: Cardinal; PropertyID: ULONG; PropertyItemSize: UINT;
var PropertyItemData: TPropertyItem): integer;
begin
// Daten auslesen
Result := GDIP_GetPropertyItem(InGifImage, PropertyID, PropertyItemSize, @PropertyItemData);
end;
nach begin..
gibt mir InGifImage und PropSize den wert 8 zurück das kann nicht stimmen.
Warum werden die Wert verändert.
Result := GDIP_GetPropertyItem(InGifImage, PropertyID, PropertyItemSize, @PropertyItemData);
gibt 0 zurück aber in der nächsten Funktion verliert InGifImage dne vorher übergebenen Wert.
gruss