Unbekannte Anzahl an Zeilen auslesen + unerwartete Textzeile

[-lx-]

Hallo.

Ich such mir die Finger wund. Immer wenn ich denke dass ich gleich ne Lösung gefundne habe werd ich wieder enttäuscht.

Also ich schreibe gerade ein kleines Mailprogramm das vorerst mit der Indy TCP Client Komponente arbeitet.

Wenn ich etwas an den Mailserver mit WriteLn schicke wird immer sofort vom Server etwas zurückgeschcikt. Somit kann ich gleich im Anshcluss die gesendete Zeile lesen.

Jedoch wenn ich dann mir die Liste an verfügbaren Mails anzeigen lassen will, zeigt e rimme rnur die erste zeiel an.

Wie also kann ich die Gesamtanzahl an Zeilen ermitteln oder kede Zeile empfangen ohne zu wissen wie viele gesendet werden?




Noch eine Frage: Wie kann ich denn mit "readln" reagieren, wenn eine unerwartete Textzeile gesendet worden ist bzw. vom Client empfangen werden soll? Man kann doch nicht immer mit readln auf der Lauer liegen und mit nem Timer als das Netz auslegen?





Mit freundlichen Grüßen

[-lx-]

Weis da niemand etwas dazu? Oo

Also mit ner Schleife würde es theoretisch gehen nur wenn nichts mehr gesendet wird dann wartet er und der Programmfluss wird angehalten.



mfg

[Dax]

Hilft dir die Funktion AllData weiter? Je nach Version sollte die im Client direkt oder im Socket-Handler sein.

[Bernhard Geyer]

Kurze Frage: Wieso nimmst Du nur die "reinen" TCP-Komponenten und nicht gleich die Mail-Komponenten von Indy oder ICS? Die Probleme du du jetzt selbst hast sind doch in diesen spezialisierten Komponenten schon gelößt.

[-lx-]

Dies wäre die Prozedur:

Delphi-Quellcode:

procedure PRead();
var temp: String ;
begin



      temp:= '' ;
      temp:= IdTCPClient1.ReadLn ;
      Memo1.Lines.Add(temp);



end;

Dies funktioniert. Jedoch sobald man Inhalte abruft die mehrere Zeilen überspannen, wird imme rnur die erste zeiel abgeholt. Wenn man den befehlö nochmals abschickt wird die nächste zeiel geholt usw.

Schon störrend. Das mit "AllData" funktioniert nicht so ganz. Der erwartet gleich am Anfangs cheinbar mehr Inhalt und bleibt stehen.

Warum nicht gleich mit der Pop3Komponente? Ja da ist mein Lehrer dran shculd. Der meinte man solle es doch erstmal so versuchen undd ann auf Pop3 umsteigen. Ich wollte es so halt erst versuchen da ich dneke so ist es vll. einfacher mit dem Verstehen als gleich schon ne neue Komponente verwenden.



mfg

[Bernhard Geyer]

Zitat:

Zitat von -lx-

Warum nicht gleich mit der Pop3Komponente? Ja da ist mein Lehrer dran shculd. Der meinte man solle es doch erstmal so versuchen undd ann auf Pop3 umsteigen.

Ok. Ist um des lernens willen.

[-lx-]

also weis wer was ?

Der VAter meiner Freundinn meinte, dass sobald etzwas fertig gesendet wordne ist, ein "EOF" mitgesendet wird. Wie kann ich denn überprüfen ob sowas gesendet worden ist? Ich dneke dass e s"unsichtbar" also nicht in dem normalen String drinne steht.



mfg

[-lx-]

Hat da wirklich keiner eine Idee?

Oder ist die MAsse SOnntags nicht erreichbar!? ;)

Es müsste doch gehen... weil der Server schickt doch alles nach und nach... und es müsste eben sowas geben wie "Wenn etwas reinkommt, dann readln".


mfg

[richie]

Du musst wahrscheilich einen Timer nehmen. :wink: Hast du dir mal die Parameter von Readln angesehen? Einer davon ist ATimeout. Das heißt, wenn nach einer bestimmten Zeit nichts kommt, bricht er ab. Dann prüfst du nach jedem Empfangen, ob was da ist. Wenn nicht, müsste alles empfangen sein (ich weiß ja nicht, vielleicht fängt er von vorne an).

[-lx-]

Zitat:

function ReadLn(ATerminator: string; const ATimeout: Integer; AMaxLineLength: Integer): string; virtual;

Parameters

ATerminator: string = LF

End-of-line termination character or characters.

const ATimeout: Integer = IdTimeoutDefault

Time-out in milliseconds. Default value IdTimeoutInfinite.

AMaxLineLength: Integer = -1

Returns

String - Line read from the buffer.

Description

ReadLn is a function that returns a string containing a single line from the buffer maintained by TIdTCPConnection.

The optional ATerminator parameter indicates the end-of-line symbol for the particular protocol. If data is expected, and you do not need a custom end-of-line symbol, you can use the default ATerminator value (#0). ATerminator values include:

#0 - Default Line Feed (#10)
LF - Line Feed (#10)
CR - Carriage Return (#13)
EOL - End-of-line (Carriage Return + Line Feed)


If there is no terminator (ATerminator) in the buffer, ReadLn will read more bytes from the TCP stack through the ReadFromStack method.

Use a custom time-out (ATimeout) value to change the number of milliseconds to wait for a response from the peer connection before a time-out occurs. The default value for ATimeout is IdTimeoutInfinite. See IdGlobal.pas for more information on constant timeout values.

ReadLn will return an empty string ('') if the peer connection is prematurely closed or a time-out occurs. When a timeout condition occurs in ReadLn, the ReadLnTimedOut property is set to True.

Wenn ihr mir nun nochmal helfen könntet das zu entschlüsseln wäre dies sehr hilfreich.

Also dieses TimeOut Ding würde in Verbindung mit einem Timer gut funktionieren, da man ja eig. aus schleifen nicht einfach aussteigen sollte außer ich nehm ne repeat-until bzw. do-while schleife.
Wie geht das aber nun mit diesem EOL ? scheint eine etwas elegantere Methode zu sein.
Jedoch werd eich aus der Hilfe dazu (s.o.) nicht schlau. Es liegt vll. daran, dass ich Delphi direkt gelernt habe. D.h. es wurde kein Wert darauf gelegt, wie der Syntax zu stand ekommt und wieso usw... das mal am Rande.



Mit freundlichen Grüßen