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

+ $21[531C601A]{htmlhelp2100.bpl} HTMLHelp2Viewer.HTMLHelp2Viewer.THTMLHelp2Viewer.InitDocExplorer (Line 812, "HTMLHelp2Viewer.pas" + 8) + $21
 + $3[531C6096]{htmlhelp2100.bpl} HTMLHelp2Viewer.HTMLHelp2Viewer.THTMLHelp2Viewer.GetDocExplorer (Line 820, "HTMLHelp2Viewer.pas" + 2) + $3
 + $16[531C5E8A]{htmlhelp2100.bpl} HTMLHelp2Viewer.HTMLHelp2Viewer.THTMLHelp2Viewer.DisplayTopic (Line 799, "HTMLHelp2Viewer.pas" + 10) + $16
 + $8[51F7CEFC]{rtl100.bpl  } HelpIntfs.HelpIntfs.THelpManager.ShowTopicHelp (Line 699, "HelpIntfs.pas" + 13) + $8
 + $14[52079C69]{vcl100.bpl  } Forms.Forms.TApplication.HelpJump (Line 7989, "Forms.pas" + 8) + $14
 + $F[00413E7A]{bds.exe     } AppMain.AppMain.TAppBuilder.cbDesktopKeyPress (Line 5564, "ui\AppMain.pas" + 4) + $F
 + $7[51F5FEFF]{rtl100.bpl  } Classes.Classes.TBasicAction.Execute (Line 11070, "classes.pas" + 3) + $7
 + $C[520586C8]{vcl100.bpl  } Controls.Controls.TControl.Perform (Line 5018, "Controls.pas" + 5) + $C
 + $1F[5205C56D]{vcl100.bpl  } Controls.Controls.TWinControl.IsControlMouseMsg (Line 7130, "Controls.pas" + 15) + $1F
 + $6[520B6029]{vcl100.bpl  } ComCtrls.ComCtrls.TToolBar.WndProc (Line 19404, "ComCtrls.pas" + 80) + $6
 + $6[5205C1A4]{vcl100.bpl  } Controls.Controls.TWinControl.MainWndProc (Line 7021, "Controls.pas" + 3) + $6
 + $0[51F60BC0]{rtl100.bpl  } Classes.Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
 + $6A[7E368731]{USER32.dll  } GetDC + $6A
 + $14A[7E368811]{USER32.dll  } GetDC + $14A
 + $122[7E3689C8]{USER32.dll  } GetWindowLongW + $122
 + $A[7E3696C2]{USER32.dll  } DispatchMessageA + $A                    

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

function openDExplore(aLink)
{
  var session;
  session = new ActiveXObject("DExplore.AppObj");
  session.SetCollection("ms-help://borland.bds4", "");
  session.Contents();
  session.DisplayTopicFromUrl(aLink);
}                    

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:

procedure TForm1.Button1Click(Sender: TObject);      // Verbinden
var
  VerR    : word;
  WSADATA : TWSAData;
  Res     : Integer;
  hints   : PAddrInfo;
  ARes    : PAddrInfo;

begin
  VerR := 2;
  Res := WSAStartup( VerR, WSADATA );
  if Res = 0 then
  begin
    hints             := AllocMem( SizeOf( TAddrInfo ) );
    ARes              := AllocMem( SizeOf( TAddrInfo ) );
    hints.ai_flags    := 0;
    hints.ai_family   := AF_INET;     // Internetprotokoll
    hints.ai_socktype := SOCK_STREAM;
    hints.ai_protocol := IPPROTO_TCP;
    hints.ai_flags    := AI_PASSIVE;

    // Resolve the server address and port
    Res := getaddrinfo(Nil, PChar( Edit2.Text ), hints, ARes );
    if Res = 0 then
    begin
      // Create a SOCKET for connecting to server
      SSock := socket( ARes.ai_family, ARes.ai_socktype, ARes.ai_protocol );
      if SSock <> INVALID_SOCKET then
      begin
        // Setup the TCP listening socket
        Res := bind( SSock, ARes.ai_addr^, ARes.ai_addrlen );
        if Res <> SOCKET_ERROR then
        begin
          freeaddrinfo( ARes );
          Res := listen( SSock, SOMAXCONN );
          if Res = 0 then
          begin
            // Accept a client socket
            CSock := accept( SSock, Nil, Nil );    
            if CSock <> INVALID_SOCKET then
            begin
              // No longer need server socket
              closesocket( SSock );
              // Receive until the peer shuts down the connection

            end
            else
            begin
              Memo1.Lines.Add( 'Fehler Erstellen des Clientports: ' + IntToStr( WSAGetLastError ) );
              closesocket( SSock );
              WSACleanup;
            end;
          end
          else  // listen ServerSock
          begin
            Memo1.Lines.Add( 'Fehler Portprüfung: ' + IntToStr( WSAGetLastError ) );
            closesocket( SSock );
            WSACleanup;
          end;
        end
        else  // bind
        begin
          Memo1.Lines.Add( 'Fehler beim Binden: ' + IntToStr( WSAGetLastError ) );
          freeaddrinfo( ARes );
          closesocket( SSock );
          WSACleanup;
        end;
      end
      else    // socket
      begin
        Memo1.Lines.Add( 'Fehler beim Erstellen des Socket : ' + IntToStr( WSAGetLastError ) );
        freeaddrinfo( ARes );
        WSACleanup;
      end;
    end
    else      // getaddrinfo
    begin
      Memo1.Lines.Add( 'Fehler bei der Portprüfung: ' + IntToStr( Res ) );
      WSACleanup;
    end;
  end
  else        // WSAStartup
  begin
    Memo1.Lines.Add( 'Initialisierungsfehler: ' + IntToStr( Res ) );
  end;
end;