String in Listbox eintragen: Problem mit der Liste

[langer hans]

Hallo!
Ich bins mal wieder mit einem Problem....
Ich habe eine listbox namens lb_liste und eine function getlist:string
Doch bei jeder Abfrage erhalte ich eine AV...

Hier der Betreffende Code:
lb_liste.Items.Add(pop3.getList); Und die getlist:

Delphi-Quellcode:

function tpop.getList():String;
begin
//showmessage(IntToStr(status));
if status > 0 then begin
  client.Socket.SendText('LIST ' + chr(10));
  delay(1000);
  result := bra;
end else
  result := 'nein'
end;

bra ist der empfangene Text vom server, beispielsweise so:

Zitat:

+OK
1 5148
2 2371
3 148207
4 26014
5 19326
6 30496
7 39217
8 1872
9 2445
10 52434

Ich denke es gibt Probleme durch die linefeeds...

Eine showmessage gibt die liste hne probleme aus...

Hier die Fehlermeldung:

Zitat:

---------------------------
Email Client
---------------------------
Zugriffsverletzung bei Adresse 0046FC9B in Modul 'Project_email.exe'. Lesen von Adresse 00000320.
---------------------------
OK
---------------------------

hoffe mir kann jemand helfen!

MfG

[Klaus01]

Hallo,

von welchem Type ist denn bra?
Für mich schaut das aus wie eine StringList,
wenn dem so sein sollte, müsstest Du dem result bra.text übergeben.

Grüße
Klaus

[Hansa]

Ne. Die soll er mal schön mit create erzeugen.

[DeddyH]

Was soll er erzeugen?

[langer hans]

Hallo!
bra ist ein einfacher string...

Ich hab jetzt schon die CRLF entfernt, mit gleichem ergebnis....

mfg

[DeddyH]

Wann tritt der Fehler denn auf? Stepp doch mal durch.

[langer hans]

@DeddyH: Schon erledigt...
Genau in der Zeile
lb_liste.Items.add(pop3.getList); kommt die Exception.

Wenn ich die zeile durch

showmessage(pop3.getlist); ersetze bekomm ich den String angezeigt...

Ok, mit

Delphi-Quellcode:

     s:=pop3.getList;
     lb_liste.Items.add(s);

Gibts den gleiche fehler...
Liegt es vielleicht an der Länge des Strings?

[DeddyH]

Ich glaube nicht, dass es an der Stringlänge liegt. Allerdings muss ich leider zugeben, dass mir im Moment die Ideen ausgegangen sind

[marabu]

Hallo langer Hans,

die von dir gezeigten Code-Zeilen mögen syntaktisch korrekt sein, vom Ablauf her wohl eher nicht. Vertraust du wirklich darauf, dass durch Rückgabe deiner Zeitscheibe an das Betriebssystem der Empfang zuverlässig gelaufen ist?

GetList() ist eine Funktion, aber in erster Linie eine Methode und vieles andere mehr bleibt bei deiner Fehlerbeschreibung im Dunkeln. Eine Lösung deines Problems verlangt hellseherische Fähigkeiten. Meine Vermutung: Es liegt ein Timing-Problem vor, verursacht durch ein fehlerhaftes Gesamtkonzept.

Freundliche Grüße

[langer hans]

puuh, ok...
Ich weiss, dass das Konzept nicht das beste ist. Ich muss es nur irgendwie zum laufen bekommen...
Das etwas zurückkommt weiss ich, weil ja das event OnClientRead ausgelöst wird und darin die Daten gecheckt werden...

Also, ich habe neue erkenntnisse:
Ich habe die betreffende Zeile mal durch
lb_liste.Items.Add('Test') ausgetauscht und das ergebnis war der selbe fehler....

Mit einem neuen button klappt das einfügen in die listbox...