Delphi-Quellcode:
Function Getx30Platform (Name : String):TBC;
var
Buf30:Array[0..30]of Char;
Imei : String;
FS :TFileStream;
i : Integer;
begin
FS := TFileStream.Create(Name,fmopenreadwrite);
FS.Position := $2fe82;
FS.ReadBuffer(Buf30,30);
Imei := StrToHex(Buf30);
FS.Free;
end; //funze
Soll einen 15 Stelligen String ausgeben die in der datei so aussieht
Zitat:
S76.C.........
auslesen tut es aber nur
Zitat:
S76