ID3 Write routine

Tags:    delphi

hey der! jeg er hved at lave en mp3 tagger men jeg kan ikke få lortet til at skrive informationerne eller compile...så derfor må jeg bede om hjælpe :)

min record ser sådan her ud:
----------------------------------------
type
TID3Rec = packed record
Tag : array[0..2] of Char;
Title,
Artist,
Comment,
Album : array[0..29] of Char;
Year : array[0..3] of Char;
Genre : Byte;
end;

---------------------------------------
min routine til et få fat i mp3 tagget virker fint..kan bare ik få den til at skrive det til at virke og jeg prøver at kalde den hved at høre sådan her:
---------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
myNewRecord : TID3Rec;
mp3FileName : string;

begin

myNewRecord := new(TID3rec);
try
mp3FileName := txtFolder.text+mp3List.Items.Strings[mp3List.ItemIndex];
MyNewRecord.Title:=edit1.text;
MyNewRecord.Artist:=edit2.text;
MyNewRecord.Album:=edit3.text;
MyNewRecord.Year:=edit4.text;
MyNewRecord.Genre:=edit5.text;
MyNewRecord.Comment:=edit6.text;
ChangeID3Tag(MyNewRecord, mp3FileName);
finally

end;

end;

vær rar og hjælp mig...er en sikkert forholdhvis nemt problem for alle jeg pro's personer derude ;)



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #67 @ 11.10.04 09:16
Du kan ikke umiddelbart smide Strings ned i Array som sådan, vil jeg gætte på....
Jeg kan ikke lige teste din kode lige nu, men jeg vil tro at du skal have lavet en lille rutine der kan "oversætte" fra Strings til Arrays


procedure StrToArray(Str : String; var Ar : Array);
var
Idx : Integer;
begin
for Idx := Low(Ar) to High(Ar) do
Ar[Idx] := ' ';

for Idx := 1 to Length(Str) do
if Idx <= High(Ar) + 1 then
Ar[Idx-1] := Str[Idx]
else
Break;
end;

...eller noget i den retning....

Så skulle du kunne gøre noget i retning af det her :

StrToArray(edit2.Text, MyNewRecord.Artist);


...angående selve skrivningen til filen, kan jeg ikke hjælpe, medmindre du poster noget kode, eller uddyber problemet.... :-)

/Lars




[Redigeret d. 11/10-04 09:26:33 af Lars Bargmann]



t