Wird den eine serielle Schnittstelle im Geräte-Manager angezeigt? Wenn ja muss diese eigentlich auch funktionieren. Wie gesagt, mit CreateFile würde ich mich nicht weiter beschäftigen, da die Komponente vieles einfacher macht.
Wenn aber keine Schnittstelle angezeigt wird, nehme ich an das man das ganze via USB anspricht. Wie das dann im Detail funktioniert kann ich leider nicht sagen. Ich habe bisher nur mit dem Microchip USB Framework gearbeitet und dort ist eine dll mit den Funktionen zum ansprechen der USB Schnittstelle enthalten.
edit: Ich hab grade gesehen das die TComPort erst ab Delphi 5 funktionieren soll. Von daher wird es mit dieser wahrscheinlich nicht klappen. Ich habe aber grad nochmal deinen Quelltext angeschaut.
Probier es mal so:
Code:
procedure TForm1.ButOpenCOMClick(Sender: TObject); begin
Port := CreateFile(PChar(Edit1.Text),GENERIC_WRITE,0,NIL,OPEN_EXISTING,0,0);
end;
Die Anführungszeichen bewirken, dass nicht dein eingegebener Text als Name der Schnittstelle genommen wird, sondern eben der String Edit1.Text. Diese Schnittstelle existiert natürlich nicht.
Lesezeichen