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:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

procedure TForm1.Senden(Datei: String);
Var
  fs: TFileStream;
  tmpMs: TMemoryStream;
  iTmpSize: Longint;
  iNextSize: Longint;
  bError: Boolean;
  sMsgToSvr: String;
  iSendTime: Cardinal;
  iTimeDiff: Cardinal;
  BytesperSek: Double;
  sCmd: String;
begin
  try
    fs := TFileStream.Create(Datei, fmOpenRead or fmShareDenyWrite);
  except
    MessageDlg(Datei + ' kann nicht geöffnet werden ! '+#10#13
    +'Wahrscheinlich ist diese Datei von einer anderen Anwendung geöffnet !',
    mtError,[mbok], 0);
    exit;
  end;
  btnSenden.Enabled := false;
  TCPClient.Disconnect;
  TCPClient.ConnectTimeout := 10000;
  TCPClient.Host := ed_ServerIP.Text;
  TCPClient.Port := 9876;
  try
    TCPClient.Connect();
  except
    Messagedlg('Es konnte keine Verbindung zum Server: ' +
    ed_ServerIP.Text + ' auf Port: 9876 hergestelt werden!', mtError,[mbok],0);
    bSendeFehler := true;
    btnSenden.Enabled := true;
    exit;
  end;
  if TCPClient.Connected then
  begin
    stb.Panels[1].Text := '';
    sMsgToSvr := inttostr(fs.size) + cSplitChar + ExtractFilename(Datei);
    TCPClient.IOHandler.WriteLn(sMsgToSvr);
    tmpMS := TMemoryStream.Create;
    try
      iFileSize := fs.Size;
      iTmpSize := 0;
      bError := false;
      fs.Position := 0;
      while (iTmpSize < iFileSize) and (not bError) do
      begin
        tmpMs.clear;
        Application.ProcessMessages;
        iSendTime := GetTickCount;
        try
          iNextSize := iFileSize - iTmpSize;
          if iNextSize > cFileSplitSize then
            iNextSize := cFileSplitSize;
          iTmpSize := iTmpSize + tmpMs.CopyFrom(fs,iNextSize);
          TCPClient.IOHandler.WriteBufferOpen;
          TCPClient.IOHandler.Write(tmpMS, 0, true);
          TCPClient.IOHandler.WriteBufferClose;
          iTimeDiff := GetTickCount - iSendTime;
          pBar.Position := Round(iTmpSize/iFileSize*100);
          pBar.Repaint;
          try
            BytesperSek := round(tmpMs.Size/1024/iTimeDiff*1000);
          except
            BytesperSek := 0;
          end;
          lab_Speed.Caption := 'Speed ' + FormatFloat('0.00',BytesperSek)+ ' KB/Sek.';
          lab_Speed.Repaint;
        except
          bError := true;
        end;
      end;
      try
        sCmd := TCPClient.IOHandler.ReadLn(#$A,7500);
      except
        sCmd := 'TimeOut-Error';
      end;
      TCPClient.Disconnect;
    finally
      tmpMs.Clear;
      FreeAndNil(tmpMs);
    end;
    if (not bError) and (sCmd = 'FILEOK') then
      stb.Panels[1].Text := 'Datei wurde erfolgreich versendet!'
    else
      stb.Panels[1].Text := 'Fehler beim versenden der Datei!';
  end;
  pBar.Position := 0;
  pBar1.Position := 0;
  lab_Speed.Visible := false;
  if iSound = 0 then
    PlaySound('SystemNotification', 0, SND_SYNC);
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:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

function TFileReceiver.Start : Boolean;
Var bError : Boolean;
    bReady : Boolean;
    fs     : TFileStream;
begin
  result := true;
  Form1.fLabRe.Visible := true;
  if Form1.cbxbeim_Senden.Checked then
  begin
    Form1.Tray.Active := true;
    Form1.Hide;
  end;
  if iFileSize > 0 then begin
    Form1.stb.Panels[1].Text := AThread.Connection.Socket.Binding.PeerIP +
    ' überträgt ' + sFileName;
    bError := false;
    bReady := false;
    iReceivedBytes := 0;
    sTemp := GenerateUniqueFileName(sFileName);
    sFileName := Form1.sVerzeichnis + '\' + sTemp;
    try
      fs := TFileStream.Create(sFileName, fmCreate or fmShareExclusive);
    except
      result := false;
      exit;
    end;
    try
      While (AThread.Connection.Connected) and
            (not bError) and (not bReady) do begin
        tmpMS.clear;
        try
          AThread.Connection.IOHandler.ReadStream(tmpMS);
          if tmpMS.Size > 0 then begin
            fs.copyFrom(tmpMS,0);
            iReceivedBytes := iReceivedBytes + tmpMS.Size;
          end;
          bReady := (fs.Size = iFileSize);
        except
          tmpMS.Clear;
          bError := true;
        end;
      end;
    finally
      fs.free;
      if bError then
        DeleteFile(sFileName);
      Form1.stb.Panels[1].Text := 'Datei komplett empfangen!';
    end;
    result := FileExists(sFileName);
    Form1.fLabRe.Visible := false;
  end;
  if Form1.cbxbeim_Senden.Checked then
  begin
    Form1.Tray.Active := false;
    Form1.Show;
  end;
end;