Indy-TCP-Server aufsetzen und Dateien versenden

[RWarnecke]

Hallo zusammen,

sorry, wenn ich diesen alten Beitrag auskrame. Aber ich versuche gerade dieses Tutorial mit Indy 10 unter Delphi 2010 umzusetzen. Nur leider scheitert es an den Befehlen AThread.Connection.ReadBuffer und AThread.Connection.WriteBuffer. Da gibt es einen Unterschied von Indy 9 zu Indy 10. Kann mir jemand sagen, wie der neue Befhel heißt oder wo man es nachlesen kann.

[ralfiii]

Zitat von RWarnecke:

...scheitert es an den Befehlen AThread.Connection.ReadBuffer und AThread.Connection.WriteBuffer....

Schau mal unter Connection.IOHandler.Write

[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 ?

[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

[bernhard_LA]

INDY 10 TCP Server DEMO auf source forge verfügbar

[ByTheTime]

Ist das ganze noch aktuell?