Hi mandumoal,
Zitat:
Aus der Online-Hilfe:
Streams sind einfach nur eine Möglichkeit, Daten zu lesen und zu schreiben. Streams stellen eine gemeinsame Schnittstelle für das Lesen und Schreiben von bzw.auf unterschiedliche Medien bereit, wie beispielsweise [Festplatten- und
RAM-]Speicher, Strings, Sockets oder Blob-Streams.
Da du Dateien von der Festplatte versenden willst, brauchst du einen
TFileStream.
Das könnte dann etwa so aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var FS: TFileStream;
begin
try
FS := TFileStream.Create('C:\Existierende Datei.dat', fmOpenRead + fmShareDenyWrite);
TCP1.WriteStream(FS, true, true);
finally
If FS<>nil then FS.Free;
end;
end;
Mit TFileStream.Create weist du FS eine Datei zu. Da wir die Datei nur lesen möchten, öffnen wir sie im Modus
fmOpenRead. Und weil wir nicht wollen, dass irgendein Programm in die Datei schreibt, während wir sie auslesen, verbieten wir mit
fmShareDenyWrite allen anderen Programmen, die Datei mit Schreibzugriff zu öffnen.
Ist die Datei nicht vorhanden, löst Create eine
Exception aus, also solltest du evtl. vorher mit FileExists(..) prüfen, ob die Datei existiert.
Ich hoffe das war irgendwie hilfreich
Gruß,
Dani