Socket.ReceiveText in der Send-Funktion abfragen

[seim]

Ok das geht doch nicht -.-

Hier die final 'n' working Version

Delphi-Quellcode:

function set_led(Lightmap: TLightmapArray): Boolean;
var
  RapeReceivedText : string;
  update_ok : Boolean; //Erhalt der Lightmap
  Bits : string;
  i, j, k : integer;
begin

{...}

  i:= 0;
  repeat
    i:= i +1;
    RapeReceivedText:= RapeSock.Client.Socket.ReceiveText; //<-- so geht es!! ..zu einfach um selbst drauf zu kommen ^.^
    if pos('update_ok', RapeReceivedText) <> 0 then
      update_ok := true
    else
      update_ok := false;
    Sleep(RapeTimeOutMS);
  until (update_ok = true) or (i >= RapeTimeOutChecks);

  Result := update_ok;

{...}

end;