ERLEDIGT:Com-Port ansteuern

[ts230]

Hallo,
wie steuere ich den Com-Port an???
Ich möchte auch USB-Seriell-Wandler Ansteuern,da manche Computer kein RS232 haben aber meine Hardware das voraussetzt.
Dann sollen alle Com-Ports in einer ComboBox angezeigt werden und dann kann mann sich über ein »Verbinden« Button Verbinden.
Ich müsste das Haben:

• Alle Comports(inkl.USB-->Seriell) anzeigen und in ComboBox schreiben

1. Verbinden/Trennen

• Senden/Empfangen

Bitte helft mir.

[alexander]

keine Ahnung, aber ich habe ein bisschen gegooglet, und kam hierzu:
http://sourceforge.net/projects/cportlaz/" onclick="window.open(this.href);return false;
vielleicht hilft es dir ja....

ohh er schreibt, das die nur für winodws funktioniert .... schade

[Christian]

fpc hat eine serial unit.
synapse hat eine synaser unit.
beides plattformunabhängig, getestet und gut.

[ts230]

@Christian:
Danke!
Wo ist sie bei synapse?Ich habe Synapse sowieso eingebunden,weil ich auf updates prüfe.............................
Ach:
USB-->Seriell-Wandler werden ja unter Linux als /dev/ttyUSB0 (oder so) eingebunden.
Bei Windows sind die dann ja nur normale COM-Ports.

[monta]

Also meine DateiSuche zeigt mir die serial.pp unter \source\rtl\unix im FPC-Verzeichnis an.

Sollte die richtige sein:

{ Unit for handling the serial interfaces for Linux and similar Unices.
(c) 2000 Sebastian Guenther, sg@freepascal.org
}

und eine serial.pas gibt es noch für amiga

[ts230]

Gefunden!

Aber wie lese ich jetzt alle seriellen Anschlüße in eine ComboBox ein?

[Christian]

ndem du prüfst welche sich öffnen lassen

[ts230]

Ja.Gut
Jetzt habe ich das:

Code: Alles auswählen

i:=0;
            For i:=0 to 50 Do
            begin
            try
            SHandle:=SerOpen('/dev/ttyUSB'+inttostr(i)+'');
            SerClose(SHandle);
            a:=true;
            except
            a:=false;
            end;
            if a then Combo1.Items.Add('/dev/ttyUSB'+inttostr(i)+'');
            end;

Und ich krieg alle /dev/ttyUSB0 ... /dev/ttyUSB50 aber die sind nicht vorhanden auf meinem System.Was mache ich denn falsch???

[Christian]

Na du guckst gar nicht ob dein SHandle gültig ist. Wiso sollte da ne Exception ausgelöst werden wenn sich der Port nicht öffnen lässt ...

[ts230]

Wie schau ich denn nach ob das Handle gültig ist?

[Christian]

Also man kann ja gern ma fragen aber ...
.. das hat nichts mehr mit Anfängerfragen sondern eher was mit Faulheit zu tun.

[ts230]

geht es so?

Code: Alles auswählen

if SHandle then Combo1.Items.Add('/dev/ttyUSB'+inttostr(i)+'');

[Christian]

Ja so sollts gehn.

[ts230]

Aber es will irgendwie immer noch nicht.
ich habs mit

Code: Alles auswählen

if not SHandle = 0 then Combo1.Items.Add('/dev/ttyUSB'+inttostr(i)+'')

probiert weil das andere nicht geht.
Aber hier das gleiche Problem

[Christian]

sehr merkwürdig.
Alternativ würde mir noch FileExists einfallen.

if FileExists('/dev/ttyUSB'+inttostr(i)+'') then

wiso eigentlich das '' nach IntToStr(i)