pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix JvMM demos for Linux. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6881 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-28 20:08:30 +00:00
parent d295accb2e
commit c04df98dba
29 changed files with 477 additions and 391 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/run/JvMM/jvid3v1.pas
View File

@ -125,7 +125,7 @@ begin
Exit;
Seek(-CTagSize, soFromEnd);
Result := (Read(TagID, CTagIDSize) = CTagIDSize) and (TagID = CID3v1Tag);
Result := (Read(TagID{%H-}, CTagIDSize) = CTagIDSize) and (TagID = CID3v1Tag);
finally
Free;
end;
@ -157,7 +157,7 @@ begin
try
Seek(-CTagSize, soFromEnd);
if (Read(TagID, CTagIDSize) = CTagIDSize) and (TagID = CID3v1Tag) then
if (Read(TagID{%H-}, CTagIDSize) = CTagIDSize) and (TagID = CID3v1Tag) then
Size := Size - CTagSize;
finally
Free;
@ -179,7 +179,7 @@ begin
if Size >= CTagSize then
begin
Seek(-CTagSize, soFromEnd);
if (Read(TagID, CTagIDSize) = CTagIDSize) and (TagID = CID3v1Tag) then
if (Read(TagID{%H-}, CTagIDSize) = CTagIDSize) and (TagID = CID3v1Tag) then
Seek(-CTagIDSize, soFromCurrent)
else
Seek(0, soFromEnd);
@ -248,7 +248,7 @@ begin
FNeedUpdateHasTag := True;
FillChar(lTag, CTagSize, #0);
FillChar(lTag{%H-}, CTagSize, #0);
// Set new Tag
Move(CID3v1Tag[0], lTag.Identifier[0], 3);
@ -318,7 +318,7 @@ var
begin
CheckActive;
Result := ReadID3v1Tag(FileName, lTag);
Result := ReadID3v1Tag(FileName, lTag{%H-});
FNeedUpdateHasTag := False;
FHasTag := Result;