Turbo Power OnGuard package

[Anonymous]

Turbo Power OnGurad package has been ported to Lazarus (by me )

Check here : http://wiki.lazarus.freepascal.org/index.php/OnGuard


P.S. Volunteers are needed to test it.

Regards
Boguslaw Brandys

[Anonymous]

looks very good
(0.9.17 linux)

[tatamata]

I couldn't compile it and install with recent Lazarus 0.9.23 developer snapshot (fpc 2.2.1)...

[tatamata]

Recently I tried to use OnGuard on Windows. I compiled CODEGEN example, but when I tried to generate release codes it just doesn't accept any dates input. I tried with many different date formats but none worked. It was always rejected with error messages such as "Start date invalid".
Then I tried the same on Linux. On my surprise, it works!
Does anybody know why it works on Linux and doesn't work on Windows?
Does somebody successfully use it on Windows?

[Leledumbo]

Windows store its date format information based on localization. To check yours:

Code: [Select]


uses
  SysUtils;
...
ShowMessage(DateToStr(Date));


[tatamata]

Well, the format is "25.1.2008", but OnGuard CODEGEN does not accept it...

[Leledumbo]

Check CODEGEN source, how does it store date format?

[Csabi64]

Hi Everyone,

I tried to install the component tponguard.
I use Lazarus 0.9.30.1. and Windows XP Professional SP3.
The compiler says:
  c:\lazarus\components\tponguardfpc\source\onguard.pas(887,33) Error: Unknown record field identifier "U"

(the line is:
PDWord(@Buf[0])^ := SysInfo.u.dwOemId;
)

You should delete that .u (I think...) .

[JD]

Hi Everyone,

I tried to install the component tponguard.
I use Lazarus 0.9.30.1. and Windows XP Professional SP3.
The compiler says:
  c:\lazarus\components\tponguardfpc\source\onguard.pas(887,33) Error: Unknown record field identifier "U"

(the line is:
PDWord(@Buf[0])^ := SysInfo.u.dwOemId;
)

You should delete that .u (I think...) .

What version of TurboPower OnGuard are you trying to install? I have version 1.0.0.1 installed in Lazarus 0.9.31/FPC 2.4.4 svn 31847 in Vista & XP SP3.

[IPguy]

FYI - the version of OnGuard in the lazarus-ccr SVN is 1.13.
https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr

Is it possible there are two different branches of OnGuard floating around?

Code: [Select]

{*********************************************************}
{*                  ONGUARD7.PAS 1.13                    *}
{*     Copyright (c) 1996-02 TurboPower Software Co      *}
{*                 All rights reserved.                  *}
{*********************************************************}

[JD]

FYI - the version of OnGuard in the lazarus-ccr SVN is 1.13.
https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr

Is it possible there are two different branches of OnGuard floating around?

Code: [Select]

{*********************************************************}
{*                  ONGUARD7.PAS 1.13                    *}
{*     Copyright (c) 1996-02 TurboPower Software Co      *}
{*                 All rights reserved.                  *}
{*********************************************************}

I have the same header in my Onguard7.pas I think it is the package version that is 1.0.0.1
In any case, I just reinstalled OnGuard from svn & it looks the same as before.

[Jagluiperd]

Hello from Spain.

First: Sorry, but my english is'nt good.

I have the same problem too: I couldn't compile it and install "tponguardfpc", the compiler show me this error:
C:\lazarus\components\tponguardfpc\source\onguard.pas(887,33) Error: Unknown record field identifier "U"

But, i solve this doing that in the codesource:

   //PDWord(@Buf[0])^ := SysInfo.u.dwOemId;
   PDWord(@Buf[0])^ := SysInfo.dwOemId;

Hope this help to someone.

[mica]

hmm it installs fine after the change,but the examples dont find the units (onguard etc..)
strange

[JD]

hmm it installs fine after the change,but the examples dont find the units (onguard etc..)
strange

Hi there,

You need to put the path to the OnGuard package source files in each example's (or your own project's) "Compiler Options ---> Paths --> Other Unit Files. Once you do this, the examples will work.

For instance, on my computer I add it like this:

Code: [Select]

$(LazarusDir)\components_extra\OnGuard\source;$(LazarusDir)\components_extra\OnGuard\packages

I hope that helps.

Cheers,

JD

[freeman35]

I try install on win 7 x64 & Lazarus-1.1-38770-fpc-2.6.1-20120921-win64
When I compile, in ogutil.pas on this function "function SimulateRealModeInt" 

Code: [Select]

  xor     bx,bx
  mov     bl,IntNo
  xor     cx,cx       {StackWords = 0}
  les     di,Regs    {-> ERROR on this line}
  mov     ax,0300h
  int     31h
  jc      @@ExitPoint

  xor     ax,ax
@@ExitPoint:
on this line stop compiling and this errors in message box. I think problem is in asm code for not x64. Has anyone fix this or any idea ?

Code: [Select]

C:\tponguardfpc\source\ogutil.pas(357,14) Error: Asm: Opcode les not in table
C:\tponguardfpc\source\ogutil.pas(375,22) Error: Identifier not found "GlobalDosAlloc"
C:\tponguardfpc\source\ogutil.pas(379,39) Error: Incompatible types: got "FarPointer" expected "PMediaIDRec"
C:\tponguardfpc\source\ogutil.pas(380,39) Error: Incompatible types: got "FarPointer" expected "PMediaIDRec"
C:\tponguardfpc\source\ogutil.pas(381,18) Hint: Local variable "Regs" does not seem to be initialized
C:\tponguardfpc\source\ogutil.pas(383,13) Error: Illegal type conversion: "PMediaIDRec" to "OS"
C:\tponguardfpc\source\ogutil.pas(384,13) Error: Illegal type conversion: "PMediaIDRec" to "OS"
C:\tponguardfpc\source\ogutil.pas(396,18) Error: Identifier not found "GlobalDosFree"
C:\tponguardfpc\source\ogutil.pas(396,19) Error: Illegal type conversion: "PMediaIDRec" to "OS"
C:\tponguardfpc\source\ogutil.pas(404,50) Hint: Local variable "MR" does not seem to be initialized
C:\tponguardfpc\source\ogutil.pas(1870) Fatal: There were 8 errors compiling module, stopping