Hi,
ich hab hier ein ganz banales Problem. Ich schaff's nicht Daten aus ner Datei einzulesen...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
iReturn: Integer;
iFileHandle: Integer;
TagVersion: array[0..2] of byte;
begin
iFileHandle := FileOpen('C:\test.mp3', fmOpenRead or fmShareDenyNone);
Application.MessageBox(PAnsiChar(IntToStr(iFileHandle)), 'Rückgabe FileOpen:');
iReturn := FileSeek(iFileHandle, 0, 2);
Application.MessageBox(PAnsiChar(IntToStr(iReturn)), 'Rückgabe FileSeek:');
iReturn := FileRead(iFileHandle, TagVersion, SizeOf(TagVersion));
Application.MessageBox(PAnsiChar(IntToStr(iReturn)), 'Rückgabe FileRead:');
FileClose(iFileHandle);
end;
Das Problem ist, dass FileRead nichts macht...
Wenn ich das richtig verstanden habe sollte die Funktion die Anzahl der eingelesenen Bytes zurück geben. Die ist aber immer 0!
Kann mir einer sagen was ich falsch mach?
MfG, Ben