[ patak_daca @ 11.08.2009. 07:57 ] @
Pozdrav!

Da li mi može neko reći šta u Delphi-ju
znači

inBuffused

i

GetBlock

reč je o rs232 komunikaciji.

Ja radim u VB.Net.

Hvala unapred!
[ xenox @ 11.08.2009. 09:42 ] @
http://www.programmersheaven.com/download/48584/29/ZipView.aspx

Ako ti je to ovo za GPS
function GetBlock(Block : PChar; Len : Cardinal) : Integer; cita u string Len i verovatno vraca koliko je zaista procitao.

inBuffused ti je verovatno kolicina u bufferu.

P.S. to nije vezano za delphi - mozes ti tako nazvati i u vb-u funkcije. Ko ce ga znati sta je kad nisi rekao odakle prepisujes - tj iz kog unita ili bar deo koda...

Uostalom buff used je prilicno poznato sta je a in i out isto. GetBlock ...

Ehm...
[ patak_daca @ 11.08.2009. 09:50 ] @
Pozdrav!

Nije za GPS, to je za čitanje podataka sa vage..

Evo i code...

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var b : array[0..1000] of char;
    k : array[0..10] of char;
  x,i : integer;
  primio : integer;
begin
cekamkom := cekamkom + 1;
if cekamkom >= 20 then begin
  timer1.Enabled := false;
  apdcomport1.open := false;
  showmessage('NEMA KOMUNIKACIJE SA VAGOM');
  if odaklekom=1 then brutobtn.Enabled := true
                 else tarabtn.Enabled := true;
  exit;
  end;

x := apdcomport1.inBuffused;
if x > 40 then begin
  apdcomport1.GetBlock(b,x);
  i := x-2;
  primio := 0;
  while ((i > 10) and (primio=0))  do begin
    if ((b[i]='A') and (b[i-1]='B') and (b[i-2]='G')) then begin
      k[0] := b[i-7];
      k[1] := b[i-6];
      k[2] := b[i-5];
      k[3] := b[i-4];
      k[4] := b[i-3];
      k[5] := chr(0);
      primio := 1;
      end;
    i := i - 1;
    end;

  if primio=1 then begin
    timer1.Enabled := false;
    apdcomport1.open := false;
    if odaklekom=1 then brutoed.text := k
                   else taraed.text := k;
    izracunajneto;
    if odaklekom=1 then brutobtn.Enabled := true
                   else tarabtn.Enabled := true;
    exit;
    end;

  if primio=0 then begin
    timer1.Enabled := false;
    apdcomport1.open := false;
    showmessage('NISU DOBRI PODACI OD VAGE');
    if odaklekom=1 then brutobtn.Enabled := true
                   else tarabtn.Enabled := true;
    exit;
    end;

  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var k : array[0..10] of char;
begin
k[0] := ' ';
k[1] := ' ';
k[2] := '6';
k[3] := '5';
k[4] := '0';
k[5] := chr(0);
brutoed.text := k;
izracunajneto;
end;
////////////////////////////////////////////////




[Ovu poruku je menjao savkic dana 11.08.2009. u 11:48 GMT+1]
[ savkic @ 11.08.2009. 10:56 ] @
Te nazive imaju TurboPower AsyncPro komponente, najbolje je da downloaduješ help za njih sa neta i pogledaš šta je šta.
[ patak_daca @ 11.08.2009. 11:00 ] @
Hvala puno!

Pozdrav!