Delphi Prob

[Artemis_Simetra]

Hallo zusammen,
ich hätte da ein problem mit delphi (borland d4)

Ich möchte einen USB_IRTransceiver mit Delphi ansprechen um einen asuro fernzusteuern.
Der Transceiver meldet sich als virtuelle ser.Schnittstelle (COM9) an.
Das wär der Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    ButOpenCOM: TButton;
    ButCloseCom: TButton;
    ButExit: TButton;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    ButSend: TButton;
    procedure ButExitClick(Sender: TObject);
    procedure ButOpenCOMClick(Sender: TObject);
    procedure ButSendClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Port: THandle;

implementation

{$R *.DFM}

procedure TForm1.ButExitClick(Sender: TObject);
begin
CloseHandle(Port);
Close;
end;

procedure TForm1.ButOpenCOMClick(Sender: TObject);
begin
Port := CreateFile(PChar('Edit1.Text'),GENERIC_WRITE,0,NIL,OPEN_EXISTING,0,0);
end;

procedure TForm1.ButSendClick(Sender: TObject);
var
befehl: Byte;
Count: DWORD;

begin
befehl := 80;
WriteFile(Port,befehl,1,Count,NIL);

end;



end.

Das Problem: Der USB-IR-T reagiert nicht. MAn sieht weder die beim senden sonst flackernde gelbeLED noch (mit HandyCam) die IR_LED leuchten.
Kann da jemand helfen?

[markusj]

Du musst die Parameter der seriellen Schnittstelle doch konfigurieren. Beim ASURO sind das 2400 Baud, 8 Bit, keine Parität, 1 Stoppbit (auch bekannt als 8N1). Ein Codebeispiel das ich auf die schnelle Gefunden habe: http://alexmogurenko.com/blog/progra...delphilazarus/

mfG
Markus

[Artemis_Simetra]

So?

procedure TForm1.ButConfigComClick(Sender: TObject);
var
DCB: TDCB;

begin
GetCommState(Port,DCB);
DCB.BaudRate := 2400;
DCB.ByteSize := 8;
DCB.StopBits := ONESTOPBIT;
DCB.Parity := NOPARITY;
SetCommState(Port,DCB);
end;

vg malte

[markusj]

Schaut plausibel aus. Ich habe aber schon Jahre nicht mehr mit Delphi gearbeitet und dabei noch nie eine seriellen Schnittstelle verwendet. Probiere das ganze doch Mal aus, kaputt gehen kann nichts dabei ...

mfG
Markus

[Artemis_Simetra]

Das ausprobieren hat ergeben: Will immer noch nicht. Normalerweise blinkt beim Senden eine gelbeLED und man sieht die IRLED mit der Handykammera leuchten.
Hier keins von beidem.
Kennt jemand einen anderen Weg die ser. anzusprechen als über CreateFile+Handle?
vg malte

[hagbart06]

Ich habe bisher immer die TComPort Komponente verwendet. Zu finden z.B. hier: http://sourceforge.net/projects/comport/

Ist wesentlich einfacher als über CreateFile, da man die Events nutzen kann um zum Beispiel auf eingehende Daten zu reagieren.