Tilgængelige Comporte

2stk

højreklik på denne computer og tryk hardware

mener nok der er noget der hedder port eller sådan noget...har nt så kan ikke helt svare

men du kan se det her inde ved jeg:)

Meget sigende navn du har kid... Se lige hviken kategori du er i!

psv: lol okay min skrifttype er MEGET lille kunne ikke se det jeg har en MEGET høj opløsning

prøv at vende komputeren om, så kigger du efter et 9 bennet stik hvis den er lidt ældre kan der også være et 25 benet stik

lol

Hej

Jeg vil gerne uddybe mit spørgsmål ;0)

Det er Delphi kode jeg er ude efter......

mvh.
palle

Hej Palle

Du tager di delåhi skive, vender computeren og bruger den til at tælle med .. Nå spøg til side.

Det næste du spørger efter et vel hvordam kommunikerer men ud gennem dem ... Så lad mig svare på det med det samme.

Du gå på torry.net, og finder Modem siden (http://www.torry.net/modems.htm) der fra downloader du et af de mange gode komponenter

Jens B http://fotx.net/borrisholt

Næh....

Jeg vil bare vide hvor mange comporte der er...

mvh.
palle

Har du en mail? Jeg har et eksempel som jeg har brugt engang.
Det er bare lidt langt at poste her.

en knap og en combobox og så det følgende kode :

procedure TForm1.Button1Click(Sender: TObject);
var
  i: INteger;
  PortName : String;
  FHandle : THandle;
begin
  PortComboBox.Clear;
for i:= 1 to 16 do
  PortComboBox.Items.Add(format(\'\\\\.\\COM%d\',[i]));

i:= 0;

while i< PortComboBox.Items.Count do
begin
  PortName := PortComboBox.Items[i];
  FHandle := CreateFile( pchar(PortName),
                          GENERIC_READ or GENERIC_WRITE,
                          0, // Not shared
                          nil, // No security attributes
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0 // No template
                          ) ;
  if FHandle <> INVALID_HANDLE_VALUE then
  begin
    CloseHandle(FHandle);
    inc(i);
  end
  else
    PortComboBox.Items.Delete(I);

end;

end;

Jens B http://fotx.net/borrisholt

Så har du både antal og navene på dem .....

Jens B http://fotx.net/borrisholt

Det skulle være et svar ...

JEns B

Faktisk er der ved nærmere eftertanke ingen grund til a tilføje dem alle sammen for blot at slette broder parten igen...

prøv den her :

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  PortName : String;
  FHandle : THandle;
begin
PortComboBox.Clear;
for i:= 1 to 16 do
begin
  PortName := format(\'\\\\.\\COM%d\',[i]);
  FHandle := CreateFile( pchar(PortName),
                          GENERIC_READ or GENERIC_WRITE,
                          0, // Not shared
                          nil, // No security attributes
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0 // No template
                          ) ;
  if FHandle <> INVALID_HANDLE_VALUE then
  begin
    CloseHandle(FHandle);
    PortComboBox.Items.Add(PortName);
  end;
end;

end;

Jens B