DVD region prolem

procedure TForm1.Button1Click(Sender: TObject);
var
Fil: File;
S: String;
Temp: Byte;
begin
Assignfile(Fil, 'C:\MyDVDfilm\VIDEO_TS.IFO');
FileMode := 0; //Read Only
Reset(Fil, 1);
Seek(Fil, 35); //Seek after Offset 35 (byte 35)
blockread(Fil, Temp, Sizeof(Temp)); //Temp is the result in decimal number and Sizeof is the just the size of the number.
closefile(Fil);

S := IntToBinary(Temp); //Converts the Decimal number to a Binary number.

S := BinaryToRegionCode(S); //Converts the Binary number to The Regions code.

Showmessage(S); //Shows the Result in Region Codes.
end;


function IntToBinary(Value: Integer): String;
begin
result:='';
while value > 0 do
begin
result := chr(ord('0') + (value and 1)) + result;
value := value shr 1;
end;

if result = '' then
result := '0';
end;


Function BinaryToRegionCode(Value: String): String;
var
I, Position, Counter: Integer;
Temp: String[8];
Begin
Temp := '';
For I := Length(Value) downto 0 do
Temp := Temp + Value[I];
Value := Temp;

For I := 0 to Length(value)-1 do
If Pos('0', Value) <> 0 then
Begin
Position := Pos('0', Value);
Case Position of
1: Result := Result + 'Region Code 1, ';
2: Result := Result + 'Region Code 2, ';
3: Result := Result + 'Region Code 3, ';
4: Result := Result + 'Region Code 4, ';
5: Result := Result + 'Region Code 5, ';
6: Result := Result + 'Region Code 6, ';
7: Result := Result + 'Region Code 7, '; //Not in use yet.
8: Result := Result + 'Region Code 8, '; //International venues.
end;
Value[Position] := '1'; //so it don't find the zero twice.
end;
Delete(Result, Length(Result)-1, 1); //Removes the last ',' from the Result.
end;

Select all Open in new window