Edit:
Problem gelöst, der typ TFlvHeader muss als packed record deklariert werden damit die Felder alle Lückenlos gesetzt werden.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Ich habe folgenden Typen deklatiert um den Header einer FLV-Datei auszulesen:
Delphi-Quellcode:
type
TFlvHeader = record
Signature:Array[0..2] of AnsiChar;
Version:Byte;
TypeFlags:Byte;
DataOffset:Cardinal;
end;
Eine Prozedur die den Typen verwendet sieht so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
hDatei, ReadBytes:Cardinal;
pFlvHeader:TFlvHeader;
begin
hDatei:=CreateFileW(PWideChar(Edit1.Text), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
ZeroMemory(@pFlvHeader, 9);
ReadFile(hDatei, pFlvHeader, 9, ReadBytes, nil);
//FlvHeader
if (pFlvHeader.Signature = 'FLV') then begin
Label6.Caption:='OK';
end else begin
Label6.Caption:='No Flv File.';
CloseHandle(hDatei);
Exit;
end;
Label7.Caption:=IntToStr(pFlvHeader.Version);
if ((pFlvHeader.TypeFlags AND TF_Audio) > 0) then begin
Label8.Caption:='True';
end else begin
Label8.Caption:='False';
end;
if ((pFlvHeader.TypeFlags AND TF_Video) > 0) then begin
Label9.Caption:='True';
end else begin
Label9.Caption:='False';
end;
Label10.Caption:=IntToHex(pFlvHeader.DataOffset, 8);
CloseHandle(hDatei);
end;
Das Ergebnis aus pFlvHeader.DataOffset sollte einer 9 entsprechen, jedoch kommt ein Wert heraus der über die 9 Bytes des Records hinaus geht wie der Debugger beweist:
http://gordon.rippkom.eu/files/delphi.bmp
Der rote Kasten zeigt was eigendlich durch ReadFile gelesen wurde, der blaue Kasten zeigt welcher wert sich meiner Meinung nach in pFlvHeader.DataOffset befinden sollte und der grüne Kasten zeigt an was sich tatsächlich, meiner Meinung nach fälschlicherweise in DataOffset befindet.
Wie kann das sein?