WMA Tags lesen und SCHREIBEN

[Nils_13]

Hm so leicht geht das garnicht, denn WMAFile.Read liegt schließlich in der Unit tags. Ich weise es vorher auch auf kein Edit zu. Was müsste ich dann noch am eben genanntem Lösungsweg ändern. Shortstring ändert übrigens nichts.

[EWeiss]

Zitat:

Zitat von Nils_13

Hm so leicht geht das garnicht, denn WMAFile.Read liegt schließlich in der Unit tags. Ich weise es vorher auch auf kein Edit zu. Was müsste ich dann noch am eben genanntem Lösungsweg ändern. Shortstring ändert übrigens nichts.

Sorry schick mal deinen quelltext!
Werde ihn vernichten wenn das problem gelößt ist.

Hat so keinen sinn.. ich hab Delphi 2006 und du die 7 Version.
KA ob die compiler im verhalten gleich sind.

Nur ne simple Unit nutzt mir da nix

gruß

[EWeiss]

So!
Neuer Versuch..

Habe jetzt mal die Funktion Split aus VB nach Delphi umgesetzt.
Verstehe nicht das so eine einfache Funktion in Delphi nicht zur verfügung steht.
Nun gut dann teste es einfach mal.

Delphi-Quellcode:

Type
  TSplitStrArray = array of String;
end;

function Split(const Source, Delimiter: String): TSplitStrArray;
var
  spCount: Integer;
  spPos: Integer;
  spLength: Integer;
  sTemp: String;
  aSplit: TSplitStrArray;

begin
  sTemp := Source;
  spCount := 0;
  spLength := Length(Delimiter) - 1;
  repeat
    spPos := Pos(Delimiter, sTemp);
    if spPos = 0 then
      break
    else begin
      Inc(spCount);
      SetLength(aSplit, spCount);
      aSplit[spCount - 1] := Copy(sTemp, 1, spPos - 1);
      Delete(sTemp, 1, spPos + spLength);
    end;

    until False;
      if Length(sTemp) > 0 then begin
        Inc(spCount);
        SetLength(aSplit, spCount);
        aSplit[spCount - 1] := sTemp;
      end;

    Result := aSplit;
end;

Aufrufen mit !

Delphi-Quellcode:

var
  spSource: TSplitStrArray;
  spDest: string;

Begin
  spSource :=  Split(TagsData.Author, #0);
  spDest := Trim(spSource[0]);
end;

Bei mir funktioniert es hundert pro

Geht bestimmt besser habe aber auf die schnelle nichts besseres umsetzen können.

Habs getestet Trim geht nicht erst dann wenn du die Daten
durch die Split funktion gejagt hast.

gruß

[EWeiss]

Zitat:

Zitat von EWeiss

So!
Neuer Versuch..

Habe jetzt mal die Funktion Split aus VB nach Delphi umgesetzt.
Verstehe nicht das so eine einfache Funktion in Delphi nicht zur verfügung steht.
Nun gut dann teste es einfach mal.

Delphi-Quellcode:

Type
  TSplitStrArray = array of String;
end;

function Split(const Source, Delimiter: String): TSplitStrArray;
var
  spCount: Integer;
  spPos: Integer;
  spLength: Integer;
  sTemp: String;
  aSplit: TSplitStrArray;

begin
  sTemp := Source;
  spCount := 0;
  spLength := Length(Delimiter) - 1;
  repeat
    spPos := Pos(Delimiter, sTemp);
    if spPos = 0 then
      break
    else begin
      Inc(spCount);
      SetLength(aSplit, spCount);
      aSplit[spCount - 1] := Copy(sTemp, 1, spPos - 1);
      Delete(sTemp, 1, spPos + spLength);
    end;

    until False;
      if Length(sTemp) > 0 then begin
        Inc(spCount);
        SetLength(aSplit, spCount);
        aSplit[spCount - 1] := sTemp;
      end;

    Result := aSplit;
end;

Aufrufen mit !

Delphi-Quellcode:

var
  spSource: TSplitStrArray;
  spDest: string;

Begin
  spSource :=  Split(TagsData.Author, #0);
  spDest := Trim(spSource[0]);
end;

Bei mir funktioniert es hundert pro
Geht bestimmt besser habe aber auf die schnelle nichts besseres umsetzen können.

Wenn ich mir das so recht überlege könnte es ausreichen wenn du einfach vor jeder deiner
Variablen TagsData den Trim Befehl setzt.
Wenns geht ok! ;)
Die Split funktion dürfte trotzdem interessant für dich sein.
Kann man einfach mal einen String in seine bestandteile zerlegen ohne viel mühe.

gruß

Warum nmacht der hier andauernd doppelpost ?
Hmm zu schnell geklickt .. Entschuldigung!!

[Nils_13]

Danke, jetzt funktioniert es.

[EWeiss]

Zitat:

Zitat von Nils_13

Danke, jetzt funktioniert es.

Dann bin ich zufrieden war der aufwand doch nicht umsonst :)

Hier mal mein Player ..

gruß