TStringlist leert sich Selbst!

[TiGü]

Zitat von danu1104:

unter var deklariere ich die stringlisten create sie dort wo sie gebraucht werden und schliesse sie am ende der Function wieder. Deswegen kann ich den fehler nicht nachvollziehen. Ich habe nur diese 2 - 3 Stringlisten, und ich habe noch nie diesen fehler gehabt, seit ich mit delphi arbeite ....

Wenn man Beiträge dreimal Lesen muss, damit man etwas versteht, fehlt es an allen grundlegenen Kenntnissen der deutschen Rechtschreibung!

Die Lösung wurde im vierten Post in diesen Thread genannt.

[danu1104]

Zitat von Bernhard Geyer:

Böses böses Speichern unter C:\.

Win Vista/7 wird das verhindern (Keine Schreibzugriff) bzw. in den Virtuellen Store Umschieben so das du deine Änderungen im Windows Explorer unter C:\ nicht sieht.

System Festplate ist I:\ , c:\ ist meine backup platte

[danu1104]

Zitat von TiGü:

Zitat von danu1104:

unter var deklariere ich die stringlisten create sie dort wo sie gebraucht werden und schliesse sie am ende der Function wieder. Deswegen kann ich den fehler nicht nachvollziehen. Ich habe nur diese 2 - 3 Stringlisten, und ich habe noch nie diesen fehler gehabt, seit ich mit delphi arbeite ....

Wenn man Beiträge dreimal Lesen muss, damit man etwas versteht, fehlt es an allen grundlegenen Kenntnissen der deutschen Rechtschreibung!

Die Lösung wurde im vierten Post in diesen Thread genannt.

Schwachsinn, ob ich es so mache: [ic+1] oder nicht es bleibt das gleiche. Zumal ist der fehler aufgetretten, bevor ich diese Function geschrieben habe.

Wenn du nur über meiner Rechtschreibung dir deinen Kopf zerbrichst , dann lass mich bitte selber den fehler finden, und werde Deutsch Lehrer.

[Lemmy]

Zitat von danu1104:

entfernt , und das Resultat ist das die listen jetzt voll bleiben (juhuu) , doch habe ich den EStringlistError der mir die App immer crasht.

Aus der Delphi-Hilfe:

Zitat:

EStringListError wird ausgelöst, wenn eine Anwendung versucht, mit einem ungültigen Index auf ein Listenfeld zuzugreifen, um beispielsweise einen Eintrag hinzuzufügen.

hast Du schon mal den Debugger angeworfen und geschaut WO, d.h. in welcher Zeile die Exception geworfen wird?

[jaenicke]

Zitat von Klaus01:

Ich würde die StringList auch als Parameter übergeben.

Aber sinnvoller wäre das nicht als var-Parameter zu machen. Schließlich übergibst du dann einen Pointer auf einen Pointer, da die TStringList ja schon selbst ein Pointer auf das Objekt ist.

[danu1104]

Zitat von Lemmy:

Zitat von danu1104:

entfernt , und das Resultat ist das die listen jetzt voll bleiben (juhuu) , doch habe ich den EStringlistError der mir die App immer crasht.

Aus der Delphi-Hilfe:

Zitat:

EStringListError wird ausgelöst, wenn eine Anwendung versucht, mit einem ungültigen Index auf ein Listenfeld zuzugreifen, um beispielsweise einen Eintrag hinzuzufügen.

hast Du schon mal den Debugger angeworfen und geschaut WO, d.h. in welcher Zeile die Exception geworfen wird?

Debugger? Also es handel sich um eine DLL , die function exportiere ich mit stdcall und rufe sie in einer Consolen - APP auf, das lief bislang wunderbar, bis ich gestern Delphi geöffnet habe um am Project weiter zu knibbeln, nach dem Build der DLL kiamm dann das 1. mal der EStringlistError, wobei ich garnix getan habe.

Habe erst gedacht es wer ein Ressource Problem und habe deswegen *.res entfernt was jedoch nix bewirkte. Daraufhin habe ich alle String Variablen in Pchar umgeschrieben, auch keine lösung. Alle Stringlisten global deklariert, auch nicht.


hier die function:

Delphi-Quellcode:

function scripting(cmd:Pchar):Pchar; STDCALL;
Var
 p:pchar;
 ist:tfilestream;
begin

if Length(CMD) < 1 then
begin
 Exit;
