1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var 
  buffer : array[0..999999] of char; //ist global deklariert 

{ Senderoutinen etc. } 

procedure TForm1.FileSocketRead(Sender: TObject; Socket: TCustomWinSocket); 
var 
SendLen : integer; 
begin 
SendLen := socket.SendBuf(Buffer, Sizeof(Buffer)); 
ProgressBar1.StepBy(SendLen); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.Button11Click(Sender: TObject);
var
FName : string;
Size : integer;
begin
if (client.Active = true) and (filelistbox1.ItemIndex > -1) then
 begin
  FName :=  filelistbox1.FileName;
  Stream := TFileStream.Create(Fname,fmopenread);
  Stream.Position := 0;
  Size := Stream.Size;
  memo2.Lines.add('Bereite Datentransfer vor...');
  memo2.lines.add('Sende Dateigröße von ' + ExtractFileName(Fname) + '...');
  Client.Socket.SendText('!SIZE' + inttostr(Size));
  filesize.Text := inttostr(Size);
  Stream.Free;
  sleep(2000);
  Client.Socket.SendText('!FILE' + ExtractFileName(Fname));
  memo2.lines.add('Sende Dateiname von ' + ExtractFileName(Fname) + '...');
  filename.Text := ExtractFileName(FName);
  sleep(2000);
  FileSocket.Host := edit2.text;
  FileSocket.Open;

  ProgressBar1.Max := Size; //für den Client die ProgressBar auf den Max-Wert setzen - <span style="color: darkred">erster Ansatz um die ProgressBar zu fixen</span>
 end
 else
  Application.MessageBox('Sie müssen vor dem Senden einer Datei erst mit einem Empfangs-Server verbunden sein!','Hinweis');
end;					

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

procedure TForm1.FileSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
FName : String;
begin
memo2.lines.add('Mit Client verbunden.');
FName :=  filelistbox1.FileName;
FileSocket.Socket.SendStream(TFileStream.Create(Fname,fmopenread));
memo2.Lines.add('Sende Datei ' + ExtractFileName(FName) + '...');
end;					

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

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
Data : String;
begin
Data := Socket.ReceiveText;
If Data = '!DONE' then
begin
memo2.lines.add('Datei-Übertragung erfolgreich.');
Application.MessageBox('Die Dateiübertragung wurde erfolgreich abgeschlossen.','Hinweis');
FileSocket.Close;
end;


// FIX?
If Data = '!100' then ProgressBar1.StepBy(100);
if ProgressBar1.Position >= GlobalSize then ProgressBar1.Position := 0;
// FIX?

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.FileSocketServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  //buffer : array[0..999999] of char; //unsigned char
  FilePath : string;
  IncommingLen, RecievedLen : integer;
begin
FilePath := ExtractFilePath(Application.ExeName);
IncommingLen := socket.ReceiveLength;
//recieve the length of the bytes
 while IncommingLen > 0 do
  begin
  RecievedLen := socket.ReceiveBuf(Buffer, Sizeof(Buffer));
  //get the buffer with the bytes from the files
  if RecievedLen <= 0 then
   begin
    Break
    //if there are no more bytes in the file then
    //exit this while statement (break)
   end
   else
    Stream.Write(Buffer,RecievedLen);
    ProgressBar1.StepBy(RecievedLen);
    //if the buffer has data, write to the file
    if Stream.Size >= strtoint(FileSize.Text) then
    //if the new file is the same amount of bytes as
    //the original then send the 'DONE' command to the client
     begin
     Server.Socket.Connections[0].SendText('!DONE');
     Application.MessageBox('Die Dateiübertragung wurde erfolgreich abgeschlossen.','Hinweis');
     log('Datei erfolgreich empfangen!');
     Stream.Free;
     filesize.Clear;
     filename.Clear;
     FileSocketServer.Close;
     progressbar1.Position := 0;
     break
     end;
 
    // FIX? 
    if ((Stream.Size div 100)*100) = Stream.Size then Server.Socket.Connections[0].SendText('!100');
    // FIX?

  end;
end;