1:
2:
3:
4:
5:
6:
7:

with opendialog1 do
begin
if execute then
begin
edit2.Text:=extractfilename(filename); //Der Dateiname wird in edit2 ausgegeben
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

if not (edit2.text='') then //überprüfen, ob überhaupt ne Datei ausgewählt ist
begin
FStream := TFileStream.Create(opendialog1.filename, fmOpenRead);  //schreiben der Datei in einen TFileStream
for i := 0 to serversocket2.socket.activeconnections-1 do 
//Alle mit dem Serversocket verbundenen Clientsockets //durchgehen
begin
serversocket1.socket.connections[i].sendtext('Der Administrator hat folgende Datei zum Abruf bereit gestellt: '+extractfilename(opendialog1.filename));
//serversocket1 ist für die Übermittlung von chatnachrichten zuständig
//Er gibt hier die Ankündigung der Datei aus
sleep(100);
//Der Dateiname wird an das Client-Programm übermittelt
// Um diese Angabe von herkömmlichen Nachrichten zu unterscheiden
// beginnt diese mit 'file#'; z.B. 'file#test.txt'
serversocket1.socket.connections[i].SendText('file#'+extractfilename(opendialog1.filename));
sleep(300);
//Der Serversocket2, zuständig für Übertragen der Filestreams, sendet die Datei an alle verbundenen Clientsockets
serversocket2.socket.connections[i].sendstream(fstream);
sleep(500);
end;
end;                    

1:
2:
3:
4:

// Der User wählt das Verzeichnis aus, wo die empfangene Datei gespeichert werden soll
if selectdirectory('Wo soll die gesendete Datei gespeichert werden?','',verzeichnis) then
begin
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

//prüfen ob dies die Angabe für den Dateinamen ist (s ist der socket.receivetext)
if (s[1]+s[2]+s[3]+s[4]+s[5]='file#') then
begin
dateiname_empfangen:='';
// den Dateinamen Zeichen für Zeichen auslesen
for i := 6 to length(s) do
begin
dateiname_empfangen:=dateiname_empfangen+s[i];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

// diesen Quellcode versteht ich nich wirklich
// Ich hab ihn aus:
// Navigation:  Delphi-Forum.de Foren-Übersicht  » FAQ: Internet / Netzwerk  » ...eine Datei über die Sockets verschicken?  von O'rallY kopiert und angepasst
var 
  FStream: TFileStream;
  SizeOfFile: Integer; 
  pBuffer: Pointer;
begin

  FStream := TFileStream.Create(verzeichnis+'\'+dateiname_empfangen, fmcreate or fmOpenWrite);
  SizeOfFile := clientsocket2.Socket.ReceiveLength;
//der Clientsocket2 ist für das Empfangen des Filestreams verantwortlich, den der Serversocket2 geschickt hat
  GetMem(pBuffer, SizeOfFile); 
  try 
    clientsocket2.Socket.ReceiveBuf(pBuffer^, SizeOfFile); 
    FStream.Write(pBuffer^, SizeOfFile); 
  finally 
    FreeMem(pBuffer);
    FStream.Free;
  end;