Hi All ,
It's my first topic.:grin:
Can you help me about the best methode for read and write Offset with FPCuser Lib.
I post 2 methodes :
the values of offset ,lenght offset ,and value offset are on a array.
//----- methode 1 -------------------------------------------------
procedure TForm1.ScanEventTQTimer(Sender: TObject);
var dwResult : DWord;
i : Word;
valeur : Word;
begin
ScanEventTQ.Enabled := False;
//--- Lecture des Offset FsUipc
For i := 89 To 105 do
begin
FSUIPC_Read(TabOffset[i,0], TabOffset[i,1], ADDR(Valeur), dwResult);
FSUIPC_Process(dwResult);
TabOffset[i,2] := Valeur; //Charge le tableau avec la valeur reçue pour l'offset correspondant
end;
ScanEventTQ.Enabled := True;
end;
//----- methode 2 -------------------------------------------------
procedure TForm1.ScanEventTQTimer(Sender: TObject);
var dwResult : DWord;
i : Word;
valeur : Word;
begin
ScanEventTQ.Enabled := False;
//--- Lecture des Offset FsUipc
For i := 89 To 105 do
begin
FSUIPC_Read(TabOffset[i,0], TabOffset[i,1], ADDR(Valeur), dwResult);
TabOffset[i,2] := Valeur; //Charge le tableau avec la valeur reçue pour l'offset correspondant
end;
FSUIPC_Process(dwResult);
ScanEventTQ.Enabled := True;
end;
Or a other ?
Thank
Best regards
Cs200 from belgium :rolleyes: