rmb_ali
یک شنبه 18 اردیبهشت 1384, 17:33 عصر
دوستان میشه به ما که در اول راه هستیم کمک کنید من میخوام از طریق پورت سریال یه میکرو کنترل رو بخونم روش اینجوریه که باید یه کد بفرستی تا میکرو کنترل داده ها رو تخلیه کنه اول که کلی گشتم تا این کامپوننت mscomm32 رو پیدا کردم و از طریق کامپوننت های activx نصب کردم ولی نمیتونم داده ها رو بخونم و مشکلم روی نوع داده های ارسالی است و این که چگونه اونهارو بخونم البته یه چیزایی نوشتم که میزارم اینجا ببینید مشکل چیه
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
mscomm1.inputlen:=0;
mscomm1.PortOpen:=true;
mscomm1.Output:='192' ;
for i:=1 to 10000 do;
edit1.Text:= MSComm1.Input;
mscomm1.PortOpen:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
mscomm1.inputlen:=0;
mscomm1.PortOpen:=true;
mscomm1.Output:='192' ;
for i:=1 to 10000 do;
edit1.Text:= MSComm1.Input;
mscomm1.PortOpen:=false;
end;