[Best methode for read and write to FsUip with Delphi]

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: