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:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSock, UdpSockUtil, IdUDPServer, IdBaseComponent,
  IdComponent, IdUDPBase, IdUDPClient, IDSocketHandle, IdGlobal, IDStream;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Server: TIdUDPServer;
    Client: TIdUDPClient;
    procedure ServerUDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);

    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

      const


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  zaehler : integer;
implementation

{$R *.dfm}







procedure TForm1.FormCreate(Sender: TObject);
begin
Server.Active := true;
Client.Active := true;
end;

//senden
procedure TForm1.Button1Click(Sender: TObject);

var Buffer : Array [0..4096] of Byte;
    Stream : TMemorystream;
begin

Stream := TMemorystream.Create;
Stream.LoadFromFile('D:\bild.jpg');
Stream.ReadBuffer(Buffer, sizeof(Buffer));
Client.SendBuffer(Buffer,sizeof(Buffer));


Stream.free;
end;


// Empfangen am Server und Schreiben in eine Datei.
procedure TForm1.ServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);


var MStream : TMemorystream;
  

begin

MStream := TMemorystream.create;


MStream.LoadFromStream(ADATA) ;
//MStream.Position := MStream.Position + 4096;    *  Hatte mir vorgestallt, dass der Stream einfach um die Größe des Puffers weiterwandert und so bei jedem Klick ein Stückchen mehr von dem Bild übertragen wird
Mstream.SaveToFile('D:\bild02.jpg');

end;

end.					

1:

var Buffer : Array [0..4096] of Byte; // ab 10000 oder so gibts nen Fehler					

1:
2:
3:
4:
5:

Stream := TMemorystream.Create;   
Stream.LoadFromFile('D:\bild.jpg');         //
Stream.ReadBuffer(Buffer, sizeof(Buffer));      //  Sendet den Stream
Client.SendBuffer(Buffer,sizeof(Buffer));       //
Stream.position := stream.position + 4096; // spult vor damit beim nächsten Buttonklick der nächste Teil //der Datei geschickt wird					

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

  var
    Buffer: String;
    Stream: TFileStream;
    Len: Int64;
begin
  SetLength(Buffer,512); // Buffer anlegen
  // Datei öffnen
  Stream := TFileStream.Create('datei.txt',fmOpenRead or fmShareDenyWrite);
  Len := Stream.Size; // Größe lesen
  while (Len > 0) do begin // bis alles gesendet ist
    if (Len >= 512) then begin // mehr als 512 Bytes übrig?
      Stream.Read(PChar(Buffer)^,512); // lesen
      Client.SendBuf(PChar(Buffer)^,512); // senden
      Dec(Len,512); // zählen
    end
    else begin // dito, aber nur den Rest bis 512 Bytes
      Stream.Read(PChar(Buffer)^,Len);
      Client.SendBuf(PChar(Buffer)^,Len);
      Len := 0;
    end;
  end;
  Stream.Free; // fertig, Datei zumachen					

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

procedure TForm1.ServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);



begin

Adata.readbuffer(PChar(Puffer)^, 512) ;
fs.Writebuffer(PChar(Puffer)^, 512) ;


showmessage(inttostr(fs.size));


//fs.Position := fs.Position + 512;

//Puffer := '';
//setlength(Puffer, 512);

//showmessage(Puffer);
//Mstream.Position := MStream.Position + 512 ;


end;