ReadLn und ReadBuffer

[endeffects]

Hallo,

ich bin noch relativ neu im Umgang mit Delphi und arbeite
zur Zeit an einem Programm das mit einem Server interagiert.

Das Problem das ich habe ist das der Server seine Antworten
teilweise auf mehrere Packete verteilt die sich auch mit
Antworten anderer Requests überschneiden können.

Bisher fange ich alle Antworten über einen Timer und ReadLn ab:

Code:

procedure TForm.TimerTimer(Sender: TObject);
var
  s: string;
begin
  s := IdTCPClient.ReadLn(#0, 5);
  if s <> '' then
    Memo1.Lines.Add(s);
end;

Allerdings friert die Anwendung dann für kurze Zeit ein
sofern es sich um größere Datenpackete handelt und
die Ausgabe erfolgt nur verzögert. Ich denke der Einsatz
von ReadBuffer(); wäre in diesem Fall sinnvoller
nach allem was ich dazu gelesen habe.

Ich weiß allerdings nicht so recht wie ich diese Anweisung
einbinden soll und wie ich die empfangenen Daten nach
Schlüsselwörtern auswerten kann um dann entsprechend
andere Funktionen auszuführen.

Könnte mir dazu vielleicht Jemand ein Beispiel geben?


mfg

[Mirilin]

:hi:

Ich weiss nicht, aber vielleicht hilft dir TIdAntiFreeze. :)


Klick


mfg Tobias

[endeffects]

naja, nicht wirklich ehrlich gesagt,
eine verbesserung erreich ich damit nicht,
eher das gegenteil

[maximov]

Zitat:

Zitat von endeffects

Hallo,...Bisher fange ich alle Antworten über einen Timer und ReadLn ab:
...

Wenn mich nicht alles täuscht, dann generieren die indy-compos eigene events, in denen du dann lesen solltest. Wenn du einen timer nimmst, wartet der lesevorgang so lange, bis da daten kommen. Allerdings können während dessen schon weiter timer aufrufe erfolgt sein...oder so! Indy hab ich ewig nicht gemacht, aber timer kommen mir da spanisch vor :wink:

[MrKnogge]

endeffects, welche Delphi-Version benutzt du ?

Falls du Delphi7 benutzt, liegt der Fehler wohl darin, das es sich hierbei um einen Fehler der standardmäßig installierten Indy-Komponennte handelt.

[endeffects]

hallo,

nein ich hab die indy version schon aktualisiert und nutze
nun die 9er auf delphi 7

[endeffects]

hallo,

also ich hab eine bestehende server verbindung
und sende einen request an den server und
möchte ich die antwort in ein memo packen,
nun weiß ich allerdings nicht wie ich abfrage
ob der buffer lesbar ist, zur zeit wird die
anwendung mit einem exception fehler abgebrochen

Code:

procedure TForm.Button1Click(Sender: TObject);
var cb: string;
begin
  with IdTCPClient do
    begin
      try
        Write(request');
        //if ???readable(2000)??? = true then begin
             ReadBuffer(CB, SizeOf (CB));
             Memo.Lines.Add(cb);
        //end;
      except
        on E : Exception do
          ShowMessage(E.Message);
      end;
    end;

[endeffects]

ich hab das ganze nu nochmal bissel abgeändert:

Code:

procedure TForm.Button1Click(Sender: TObject); 
var cb: string; 
begin 
  with IdTCPClient do 
    begin 
      try 
        Write(request'); 
        if IOHandler.Readable(1000) then
        begin
          ReadBuffer(CB, SizeOf(CB));
           if SizeOf(CB) > 0 then
           begin
            Memo2.Lines.Add(CB);
           end;
         end;

erzeugt allerdings eine zugriffsverletzung die ich nicht
nachvollziehen kann

[endeffects]

es ist zum verzweifeln, hat denn hier niemand ahnung davon?

[Aenogym]

ich verzweifle auch bald.
sockets sind blöd und die indies kapier ich irgendwie nicht. gibt es nicht ein tolles einsteiger-tutorial für indy (das von delphi-sourc.de bringt's irgendwie net...)?

[Tubos]

Als ich vor 4 Tagen mit den Indys (eigentlich nur TCP und UTP) angefangen habe, habe ich auch vergebens nach einem Tutorial gesucht.
Mithilfe der Indy-Demos, der Programmierhilfe (hab mal die Funktionen durchprobiert) und der DP-Suche habe ich dann doch was zusammengebracht.
Hätte mit einem guten Tut aber einfacher gehen können :roll:

[endeffects]

ich finde es sehr schade das es für delphi nicht
ein portal ala php.net gibt, dort werden alle
funktionen detailiert beschrieben und von haus
aus gibt es ein beispielcode der den einsatz
verdeutlich, darüber hinaus haben die mitglieder
die möglichkeit eigene code-schnippsel zu diversen
problemlösungen einzustellen, sehr hilfreich wenn es
darum geht abläufe nachzuvollziehen

gerade für einsteiger ist allerdings besonders die
delphi-hilfe wenig dienlich und tutorials/code-schnippsel
sind oft nur nach langem wühlen in den suchmaschinen
zu finden


leider habe ich bisher noch immer keine lösung für
mein kleines problem gefunden, es wird noch immer ein
excpetion error (EAccessViolation) ausgelöst

Code:

procedure TForm.Button1Click(Sender: TObject);
var cb: string;
begin
  with IdTCPClient do
    begin
      try
        Write('request');
        if IOHandler.Readable(1000) then
        begin
          ReadBuffer(CB, SizeOf(CB));
           if SizeOf(CB) > 0 then
           begin
            Memo.Lines.Add(CB);
            end;
           end;
      except
        on E : Exception do
          ShowMessage(E.Message);
      end;
    end;
end;

[maximov]

hi, versuch mal dies:

Delphi-Quellcode:

setLength(cb,$FF);
ReadBuffer(CB[0], length(CB)); 
Memo.Lines.Add(CB);

Delphi strings sind nur referenzen und du musst erstmal speicher reservieren :wink:

[endeffects]

leider funktioniert CB[0] nicht, wenn ich das gegen
CB ersetze wird beim onclick event eine schutzverletzung ausgelöst,

folgender code funktioniert nun:

Code:

    procedure TForm.Button1Click(Sender: TObject);
    begin
        with IdTCPClient do
        begin
            Write('request');
            Memo.Lines.Add(CurrentReadBuffer);
        end;
    end;

jemand vielleicht noch eine idee wie man
den buffer vorher leert, um nur die aktuellen
daten auszugeben?