Mouse position und klick an anderen Rechner Senden

[davtix]

hab schon mal ein wenig geändert


im socket read...

von

Code:

 if (bef = 'MPOS') and ( fup.prpa.procSockReadAktiv = 0 ) then then

zu

Code:

 if (bef = 'MPOS') then

das läuft schon mal sehr flüssig .



von

Code:

 //wenn string länger als 30 zeichen hat dann verwerfen
 if ( length( st4 ) > 30) then EXIT;
....
   //linksklick auslesen
   //tempP := copy( st4  , 1  ,  p4 -1 );                 // hinten weg
   Mlk := strtoint(copy( st4  , p4 + 5  , length( st4 ) )); // vorne weg

zu

Code:

 //wenn string länger als 30 zeichen hat dann kürzen
 if ( length( st4 ) > 30) then st4 := copy( st4 , 1 , 30 );
....
   //linksklick auslesen
   tempP :=  copy( st4  , 1  ,   p4 + 5 );                  // hinten weg
   Mlk :=  strtoint(copy( tempP  , p4 + 5  ,  length( tempP ) )); // vorne weg

und den Fehler gefunden warum kein Linksklick ging obwohl er empfangen wurde.
von

Code:

   // linksklick
   if (mRk = 1) and (mLk = 0) then

zu

Code:

  // linksklick
   if (mRk = 0) and (mLk = 1) then