Witam.
Mam na formie komponenty COMPORT i komp jest połączony z wagą za pomocą RS232
oraz mam taką procedurkę:
procedure TForm1.Button1Click(Sender: TObject);
var Stre:String;
Count: Integer;
bufor : array [0..1023] of char;
begin
Form2.Show;
Form1.Hide;
Form2.Label2.Caption:=Edit1.Text;
ComPort1.Port := 'COM1';
ComPort1.BaudRate := br9600;
if ComPort1.Connected then
begin
Showmessage('Zamkniemy port i otworzymy na nowo bo jet otwarty');
ComPort1.Close;//zamknij
ComPort1.Open;
//a:= '';
//b:= '';
//c:='';
//a:=copy(Stre, 1, 13);
//b:=copy(Stre, 1, 11);
//c:=copy(Stre, 1, 12);
ComPort1.ReadStr(Stre, Count);
Form2.MaskEdit1.Text:=Stre; //wczytanie wagi do pola MaskEdit1 gdzie jest wartośc wagi
//lub
//Form2.MaskEdit1.Text := Form2.MaskEdit1.Text + Stre;
Showmessage(Stre);
end else begin//jezeli nie jest to..
ComPort1.Open; //otworz..
Showmessage('Udało się otworzyć port');
//ComPort1.Read(bufor,Count);
//Form2.MaskEdit1.Text:=bufor;
ComPort1.ReadStr(Stre, count);
Form2.MaskEdit1.Text:=Form2.MaskEdit1.Text+Stre; //wczytanie wagi do pola MaskEdit1 gdzie jest wartośc wagi
Showmessage(Stre);
end;
end;
I za nic mi nie chce zczytać wagi z wagi :( Proszę o pomoc.