Bin mir jetzt nicht sicher ob das so ok ist.
Es wird zwar True zurückgegeben aber den Headern habe ich deshalb trotzdem nicht.
Wie bekomme ich den?
Delphi-Quellcode:
AniHeader = Record
Frame: WORD;
Width: WORD;
Height: WORD;
Speed: WORD;
offset: dword;
reserved: dword;
Sign: dword;
end;
Delphi-Quellcode:
function TAnimatePng.GetPngAnimation(wsFile: string; var anih: TAniHeader): Bool;
var
ByteArray: array of byte;
FileStream: TFileStream;
IntI: Integer;
begin
Result := False;
try
FileStream := TFilestream.Create(wsFile ,fmopenread or fmShareDenyNone);
SetLength(ByteArray, FileStream.Size);
FileStream.Read(ByteArray[0], Length(ByteArray));
finally
FileStream.Free;
end;
for IntI := Low(ByteArray) to High(ByteArray) do
begin
if (ByteArray[IntI] * 4) = StrToInt('ANIM') then
Result := True
end;
end;
Falls nicht bitte sagen was falsch läuft.
gruss