Indy-TCP-Server aufsetzen und Dateien versenden

[totti14]

Zitat von RWarnecke:

Hallo,

mit der Antwort komme ich leider nicht weiter. Ich finde nicht das passende ReadStream oder WriteStream von Indy 9 für Indy 10. Ich stochere da irgendwie im Nebel rum. Kann mir jemand es bitte erklären, was ich zu tun habe ?

Hi,
AThread ist jetzt AContext.

Code:

procedure TFrm.SrvExecute(AContext: TIdContext);
Var
  buf : TIdBytes;
begin
  // Prüfen ob Daten für die Verbindung vorhanden sind, dabei wird Status der Verbindung ebenfalls überprüft
  // AContext.Connection.IOHandler.CheckForDataOnSource(20);
  // Wenn keine Daten vorhanden dann raus hier
  if AContext.Connection.IOHandler.InputBufferIsEmpty then
    begin   
      SleepEx(1, true);
      Exit;
    end;
  // sonst Daten verarbeiten
  with AContext.Connection.IOHandler do
  begin
    InputBuffer.ExtractToBytes(buffer, len, false);
    Write(buf,len);
    usw... 
  end;

end;

Gruß
miparo