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

2.13 EnumComPorts
DWORD EnumComPorts (DWORD idx,
LPSTR comstr,
DWORD maxlen)
Liefert einen Eintrag aus der von der Library erstellten statischen Liste der zur Verfügung
stehenden COM-Ports. Ein vorheriger Aufruf der Funktion "GetAvailableComPorts()" ist
notwendig. Der Eintrag wird als String mit Angabe des COM-Ports und einer Beschreibung
der Verwendung, wie sie aus der Windows-Registry zu entnehmen ist, zurückgegeben, z.B.:
"COM32 (fischertechnik USB ROBO TX Controller)". Der übergebene Stringbuffer muß
entsprechend dimensioniert sein, damit dieser den String mit der Beschreibung aufnehmen
kann.
Aufruf: DWORD idx - Listenindex innerhalb der Liste der verfügbaren COM-Ports
0 < idx < iComPorts (GetAvailableComPorts())
LPSTR comstr - Stringbuffer zur Aufnahme der COM-Beschreibung
DWORD maxLen - max. Länge des Stringbuffers
Return: DWORD index - Index des Listeneintrags welcher gelesen wurde (= idx),
im Fehlerfall wird der Wert FTLIB_ERR_INVALID_PARAM
zurückgegeben					

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

function Init(): DWORD; stdcall; external 'ftMscLib.dll' name 'ftxInitLib';
function ComPorts(mode: Integer): DWORD; stdcall; external 'ftMscLib.dll' name 'GetAvailableComPorts';
function EnumComPorts(idx: DWORD; comstr:String; maxlen: DWORD): DWORD; stdcall; external 'ftMscLib.dll' name 'EnumComPorts';
//DWORD EnumComPorts (DWORD idx,LPSTR comstr,DWORD maxlen)

procedure TForm1.Button1Click(Sender: TObject);
var
  test: String;
begin
  Init();
  ShowMessage(IntToStr(ComPorts(1)));
  EnumComPorts(0,test,64);
  ShowMessage(test);
end;					

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

function EnumComPorts(idx: DWORD; comstr:PChar; maxlen: DWORD): DWORD; stdcall; external 'ftMscLib.dll' name 'EnumComPorts';
//DWORD EnumComPorts (DWORD idx,LPSTR comstr,DWORD maxlen)

procedure TForm1.Button1Click(Sender: TObject);
const
  MAX_STRLEN = 1024;
var
  test: String;
begin
  Init();
  ShowMessage(IntToStr(ComPorts(1)));
  SetLength(test, MAX_STRLEN);
  EnumComPorts(0, PChar(test), Length(test));
  SetLength(test, StrLen(PChar(test)));
  ShowMessage(test);
end;					

1:

SetLength(test, MAX_STRLEN);					

1:

SetLength(test, StrLen(PChar(test)));					

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

2.12 GetAvailableComPorts
DWORD GetAvailableComPorts (int selectMode)
Funktion ermittelt auf Basis der Informationen aus der Windows-Registry alle zur Verfügung
stehenden COM-Ports und liefert die Anzahl der Ports zurück. Intern werden diese
Informationen in einer statischen Liste zur weiteren Verwendung verwaltet. Zur Ermittlung
und Anzeige der zur Verfügung stehenden COM-Ports muss diese Funktion zuerst aufgerufen
werden.
Aufruf: int selectMode - Angabe, ob alle COM-Ports gelesen werden oder nur die Ports,
die für eine Verbindung zu einem ROBO-TX Controller
vorgesehen sind (USB oder Bluetooth)
ALL_PORTS 0 alle Ports
USB_ONLY 1 nur USB-Schnittstellen
BT_ONLY 2 nur Bluetooth-Verbindungen
Return: DWORD iComPorts - Anzahl der ermittelten COM-Ports in der internen Liste					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

const
  ALL_PORTS = 0;
  USB_ONLY  = 1;
  BT_ONLY   = 2;
  
procedure TForm1.Button1Click(Sender: TObject);
const
  MAX_STRLEN = 1024;
var
  test: AnsiString;
  i: DWORD;
begin
  Init();
  for i := 0 to ComPorts(USB_ONLY) - 1 do
    begin
      SetLength(test, MAX_STRLEN);
      ZeroMemory(@test[1], Length(test));
      EnumComPorts(i, PAnsiChar(test), Length(test));
      SetLength(test, StrLen(PAnsiChar(test)));
      ShowMessage(test);
    end;
end;					

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:

unit main;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  test: DWord;

implementation

{$R *.dfm}

function GetVer(): DWORD; stdcall; external 'ftMscLib.dll' name 'ftxGetLibVersion';
function Init(): DWORD; stdcall; external 'ftMscLib.dll' name 'ftxInitLib';
function ComPorts(mode: Integer): DWORD; stdcall; external 'ftMscLib.dll' name 'GetAvailableComPorts';
//DWORD GetAvailableComPorts (int selectMode)
function EnumComPorts(idx: DWORD; comstr:PAnsiChar; maxlen: DWORD): DWORD; stdcall; external 'ftMscLib.dll' name 'EnumComPorts';
//DWORD EnumComPorts (DWORD idx,LPSTR comstr,DWORD maxlen)

procedure TForm1.Button1Click(Sender: TObject);
const
  MAX_STRLEN = 1024;
var
  test: AnsiString;
begin
  Init();
  {ShowMessage(IntToStr(round((GetVer() and 16711680) / 65536)) + '.' +
  IntToStr(round((GetVer() and 65280) / 256)) + '.' + IntToStr(round(GetVer() and 255)));  }
  ShowMessage(IntToStr(ComPorts(1)));
  SetLength(test, MAX_STRLEN);
  EnumComPorts(0, PAnsiChar(test), Length(test));
  SetLength(test, StrLen(PAnsiChar(test)));
  ShowMessage(test);
end;

end.