end;
 //global
 Op:=TStringlist.Create;
 Op.Delimiter:=' ';
 Op.DelimitedText:=CMD;
 //global
 VarValue:=TStringlist.Create;

 //global
 gvarname:=TStringlist.Create;
 gvarname.Delimiter:='.';
 gvarname.DelimitedText:=CMD;



 P:=Pchar(ExtractFilePath(Paramstr(0)));

if gvarname.Strings[0] = 'global' then
  begin
    varvalue.Add(gvarname.Strings[1]);
  end;


  if Op.Strings[0] = 'sound_init' then
  begin
   win:=0;
  if (HIWORD(BASS_GetVersion) <> BASSVERSION) then
  begin
    MessageBox(0, 'An incorrect version of BASS.DLL was loaded', nil, MB_ICONERROR);
    Exit;
  end;
  if (not BASS_Init(-1, 44100, 0,win, nil)) then
  begin
    Exit;
  end;
  end else
  if Op.Strings[0] = 'sound_file' then
  begin
   if Op.Strings[1] = getvarval(varvalue,Pchar(Op.Strings[1])) then
     //   strs := BASS_StreamCreateFile(False, Pchar(getvarval(varvalue,Pchar(Op.Strings[1]))), 0, 0, 0)
    else
      strs := BASS_StreamCreateFile(False, Pchar(Op.Strings[1]), 0, 0, 0);
  end else
  if Op.Strings[0] = 'sound_play' then
  begin
   BASS_ChannelPlay(strs, False);
  end else
  if (Op.Strings[0]  = '__run') then
   if not (Op.Strings[1] = 'while.playing') then
    Delay(StrToInt(Op.Strings[1]))
   else begin
   repeat
      Delay(1)
     until
      BASS_ChannelIsActive(strs)= BASS_ACTIVE_STOPPED
    end;
   if (Op.Strings[1] = 'while.taskkill') then
    repeat
      Delay(1)
     until false
  else
  if Op.Strings[0] = 'sound_stop' then
  begin
   BASS_ChannelStop(strs);
  end else
  if Op.Strings[0] = 'end' then
  begin

   Application.Terminate;
   Exit;
  end else
end;

script aus datei:

Zitat:

global.testvar="data\usr\local\tracks\jd.mp3"
sound_init
sound_file testvar
sound_play
__run while.playing

Und deswegen verstehe ich es nicht, das ist so übersichtlich, wie kann da solch ein fehler sein

[Lemmy]

Zitat von danu1104:

Debugger? Also es handel sich um eine DLL ,

ist kein Grund den Debugger nicht auch anzuwerfen - entweder du verwendest "Mit Prozess verbinden" oder du schneidest die Funktion aus der DLL und fügst die in ein leeres Projekt rein, dann kannst Du da debuggen und wenn das Teil läuft kannst Du die Funktion wieder in die DLL packen.

Sinnvoller weise packst Du die Funktion eh in eine eigene Unit, die kannst Du dann zum weiterentwickeln / debuggen in ein normales Projekt einbinden und wenn sie läuft über das DLL Projekt als DLL zur Verfügung stellen.

GRüße

[danu1104]

Zitat von Lemmy:

Zitat von danu1104:

Debugger? Also es handel sich um eine DLL ,

ist kein Grund den Debugger nicht auch anzuwerfen - entweder du verwendest "Mit Prozess verbinden" oder du schneidest die Funktion aus der DLL und fügst die in ein leeres Projekt rein, dann kannst Du da debuggen und wenn das Teil läuft kannst Du die Funktion wieder in die DLL packen.

Sinnvoller weise packst Du die Funktion eh in eine eigene Unit, die kannst Du dann zum weiterentwickeln / debuggen in ein normales Projekt einbinden und wenn sie läuft über das DLL Projekt als DLL zur Verfügung stellen.

GRüße

schau mal den beitrag über dir, habe code hinzugefügt

[himitsu]

Zitat von Klaus01:

.. wo kommt denn diese Funktion zum Einsatz?

Ich würde die StringList auch als Parameter übergeben.

function getvarval(var myStringList: TStringList;str:Pchar):Pchar;

Es geht um eine DLL-Funktion.

Solange er nicht mit Laufzeitpackages kompiliert, würde ich davon eher abraten, Objekte über RTTI-Grenzen hinweg zu übergeben.

[Bernhard Geyer]

Zitat von danu1104:

System Festplate ist I:\ , c:\ ist meine backup platte

Und wie hast du das hin bekommen?
Ab Vista sorgt doch der Installer von Windows dafür das für Windows die Systemplatte immer C:\ ist egal welche Partition/Platte es physikalisch ist