// pas encore porté sous Kylix, désolé
procedure WriteStream(stream:TStream);
var
OutStream:THandleStream;
begin
Flush(output); // pour l'entête envoyée par des WriteLn...
// code from DCounter for Delphi 3 by Dave Wedwick (dwedwick@bigfoot.com)
OutputStream:=THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));
Stream.SaveToStream(OutputStream);
OutputStream.Free;
end;
// On utilisera également WriteFile pour envoyer un fichier existant :
procedure WriteFile(FileName:string);
var
s:TFileStream;
begin
s:=TFileStream.Create(FileName,fmOpenRead);
WriteStream(s,Head);
end;
|