ایجاد شمارنده برای خواندن از پورت

[omidan321]

سلام به همگی
من یه برنامه برای پورت سریال دارم مینویسم وقتی از کامپیوتر دوم مقداری رو ارسال میکنم تو کامپیوتر مقصد فقط10 تا از اون رشته دریافت میشه چیکار کنم تا همه اون رشته ای که ارال کردم رو دریافت کنم

به نظر خودم باید یه شمارنده بزارم اما نمیدونم چطوری
از اساتید طلب یاری دارم
اینم کد من
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);

var str_recived:widestring;
sss:widestring;
str:widestring;
begin
comport.ReadUnicodeString(str_recived, count);
sss:=str_recived ;
edit9.Text := sss;
if (copy(str_recived,15,11)='UUUUUUUUUUU') AND (copy(str_recived,length(str_recived),1)='U') then
begin
edit9.Text := sss+'alie'
end;

[omidan321]

یعنی کسی بلد نیست

[firststep]

سلام خسته نباشین
اول از توی HYPER TERMINAL امتحان بفرمایید که چگونه داد ارسال می شوند
بعد من تصورم به اینه که باید تنطیمات بافر ارتباطون رو دست بزنید

[omidan321]

درست حدس زدی اول با هایپر تست کردم کامل ، اونچه که ارسال کردم رو دریافت کردم
اما توی دلفی هر سری تقریبا 10 تا میگیره

به نظر شما از شمارنده ها چطور استفاده کنم (اگه از شمارنده استفاده کنیم می تونیم تا رسیدن به انتهای رشته همین طور read کنیم)؟