Komponent COMPORT-transmisja asynchroniczna

0

Witam
Pisze sobie aplikacje do przesyłania danych (znaki klawiatury i współrzędne punktów...) pomiędzy komputerami . jako początkujący programista postanowiłem skorzystać z komponentu Comport . Przy pomocy helpa udało mi sie stworzyc prosta aplikacje... która przy pomocy funkcji WriteStr() i ReadStr() wysyła wysyła na bieŻąco znaki z Edit1 do drugiego komputera gdzie są odbierane i wyswietlane.

Jednak jak mi sie zdaje jest to komunikacja halfduplex . Chciałbym jednak aby była realizowany tryb FuulDuplex.
Wiem ze komponent COMPORT ma gotowe funkcje nie bardzo jednak umiem je zaimplementowac poprawnie. I tu potrzebuje pomocy .
Czy mógłby ktos podac pare linijek kody realizujacego wysyłanie asynchroniczne znaków z pola np. Edit1 i wyświetlanie np. w Memo? na innej jednostce?

I jeszcze male pytanie. Moja aplikacja wysyła znaki zklawiatury i współżedne punktów czy dobrym sposobem
rozróznienia tych danych jest dołaczenie specjalnego znaku?( # $ &...itp...) czy moze lepiej rozrózniac je po ilosci bitów stopu?

0

Witam ponownie a ot o mój kawałwk programu napisany w oparciu o helpa.....Jest tylko mały ale...nie dziła....kompiluje sie ale nic nie otrzmuje....nawet nie wiecz czy wysyła... Czy ktos wie dlaczego?Kozystałem bezpośrednio z Helpa......

                  wysyłanie znaku....

//---------------------------------------------------------procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
//-----------------------------------------------
var
Operation1: PAsync;
begin
InitAsync(Operation1);
try
ComPort1.WriteStrAsync('dane ', Operation1);
//
ComPort1.WaitForAsync(Operation1);
finally
DoneAsync(Operation1);
end;
end;
/---------------------------------------------------
//-----------------------------------------------
odbieranie....
procedure TForm1.ComPort2RxChar(Sender: TObject; Count: Integer);
//---------------------------
var
datain:string;
Operation2: PAsync;
number:integer;
begin
InitAsync(Operation2);
try
ComPort2.readStrAsync(datain,number,Operation2);
ComPort2.WaitForAsync(Operation2);
finally
DoneAsync(Operation2);
end;
Memo2.Text:=Memo2.Text + (datain);
end;
//----------------------------

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0