AdsPortOpen

Delphi 5 Programm

unit frmAdsPortOpenUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TcAdsDef, TcAdsApi, Buttons;

type
  TfrmAdsPortOpen = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    port : Longint;
  end;

implementation

{$R *.DFM}
//////////////////////////////////////////////////////////////////////////////
procedure TfrmAdsPortOpen.FormCreate(Sender: TObject);
begin
     port := AdsPortOpen();
     Label1.Caption := Format( 'Client port: %d [0x%x]', [port,port] );
end;

end.