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:

  Idtcpclient1.writeln('~fsm'+opendialog1.filename); <--Hier wird dem Server der Dateiname übergeben

memo1.lines.add('Trying to send File '+filename1 + ' to the remote computer');

  with IdTCPClient1 do
  begin

    fs := TFileStream.Create(filename1, fmOpenRead); //Datei in FileStream einlesen
     try
      OpenWriteBuffer; //stellt sicher, dass alle Daten versendet werden
      try
       WriteStream(fs, true, true); <--- Hier bleibt Windows 98 hängen!!!
        CloseWriteBuffer;
      except
        CancelWriteBuffer;
        raise;
      end;
    finally
      fs.Free;
      Disconnect;
    end;
      memo1.lines.add('Transfer done!');
  end;


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:

  text:=AThread.Connection.ReadLn();

typ:=copy(text,0,4);

if typ='~fsm' then begin
dateiname:=copy(text,pos('~fsm',text)+4,length(text)-4);
dateiname:=extractfilename(dateiname);
filename1:=dateiname;
endung:=copy(dateiname,pos('.',dateiname),length(dateiname)-pos('.',dateiname)+1);
savedialog1.FileName:=filename1;
savedialog1.Filter:=(endung+'|'+endung);


//FILES EMPFANGEN
with AThread.Connection do
    try
     fs := TFileStream.Create('C:\filestream.tmp', fmCreate or fmShareExclusive);
            SizeOfIncomingStream := ReadInteger; //Größe des Streams empfangen
      ReadStream(fs, SizeOfIncomingStream); //und übergeben
    finally
      fs.Free;
      streamsend:=False;
      Disconnect;
      end;

    AThread.Synchronize(speichern_unter);



exit;
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:

//Files senden

Idtcpclient1.writeln('~fsm'+opendialog1.filename);
memo1.lines.add('Trying to send File '+filename1 + ' to the remote computer');

  with IdTCPClient1 do
  begin
        fs := TFileStream.Create(filename1, fmOpenRead); //Datei in FileStream einlesen
        iTmpSize  := 0;
        tmpMS := TMemoryStream.Create;
        iFileSize := fs.Size;
        fs.Position := 0;
        while iTmpSize<iFileSize do begin
             tmpMs.clear;
             Application.ProcessMessages;
             iNextSize := iFileSize - iTmpSize;
             if iNextSize > packagesize then
                iNextSize := packagesize;
             iTmpSize := iTmpSize + tmpMs.CopyFrom(fs,iNextSize);
        try
             OpenWriteBuffer; //stellt sicher, dass alle Daten versendet werden
             WriteStream(tmpms, true, true,0); {das 2. true ist wichtig!, da es bewirkt, dass die Größe des Streams mittels WriteInteger zuerst verschickt wird}
             CloseWriteBuffer;
        except
             CancelWriteBuffer;
        end;

  end;

      fs.free;
      FreeAndNil(tmpMs);
      sendscreenshot:=False;
      memo1.lines.add('Transfer done!');

end;


 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:

//FILES EMPFANGEN
iReceivedBytes := 0;
fs := TFileStream.Create('C:\filestream.tmp', fmCreate or fmShareExclusive);




 with AThread.Connection do


   While (not AThread.Terminated) and (AThread.Connection.Connected)
      do begin
       tmpMS.clear;

            SizeOfIncomingStream := ReadInteger; //Größe des Streams empfangen
       try
      ReadStream(tmpMS, SizeOfIncomingStream); //und übergeben
        if tmpMS.Size > 0 then begin
          fs.copyFrom(tmpMS,0);

          iReceivedBytes := iReceivedBytes + tmpMS.Size;
        end;
      except
      showmessage('fehler!');
      end;
   end;
         fs.Free;
      streamsend:=False;
      AThread.Connection.Disconnect;
      
    AThread.Synchronize(weitergehts);



exit;
end;

AThread.connection.disconnect;
AThread.Synchronize(weitere_bearbeitung);
exit;					

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

const
  diSFileCopyStart = 1;
  diSFileCopyEnd = 2;
  diSFileCopyPart = 3;
  diEFileCopyAbort = 4;

  diEFileCopyGetPart = 13;
  diEFileCopyAbort = 14;

  diChat = 20;
  //usw...

TDataHeader = record
  Id: Byte; //Für die Indentifikation;
  Pos: Cardinal; //Für Position beim Kopieren
  Data: Pointer; //Für den Inhalt					

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:

//S: Steht für Sender, E: für Empfänger
//Senden-Funktion sieht wie folgt aus:
  procedure Senden(Id1: Byte; Pos: Cardinal; var Data);

//S: Copyvorgang starten:
  Senden(diSFileCopyStart);
//E: Antwort
  //Ja:
  Senden(diEFileCopyGetPart, 0); //0 = Anfang
  Datei zum speichern öffnen (TFileStream)
  //Nein:
  Senden(diEFileCopyAbort);

//S: Wenn ja, Vorgang starten
  Datei öffnen (TFileStream);
  //Zur Position 0 wechseln
  Erster Block einlessen (Größe: 1024 * x)
  Senden(diSFileCopyPart, Größe des Blockes, Block);
//E:
  Block speichern (TfileStream)
  Senden(diEFileCopyGetPart, Stream.Pos);  //Neue Position senden

//S:
  Zur Position P wechseln
  Block einlessen
  Senden(diSFileCopyPart, Größe des Blockes, Block);

//E: Siehe oben bis die Nachricht diSFileCopyEnd oder diSFileCopyAbort kommt
//Am ende noch Dateien schliessen und fertig.