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:

var
  wsa: WSAData;
  s: TSocket;
  server: sockaddr_in;
  cmd: Array[0..1024] of Char;
  i, res:Integer;
begin
  cmd := 'Hi, Server';
  if WSAStartup(MakeWord(2,0), wsa) > 0 then
    MessageBox(0, 'WSAStartup', 'Error:',0);
  s := Socket(AF_INET, SOCK_DGRAM, 0);
  if s = INVALID_SOCKET then
    MessageBox(0, 'Socket', 'Error:',0);
  server.sin_family := AF_INET;
  server.sin_port := htons(5000);
  server.sin_addr.S_addr := inet_addr('192.168.0.10');
  i := SizeOf(server);
  if sendto(s, cmd, SizeOf(cmd), 0, server, i) = SOCKET_ERROR then
    MessageBox(0, PCHAR('SendTo Errorcode: '+IntToStr(WinSock.WSAGetLastError)), 'Error:',0);
  res := recvfrom(s,cmd,255,0,server,i);
  //cmd := copy(cmd, 0, res);
  if res = SOCKET_ERROR then
    MessageBox(0, PCHAR('recvfrom Errorcode: '+IntToStr(WinSock.WSAGetLastError)), 'Error:',0)
  else
    MessageBox(0, cmd, 'Empfangener Text',0);