Hallo
Ich habe diesen Code
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
var desc:tstringlist;
begin
desc := tstringlist.Create;
////////////////////////ID3Tag Speichern/////////////////////////
desc.Add(Edit1.Text);
desc.Add(Edit2.Text);
desc.Add(Edit3.Text);
desc.Add(Edit4.Text);
desc.Add(Edit5.Text);
desc.Add(tempfilename);
saveid3(desc);
desc.Free;
////////////////////////END ID3 Speichern////////////////////////
end;
saveid3 ist so deklariert
function saveid3(descriptions:tstrings):boolean;stdcall;
Und in der
DLL Sieht das so aus:
Delphi-Quellcode:
function saveid3(descriptions:tstrings):boolean;stdcall;
begin
descriptions := tstringlist.Create;
id3v2tag.Title := descriptions.Strings[0];
id3v2tag.Artist := descriptions.Strings[1];
id3v2tag.Album := descriptions.Strings[2];
id3v2tag.Track := descriptions.Strings[3];
id3v2tag.Year := descriptions.Strings[4];
id3v2tag.WriteToFile('test.mp3');
descriptions.Free;
end;
Wenn ich nun den Code (den ersten) ausführe, bekomme ich einen ListenInsdex überschreitet das Maximum 0 error
Wenn ich diese zeile
saveid3(desc);
weglass, dan bekomme ich keinen error aber dan gehts auch nicht
Ich hoffe ihr seht den fehler den ich nicht sehe
Danke schonmal