Dateien mittels Stream versenden (Internet)

[mandumoal]

Hi !
Ich will über meinen Chat (idTCPServer un Client) Dateien versenden können. Dazu hab ich bis jetzt nur die Möglichkeit
WriteStream-ReadStream gefunden. Da ich noch nie mit Streams gearbeitet habe weiss ich nicht wie ich das jetzt anstellen soll!
Wenn jemand ein Tutorial zum Thema 'Stream' Anzubieten hat dann nur her damit :D !
Falls man es auch ohne große Probleme hier erklären kann wäre mir damit auch sehr geholfen.

mfg mandumoal

[Ultimator]

Such mal im Forum nach "Dateien AND indy". Da müsstest du eigentlich fündig werden.

Mein 100. Post *freu* :party:

[kiar]

Zitat:

Mein 100. Post *freu*

und was für einer !!!!!!!!!!!!!! :shock:

[Dani]

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 :wink:

Gruß,
Dani