Forum: Netzwerke
Delphi
by shmia,
29. Apr 2008
Hier ist noch ein Artikel, der das Innenleben von Stream etwas beleuchtet:
http://www.delphipraxis.net/internal_redirect.php?t=8211
Und hier ein 1. Entwurf der "Schnüffel" Streamklasse:
interface
uses Classes;
// ungetestet, da direkt so eingetippt
type
TSnifferStream = class(TStream)
Forum: Netzwerke
Delphi
by shmia,
29. Apr 2008
Dat mus du vorher sagen.
Bau dir doch deine eigene Streamklasse (von TStream ableiten) und überlade die Methoden Read, Write und Seek.
Nur die Write-Methode braucht einen Inhalt, die anderen bleiben leer.
function TSnifferStream.Write(const Buffer; Count: Longint): Longint;
var
s : string;
begin
SetLength(s, Count);
Move(Buffer, s, Count);
// jetzt sind die Daten im String s und...