Wenn ich auf fertigen Quellcode gehofft hätte, hätte ich wohl nicht um einen Tipp sondern um Code gebeten.
Mein letzter Versuch sieht so aus:
Delphi-Quellcode:
Procedure LoadfromFile;
var
f: TFileStream;
i: integer;
begin
i:=0;
f := TFileStream.Create(ExtractFilePath(Paramstr(0))+'iv1.dat',fmOpenRead);
f.position:=0;
try
while not eof do
begin
SetLength(bwl1,length(bwl1)+1);
f.Read(bwl1[i].channel,1); // Channel Byte 1 Byte groß
f.Read(bwl1[i].duration,4); // duration Integer 4 Byte groß
inc(i,5);
f.position:=i;
end;
finally
f.Free;
end;
{ }
end;
Die meisten meiner Versuche endeten mit einem I/O Error 6 oder Schtuzverletzungen