hi there, after long search i found this
http://www.delphi3000.com/articles/article_2663.asp?SI=
so i decided to ask right there, but however after a mounth i didnt get any ansewer (here my question bellow
)
iam a bit begginer (a student in 2grade), i worked much with delphi, but never with drivers... i will just make a simple serial port driver, and will ask if you have any documentation for your code, or a sample where it is used would be fine
i just want to make a driver for
baudrate : 192000
Start bit : 1
Data bits : 8
Stop bit : 1
Internal Adresses 00(version) 01(x) 02(y) 03(z)
command ?aapp(cr)
response >xxxxx(cr)
end with (cr)
in your code i found procedures for seting boundrate, handshake bits and so, but have no clue how to get it together
BIG Thanks
i also made some peace of code, tahat didnt worked
Delphi-Quellcode:
var
Form1: TForm1;
DT:TComportDriverThread;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
DT:=TComportDriverThread.Create(Form1);
DT.ComPort :=pnCOM1;
DT.ComPortSpeed :=br19200;
DT.ComPortDataBits:=db8BITS;
DT.ComPortStopBits:=sb1BITS;
DT.Connect;
//if DT.Connected then ShowMessage('GREAT');
//if DT.Disconnect then ShowMessage('Connection Lost');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if DT.SendString('?'+Edit1.Text) then ShowMessage('Data Sended');
end;
procedure TForm1.Button3Click(Sender: TObject);
var tmp:string;
begin
tmp:='';
DT.ReadString(tmp);
Edit2.Text:=tmp;
end;
end.
i tryied to find a sample of it, but with no success
please, if anyone coul help me with this
