1:
2:
3:

$fp = fsockopen($ip,$port);
fwrite($fp,$text);
fclose($fp);                    

1:
2:
3:
4:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
Label1.Caption:= AThread.Connection.ReadLn()
end;                    

1:
2:
3:

begin
form1.Label1.Caption:= AThread.Connection.ReadLn('');
end;                    

1:
2:
3:

begin
form1.Label1.Caption:= AThread.Connection.ReadLn;
end;                    

1:
2:
3:

$fp = fsockopen($ip,$port);  //ok hier werden der variable die daten übergeben
fwrite($fp,$text);           //hier wird was an die 
fclose($fp);              //fp-variable/verbindung geschickt, aber was soll $text ? text ist leer oder??sag lieber mal 'hallo' oder so und dann probiers nomal                    

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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Label1: TLabel;
    Label2: TLabel;
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
    procedure IdTCPServer1Connect(AThread: TIdPeerThread);
    procedure IdTCPServer1Disconnect(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
Form1.Label1.Caption:= AThread.Connection.ReadLn;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button11Click(Sender: TObject);
var   s:string;
begin
  s:=idhttp1.Get('http://huhnau.hu.funpic.de/server.php');//gibt dem s den wert der seite
  memo1.Lines.Add(s);//was du mit ihm machst bleib dir überlassen!
  label1.caption:=s;//was du machen willst!
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

$fp = @fsockopen (84.164.234.201,25,&$err,&$errd,10);
if (!$fp) 
{
  echo "Konnte keine Verbindung herstellen";
} 
else 
{
  echo "Nachricht wurde gesendet";
  fputs ($fp, "HELO");
}                    

1:
2:
3:
4:
5:

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
richedit1.Lines.Add(socket.ReceiveText);
end;