1:

mms://wms.domain.fm/audiofile.wma					

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:

procedure TFormTriggerLoad.IndTCPClientConnected
          ( Sender : TObject );
begin
  ShowMessage( 'TCPClient connected.' );
end;

procedure TFormTriggerLoad.IndTCPClientDisconnected
          ( Sender : TObject );
begin
  ShowMessage( 'TCPClient disconnected.' );
end;

procedure TFormTriggerLoad.BttDLTCPConnectClick
          ( Sender : TObject );
begin
  if IndTCPClient.Connected = False then
  begin
    Self.IndUDPClient.Host      := Self.ExtractHostFromURL( Self.EdtDLURL );   // Ich glaube, das funktioniert
    Self.IndUDPClient.Port      := 24050;                                      // so nicht.
    Self.IndTCPClient.BoundIP   := cNul;     // !! Weiß ehrlich gesagt nicht, wie ich die herausfinde.
    Self.IndTCPClient.BoundPort := 24050;    // Ich bin davon ausgegangen, dass ich hier meinen UDP eintrage
                                             // Wiki: "... um seine IP-Adresse und einen selbst gewählten UDP-Port zu übermitteln."
                                             // Inzwischen weiß ich, dass hier allgemein nur der Port für den Empfang via TCP eingetragen wird.
    Self.IndTCPClient.Host      := Self.ExtractHostFromURL( Self.EdtDLURL );
    Self.IndTCPClient.Port      := 1755;
    Self.IndTCPClient.Connect( 60 );
  end;
end;

procedure TFormTriggerLoad.BttDLTCPDisconnectClick
          ( Sender : TObject );
begin
  Self.IndTCPClient.Disconnect(  );
end;

procedure TFormTriggerLoad.BttDLStreamClick
          ( Sender : TObject );
var
  StreamTarget : TFileStream;
begin
  StreamTarget := TFileStream.Create( Self.DlgSaveDL.Text, fmCreate );
  Self.IndTCPClient.ReadStream( StreamTarget, -1, True );
  StreamTarget.Free(  );
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:

{
type
  IndUDPServer = TIdUDPServer;
  IndTCPClient = TIdTCPClient;
}
procedure TFormTriggerLoad.BttDLUDPStreamClick
          ( Sender : TObject );
begin
  if IndTCPClient.Connected = False then
  begin
    Self.IndTCPClient.Host := Self.ExtractHost( Self.EdtDLURL.Text );
    Self.IndTCPClient.Port := 1755;
    Self.TCPInfoString     := 'Host: ' + Self.IndTCPClient.Host + #10 + 'Port: ' + IntToStr( Self.IndTCPClient.Port );
    Self.IndTCPClient.Connect( -1 );
    if Self.IndTCPClient.Connected = True then
    begin
      // Hier müsste ich nun die Server-Anfragen senden. Aber wie sehen diese aus und wie werden sie gesendet?
      Self.IndTCPClient.Disconnect(  );
    end
    else
      ShowMessage( 'TCP-Connection failed:' + #10#10 + Self.TCPInfoString );
  end
  else
      ShowMessage( 'TCP already connected:' + #10#10 + 'Host: ' + Self.TCPInfoString );
end;

procedure TFormTriggerLoad.IndUDPServerUDPRead
          ( Sender : TObject; AData : TStream; ABinding : TIdSocketHandle );
var
  StreamTarget : TFileStream;
  Buffer       : Array[ 0..4096 ] of Byte;
  BufferRead   : Longint;
begin
  StreamTarget := TFileStream.Create( Self.EdtDLPathTarget.Text, fmCreate );
  repeat
    BufferRead := AData.Read( Buffer, SizeOf( Buffer ) );
  until ( BufferRead = 0 ) or ( StreamTarget.Write( Buffer, BufferRead ) = 0 );
  StreamTarget.Free(  );
end;