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:
95:
96:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdContext, StdCtrls, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdTCPServer;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdTCPServer1Execute(AContext: TIdContext);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

    Uses IdTCPClient;  // This line includes the correct component

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
       IdTCPServer1.Active := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
         IdTCPServer1.Active := False;
end;

    procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
    Var
       Cli        : TIdTCPClient;
       Len        : Cardinal;
       Data       : String;
    begin
         Try
            Cli := NIL;
            Try
               { Create & Connect to Server }
               Cli := TIdTCPClient.Create( NIL );
               Cli.Host := 'tue-hauptclan.eu';
               Cli.Port := 80;
               { Connect to the remote server }
               Cli.Connect;
               { Read/Write loop }
               Repeat
                  { Read data from Client }
                  If AContext.Connection.Socket.RecvBufferSize>0 then
                  Begin
                       Len := AContext.Connection.Socket.RecvBufferSize;
                       Data := AContext.Connection.Socket.ReadString(Len);
                       { Write it to the Server }
                       Cli.Socket.Write( Data );
                  End;
                  { Read data from Server }
                  If Cli.Socket.RecvBufferSize>0 then
                  Begin
                       Len := Cli.Socket.RecvBufferSize;
                       Data := Cli.Socket.ReadString(Len);
                       { Write it to the Server }
                       AContext.Connection.Socket.Write( Data );
                  End;
                  { Check for Disconnects }
                  Cli.Socket.CheckForDisconnect(False);
                  Cli.CheckForGracefulDisconnect(False);
                  AContext.Connection.Socket.CheckForDisconnect(False);
                  AContext.Connection.CheckForGracefulDisconnect(False);
                  { Release system slizes }
                  SleepEx(1,True);
               Until (NOT AContext.Connection.Connected) OR (NOT Cli.Connected);
            Finally
               If Assigned(Cli) then
               Begin
                    Cli.Disconnect;
                    Cli.Free
               End;
               { Disconnect real client }
               AContext.Connection.Disconnect;
            End;
         Except End;
    end;

end.					

1:
2:
3:

except
  on E: Exception do Showmessage(E.Message);
end;					

1:
2:
3:

except
  on E: Exception do Showmessage(E.Message);
end;					

1:
2:

Len := AContext.Connection.Socket.RecvBufferSize;//<--- len wird gesetzt
Data := AContext.Connection.Socket.ReadString(Len);//<----hier bleibt er hängen!!!					

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

class function TIdSocketListWindows.FDSelect(AReadSet, AWriteSet,
 AExceptSet: PFDSet; const ATimeout: Integer): Boolean;
var
  LResult: Integer;
  LTime: TTimeVal;
begin
  if ATimeout = IdTimeoutInfinite then begin
    LResult := IdWinsock2.Select(0, AReadSet, AWriteSet, AExceptSet, nil);//<--- hier passiert nichts mehr
  end else begin
    LTime.tv_sec := ATimeout div 1000;
    LTime.tv_usec := (ATimeout mod 1000) * 1000;
    LResult := IdWinsock2.Select(0, AReadSet, AWriteSet, AExceptSet, @LTime);
  end;
  //TODO: Remove this cast
  Result := (GStack as TIdStackBSDBase).CheckForSocketError(LResult) > 0;
end;					

1:

Data := AContext.Connection.Socket.ReadString(502);					

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

 
If AContext.Connection.Socket.RecvBufferSize>0 then
Begin
    Len := AContext.Connection.Socket.RecvBufferSize;
    while len>0 do
    begin
       if length(AContext.Connection.Socket.ReadLn)<>0 then
       begin
           Data := Data + AContext.Connection.Socket.ReadLn;
           dec(len);
       end
       else break;
   end;
   { Write it to the Server }
   Cli.Socket.Write( Data);
End;